Guardar ul registro

   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

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
RobertoCarlos Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos 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 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos 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: 14738	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
	Xavi, un minyó de Terrassa Mi web

RobertoCarlos Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos 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 Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos 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