But not the best way. I don't like to bind queries to forms.
I prefer to create a function to pass the control value to on an event.
Code:
Public COMBOval As String
Public Sub SetCOMBOval(myCOMBO As Variant)
If IsNull(myCOMBO) Then
COMBOval = ""
Else
COMBOval = myCOMBO
End If
End Sub
Public Function GetCOMBOval()
GetCOMBOval = COMBOval
End Function
Changing the name COMBO to something you can use, e.g. PartDescription
Then using: