Guardar ul registro
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=86708
Fecha de impresión: 27/Marzo/2026 a las 04:08
Tema: Guardar ul registro
Publicado por: RobertoCarlos
Asunto: Guardar ul registro
Fecha de publicación: 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 |
Respuestas:
Publicado por: joanka
Fecha de publicación: 01/Junio/2023 a las 21:46
| Supongo que estás trabajando en un formulario continuo, En Propiedades ->Datos, pon Permitir agregar en NO. |
Publicado por: xavi
Fecha de publicación: 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 http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: RobertoCarlos
Fecha de publicación: 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 |
Publicado por: RobertoCarlos
Fecha de publicación: 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 |