I keep getting an error:
run-time error '2185'
"you can't reference a property or method for a control unless the control
has the focus."
There is no problem with CheckFilter function, I checked.
My Code:
Thanks
run-time error '2185'
"you can't reference a property or method for a control unless the control
has the focus."
There is no problem with CheckFilter function, I checked.
My Code:
Private Sub Building_AfterUpdate()
Call CheckFilter
Dim sBuildingRoom As String
sBuildingRoom = "SELECT DISTINCT Location.[Location ID],Location.Room " & _
"FROM Building INNER JOIN Location ON Building.[Building ID]=Location.[Building ID]" & _
"WHERE Building.[Building Name]= '" & Me.Building.Text & "'" & _
"ORDER by Location.Room"
Me.Location.RowSource = sBuildingRoom
Me.Location.Requery
End Sub
Thanks