Consulta sobre programar botones con vba
Quisiera programar dos botones en mi formulario dependiente: un boton que me guarde registros y ponga formulario en blanco listo para ingresar nuevo registro, pero que a su vez si no le hago click que no me guarde nada ni se genere un id (como si no hubiera pasado nada); y otro botón que haciendo click salga del formulario y no guarde nada ni se genere un id (como si no hubiera pasado nada). Espero me hayan entendido y me den una mano con esto.
4 respuestas
Tal como lo veo, hay dos formas de hacerlo:
1º/ Eliminar el id autonumérico y en su lugar poner un falso autonumérico (en la web de Neckkito tienes un ejemplo que explica cómo crearlo)
Si optas por esta solución, el código para el botón guardar sería tan simple como:
DoCmd. RunCommand acCmdSaveRecord 'Guarda
DoCmd. GoToRecord,, acNewRec 'Pasa a un nuevo registro
Y el del botón para "cancelar":
Me. Undo
DoCmd. Close acForm, Me. Name
2º/ Desconectar el formulario de la tabla, aunque esta opción te implicará hacer más cosas en tu formulario, como programar botones de navegación personalizados, cargar los datos de la tabla al abrir el formulario...
Aquí tienes muchas formas de proceder, por ejemplo guardar los datos con una SQL, con un recordset ADO o DAO... Si quieres ver alguna de ella explicada, en la página web de Neckkito busca los ejemplos "Formularios independientes"
Saludos!
Hola! Me sirvió mucho tu ayuda. Hasta ahora logre lo que me indicaste. Lo único que sucede es que cuando pongo el cancelar y genero un nuevo registro veo que si se genero el id y me salta a uno nuevo. Estuve buscando en la página de neckkito pero no encuentro como hacer el falso autonumérico
Éste es: http://siliconproject.com.ar/neckkito/index.php/ejemplos-explicados/todos/93-ejemplos-explicados/ejemplos-de-formularios/158-autonumerico-manual
Por lo que pude entender.
Deseas dos botones.
Uno que guarde info y una vez guardado deje limpio el formulario y otro que te cierre el formulario.
Como no hay mayores detalles, te paso un ejemplo. Espero te sea de ayuda.
En todo caso, anexa información para ser mucho mas precisos.
Nota: Si puedes te dejo mi mail [email protected]
Private Sub CommandButton1_Click()
Sheets("Hoja1").Activate
ult = Cells(Rows.Count, 1).End(xlUp).Row
ult = ult + 1
If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3.Value = "" Then
MsgBox "Ingrese datos": Exit Sub
End If
Cells(ult, 1) = TextBox1
Cells(ult, 2) = TextBox2
Cells(ult, 3) = TextBox3
MsgBox "Datos Guardados con éxito", vbInformation
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
End Sub
Private Sub CommandButton2_Click()
Unload Me
End SubEl primer comando es el bottom de guardado
Y el segundo comando es de salir
Silvina: Entre alguna que otra solución, mira este ejemplo de Emilio Sancha que trata ese tema.
http://www.mvp-access.es/emilio/Access/Descargas.asp
El ejemplo es el Nº 194 del 02/13. El Titulo
Hay personas a quienes no gusta el comportamiento por defecto de Access de guardar el registro al salir de él, una alternativa es utilizar una tabla intermedia hasta decidir si se guarda o no.
Mis saludos >> Jacinto
