Wednesday 5 October 2016

Data Entry UserForm linked to table with Classes

Decided to make a UserForm and link it to a table with a Class object. The code behind the navigation buttons is expressed very simply as the code is obscured by encapsualion.

Private Sub btnMoveFirst_Click()
    tbl.MoveFirst
End Sub

Private Sub btnMoveLast_Click()
    tbl.MoveLast
End Sub

Private Sub btnMoveNext_Click()
    tbl.MoveNext
End Sub

Private Sub btnMovePrevious_Click()
    tbl.MovePrevious
End Sub

Download


No comments:

Post a Comment