Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim varItm As Variant
Dim ctl As Control
Dim mystr As String
Dim strSQL As String
Set ctl = Me.levels
For Each varItm In ctl.ItemsSelected
mystr = mystr & ctl.ItemData(varItm) & ","
Next varItm
mystr = Left(mystr, Len(mystr) - 2)
Me.TextboxName = mystr
DoCmd.GoToRecord , , acNewRec