teclas inicio y fin

[Guachalin]

Iniciado por reel

Una mejor visipón del código.

Código:

Private Grid_KeyUp(KeyCode As Integer, Shift As Integer)
	If KeyCode = vbKeyEnd Then rs.MoveLast
	If KeyCode = vbKeyHome Then rs.MoveFirst
En Sub

Saludos.

Gracias Reel, me funciono