Anónimo
Problema al grabar registro desde formulario
Buen día,
mi problema es realmente muy sencillo, pero la verdad, estoy bloqueado.
Tengo una tabla (Tabla1) con 3 campos (cedula, nombres, apellidos). Cree un formulario con 3 cuadros de texto y un botón (guardar). Cuando doy clic al botón guarda lo que tengo en estos cuadros pero antes saca una ventana pidiendo: Introduzca el valor del parámetro y muestra como titulo lo que escribí en los cuadros de nombre y apellido y un campo para escribir (nuevamente) el nombre y/o apellido.
Este es el código de mi botón:
Private Sub Comando6_Click()
cc = Me.cedu.Value
nm = Me.nombre.Value
ap = Me.apelli.Value
DoCmd.RunSQL "INSERT INTO Tabla1(cedula,nombres,apellidos)VALUES(" & cc & "," & nm & "," & ap & ")"
End Sub
Te agradezco muchísimo tu ayuda.
mi problema es realmente muy sencillo, pero la verdad, estoy bloqueado.
Tengo una tabla (Tabla1) con 3 campos (cedula, nombres, apellidos). Cree un formulario con 3 cuadros de texto y un botón (guardar). Cuando doy clic al botón guarda lo que tengo en estos cuadros pero antes saca una ventana pidiendo: Introduzca el valor del parámetro y muestra como titulo lo que escribí en los cuadros de nombre y apellido y un campo para escribir (nuevamente) el nombre y/o apellido.
Este es el código de mi botón:
Private Sub Comando6_Click()
cc = Me.cedu.Value
nm = Me.nombre.Value
ap = Me.apelli.Value
DoCmd.RunSQL "INSERT INTO Tabla1(cedula,nombres,apellidos)VALUES(" & cc & "," & nm & "," & ap & ")"
End Sub
Te agradezco muchísimo tu ayuda.
1 Respuesta
Respuesta de areal76
1
Código para evento click del botón Guardar
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("nombre_de_tabla")
rs.AddNew
rs!campo01 = cc
rs!campo02= nm
rs!campo03 = ap
rs.Update
rs.Close
* La propiedad Record Source del formulario debe estar vacia.
Con este método se evita tanta concatenación y conflicto de tipos de datos y espacios agregados por error de digitación
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("nombre_de_tabla")
rs.AddNew
rs!campo01 = cc
rs!campo02= nm
rs!campo03 = ap
rs.Update
rs.Close
* La propiedad Record Source del formulario debe estar vacia.
Con este método se evita tanta concatenación y conflicto de tipos de datos y espacios agregados por error de digitación
Muchas gracias por tu ayuda.
Hice lo que me sugeriste pero solo me funciona la primer vez, luego no me vuelve a funcionar, supongo es por la propiedad Record Source. Me podrías por favor indicar como hago para "limpiarla" en cuanto guarde el registro.
Muchísimas gracias.
Hice lo que me sugeriste pero solo me funciona la primer vez, luego no me vuelve a funcionar, supongo es por la propiedad Record Source. Me podrías por favor indicar como hago para "limpiarla" en cuanto guarde el registro.
Muchísimas gracias.
despues de la linea rs.close agrega en una nueva linea
set rs = nothing
el record Source del formulario tiene q estar vacio; el codigo antes definido no deberia de afectar en ningun momento el record source.
¿Cuál es el error que te aparece? necesito leerlo . . .
set rs = nothing
el record Source del formulario tiene q estar vacio; el codigo antes definido no deberia de afectar en ningun momento el record source.
¿Cuál es el error que te aparece? necesito leerlo . . .