L
LJG
Hi Guys,
Got an option box to filter a forms data, I have added a text box that the
query picks up the value. It works fine for option "1" and "3" but for
option2 it needs to be 1 Or 2 for the query to work correctly.
Can anyone suggest an alternative
Thanks
Les
Code Below:
Private Sub optAccountType_AfterUpdate()
If optAccountType = 1 Then
Me.txtstatus = "1"
Me.frmListing01.Requery
Else
If optAccountType = 2 Then
Me.txtstatus = "1 Or 2"
Me.frmListing01.Requery
Else
If optAccountType = 3 Then
Me.txtstatus = "3"
Me.frmListing01.Requery
End If
End If
End If
End Sub
Got an option box to filter a forms data, I have added a text box that the
query picks up the value. It works fine for option "1" and "3" but for
option2 it needs to be 1 Or 2 for the query to work correctly.
Can anyone suggest an alternative
Thanks
Les
Code Below:
Private Sub optAccountType_AfterUpdate()
If optAccountType = 1 Then
Me.txtstatus = "1"
Me.frmListing01.Requery
Else
If optAccountType = 2 Then
Me.txtstatus = "1 Or 2"
Me.frmListing01.Requery
Else
If optAccountType = 3 Then
Me.txtstatus = "3"
Me.frmListing01.Requery
End If
End If
End If
End Sub