Hi, I have been doing combox filter for a while now and it works fine except for this one Form named Messung.
The form has a subform named sfmMessung and I would like to filter the records according to locations, thus, I invented the combobox for the location named cboStandort.
Below is the vba codes that I use for the combobox:
When I run the Form and clicked on the combobox, a window for Enter Parameter Value came out with the indBemusterungsstelle below it.
It confuses me because I have another form with the same combobox filter and it works ok. So I applied the same technique and codes to this Form but this parameter thing happen.
I have provided photos of the Query for the subform and combobox to make it clear.
But I appologize if it gives you headache because it's in german.
Can anybody tell me what's wrong with the parameter value?
The form has a subform named sfmMessung and I would like to filter the records according to locations, thus, I invented the combobox for the location named cboStandort.
Below is the vba codes that I use for the combobox:
Code:
Private Sub cboStandort_AfterUpdate()
If IsNull(cboStandort.value) Then
sfmMessung.Form.FilterOn = False
Else
sfmMessung.Form.FilterOn = True
sfmMessung.Form.Filter = "indBemusterungsstelle = " & cboStandort.value
End If
End Sub
When I run the Form and clicked on the combobox, a window for Enter Parameter Value came out with the indBemusterungsstelle below it.
It confuses me because I have another form with the same combobox filter and it works ok. So I applied the same technique and codes to this Form but this parameter thing happen.
I have provided photos of the Query for the subform and combobox to make it clear.
But I appologize if it gives you headache because it's in german.
Can anybody tell me what's wrong with the parameter value?