vb escribe en la base de datos mdb y genera el error 3426

Esta es la explicación dada por el sistema de ayuda de Microsoft. El motivo de su situación es: porque su puntero de registro de control de datos actualmente apunta a un registro, es decir, el puntero del conjunto de registros no está ni al principio ni al final del registro. el registro. Al final, se recomienda utilizar el código de ejemplo (donde datDataCtl es el control de datos Data1 en su programa):

Private Sub cmdAddNew_Click()

If datDataCtl. Recordset.EOF o datDataCtl.Recordset .BOF Luego

Atenuar strBuffer como cadena

strBuffer = txtCategory.Text

Atenuar strBuffer como cadena

Atenuar strBuffer como StringText

p>

datDataCtl.UpdateControls

datDataCtl.Recordset.AddNew

txtCategory.Text = strBuffer

datDataCtl. Recordset.AddNew

txtCategory.Text = strBufferAddNew

End If

End Sub

Este código de muestra reproduce el código del paso 3 ( parte de resolución de problemas) en la referencia

===================================== ======== =============

Notas adicionales:

1 Hay algunas contradicciones en su declaración misma

Si está ejecutando la operación Guardar (es decir, en la declaración ELSE), ¿por qué no realizar la operación guardar en la declaración ELSE? en una declaración ELSE), ¿por qué se necesita Data1.Recordset.AddNew?

2 Se recomienda colocar el atributo CAPTION del comando en la posición "Agregar" y colocar el puntero del conjunto de registros al final del archivo para que EOF se convierta en verdadero, es decir:

Datos1.Recordset .MoveLast

Datos1.Recordset.AddNew.