Excel UserForm Ejemplo por Kadr L.

El usuario puede ver los registros con los botones de control anterior y siguiente de control fácilmente .También en esta forma, España

Si hace clic en el botón "cmdfirst", la forma va a la primera record.Or Si hace clic en el botón "cmdlast", la forma va a la última record.While ver los registros de cuadro de lista, se puede ver el orden de los registros de en "Cuadro de texto"

Naturaleza foto fue utilizada como fondo de la plantilla de este bonito userform.Very

Códigos de Botón Anterior:.

Si ListBox1.ListIndex = 0 Entonces

MsgBox "Primer registro", vbCritical

Exit Sub

Else

TextBox6 = TextBox6 - 1

Con Me.ListBox1

.ListIndex = .ListIndex - 1

End With

Final Si

Códigos de Botón siguiente:

Si ListBox1.ListIndex = ListBox1.ListCount - 1 Entonces

MsgBox "Último registro", vbCritical

Exit Sub

Else

TextBox6 = TextBox6 + 1

Con Me.ListBox1

.ListIndex = .ListIndex + 1

End With

Final Si

http://youtu.be/HqF1NdILrLs

Más Ver en el

Descargar