Guardar ul registro |
Responder |
Autor | |
RobertoCarlos
Habitual Unido: 12/Marzo/2013 Localización: Bolivia Estado: Sin conexión Puntos: 168 |
Tema: Guardar ul registro Enviado: 01/Junio/2023 a las 21:12 |
Hola a todos nuevamente, tengo un código el cual guarda un registro en una tabla, pero me ocurre algo raro, batante raro.
Mi formulario esta vinculado a cada campo de la tabla, vale decir por ejemplo el campo Cite con el campo Cite de la tabla y así los demás campos. cuando abro el formulario se me carga en los campos el primer registro de la tabla. ahora para poder ingresar uno nuevo, yo preciono el boton que creé. hice esto agregue un boton al formulario y con el asistente seleccione la opcion agregar nuevo registro (No la opcion guardar), ok me limpia los campos, lleno los campos y cuando preciono el btnguardar se guara pero antes me guarda una fila vacía, con el id correlativo y abajo me guarda el registro. es un problema ya intente de varias maneras pero no puedo. tengo este código Sub GuardarRegistro() Dim respuesta As Integer respuesta = MsgBox("¿Desea guardar el registro?", vbYesNo + vbQuestion, "Guardar Registro") If respuesta = vbYes Then On Error GoTo ErrorHandler Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("Instructivo", dbOpenDynaset) rs.AddNew rs("Tipo_Documento") = Me.Tipo_Documento.Value rs("Cite") = Me.Cite rs("Fecha") = Me.Fecha rs("Detalle") = Me.Detalle rs("Folio") = Me.Folio rs("Referencia") = Me.Referencia rs("RutaArchivo") = Me.RutaArchivo rs.Update rs.Close Set rs = Nothing MsgBox "Registro guardado exitosamente.", vbInformation, "Éxito" ' Limpia los campos LimpiarCampos DeshabilitarCamposTexto ' Limpia el Recordset Me.Recordset.Close Set Me.Recordset = Nothing End If Exit Sub LimpiarCampos ErrorHandler: MsgBox "Error al guardar el registro.", vbExclamation, "Error" End Sub el cual llamo desde este button Private Sub btnGuardarRegistro_Click() If ValidarCampos() Then GuardarRegistro End If End Sub por favor agradezco toda la ayuda que me puedan brindar para resolver mi problema. muchas gracias |
|
Roberto
|
|
joanka
Habitual Unido: 07/Abril/2021 Localización: Lleida Estado: Sin conexión Puntos: 140 |
Enviado: 01/Junio/2023 a las 21:46 |
Supongo que estás trabajando en un formulario continuo, En Propiedades ->Datos, pon Permitir agregar en NO.
|
|
xavi
Ver perfil usuario
Enviar mensaje privado
Ver los mensajes del usuario
Visite la página de los usuarios
Añadir a la lista de amigos
Administrador Terrassa-BCN Unido: 10/Mayo/2005 Localización: Catalunya |||| Estado: Sin conexión Puntos: 14746 |
Enviado: 01/Junio/2023 a las 23:00 |
Si tu formulario está basado en la tabla, todo el código que tienes puesto, sobra.
De hecho, hasta el botón sobra ya que el registro se guarda automáticamente. Un saludo
|
|
RobertoCarlos
Habitual Unido: 12/Marzo/2013 Localización: Bolivia Estado: Sin conexión Puntos: 168 |
Enviado: 02/Junio/2023 a las 01:40 |
Sí, tienes razón cambie la fuente de los campos a independiente y registró sin problemas, pero me ocurrio un problema cuando ingreso el segundo registro sin cerrar el formulario, me salen todos los mensajes pero también el mensaje de error.
Que mas puede estar pasando por favor
|
|
Roberto
|
|
RobertoCarlos
Habitual Unido: 12/Marzo/2013 Localización: Bolivia Estado: Sin conexión Puntos: 168 |
Enviado: 13/Agosto/2023 a las 22:26 |
Para cerrar esta pregunta debo indicar que para que no se dupliquen mis registros tuve que agregar cajas de texto independientes y con eso mis registros ya no se duplican.
Gracias a todos por darme la solución. Cierren el hilo por favor |
|
Roberto
|
|
Responder | |
Tweet
|
Ir al foro | Permisos de foro Usted No puede publicar nuevos temas en este foro Usted No puede responder a temas en este foro Usted No puede borrar sus mensajes en este foro Usted No puede editar sus mensajes en este foro Usted No puede crear encuestas en este foro Usted No puede votar en encuestas en este foro |