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.
Private Sub Combo1_Click()
With Combo1
ms_LoadModel(.ItemData(.ListIndex))
End With
End Sub
Private Sub ms_LoadModel(iMakeID As Integer)
'iMakeID = the Id that's found in the Model Table that
'relates to the Id found in the Make table. ;-) "phew"
'Open Model Table Where MakeId = iMakeID
'Loop through returned records (if any)
'and add to listbox
ListBox1.AddItem
End Sub