Cómo programar un código de botón "anterior" y "siguiente" en programación vb
Utilicé un control de marco y le agregué cuatro botones. Todos se llaman cmdMD. Son un grupo de botones. Cada botón tiene un ícono. Muévalo al índice del botón en el primer registro. El atributo se establece en 3, el atributo de índice del botón que va al registro anterior se establece en 2, el botón que pasa al siguiente registro se establece en 1 y el botón que va al último registro se establece en 0 También puedes cambiar el orden. Por supuesto, solo necesitas dos. Un botón es suficiente.
El adoEmp en el código es un control ADODC que construí.
En la declaración for, quiero establecerlo en "" si los datos extraídos de la base de datos son NULL. hace que sea más fácil de mostrar en el formulario. Debido a que la propiedad de texto del control en el formulario puede ser "", pero no puede ser NULL
Finalmente, para ingresar cada dato en el control correspondiente en el formulario, simplemente puede cambiar la declaración en with bloquear.
Sub cmdMD_Click privado (índice como entero)
Seleccionar índice de caso
El caso es = 3 'Mover al registro 1
Si no adoEmp.Recordset.BOF Entonces adoEmp.Recordset.MoveFirst
Caso es = 2 'Mover al registro anterior
Si adoEmp.Recordset.RecordCount lt；gt; >
Si adoEmp.Recordset.BOF = False Entonces adoEmp.Recordset.MovePrevious
Si adoEmp.Recordset.BOF = True Entonces adoEmp.Recordset.MoveFirst
Fin si
Caso es = 1 'Pasar al siguiente registro
Si adoEmp.Recordset.RecordCount lt;gt 0 Entonces
Si adoEmp.Recordset.EOF = False Entonces adoEmp; .Recordset.MoveNext
Si adoEmp.Recordset.EOF = True Entonces adoEmp.Recordset.MoveLast
Finaliza si
El caso es = 0 'Mover al último registro
Si no es adoEmp.Recordset.EOF entonces adoEmp.Recordset.MoveLast
Finalizar selección
Para i = 0 a 6
Si adoEmp.Recordset.Fields(i) = "" Entonces
adoEmp.Recordset.Fields(i) = "Null"
Finalizar si
Siguiente i
Con adoEmp.Recordset
combo2.Text = .Fields(0).Value
Text3.Text = .Fields(1).Value
Combo3.Text = .Fields(2).Value
Texto5.Text = .Fields(3).Value
Texto4.Text = .Fields( 4). Valor
DTPicker1.Value = .Fields(5).Value
Texto6.Text = .Fields(6).Value
Fin W
con
End Sub