MS Access – VBA – Open Form and go to record from unbound List Box

Very clean and simple

Private Sub List0_Click()

Dim stFormName As String
Dim stLinkCriteria As String

stFormName = "Form1"

stLinkCriteria = "[ID]=" & Me.List0
DoCmd.OpenForm stFormName, , , stLinkCriteria

End Sub

About Mark

Mark Brooks a forty something individual working and living in and around Edinburgh
This entry was posted in All, Database Design, VBA Code MS Access. Bookmark the permalink.