Option Compare Database
Option Explicit
Private Sub B1_Click() ' WHERE
If Me.Country.Value = AnyItem Then
TempVars!Location = ""
DoCmd.OpenForm "Customers", , , , , acDialog
Else
TempVars!Location = " Country=" & Me.Country.Value
DoCmd.OpenForm "Customers", , , "Country='" & Me.Country.Value & "'", , acDialog
End If
End Sub
Private Sub B2_Click() ' FILTER
If Me.City.Value = AnyItem Then
TempVars!Location = ""
DoCmd.OpenForm "Customers", , , , , acDialog
Else
TempVars!Location = " City=" & Me.City.Value
DoCmd.OpenForm "Customers", , "CustomersByCity", , , acDialog
End If
End Sub
Private Sub B3_Click() ' OpenArgs
TempVars!Text2 = Nz(Me.TB2.Value, "")
Text3 = Nz(Me.TB3.Value, "")
DoCmd.OpenForm "Form1", , , , , acDialog, Nz(Me.TB1.Value, "")
End Sub
Private Sub City_AfterUpdate()
Me.City.Value = Nz(Me.City.Value, AnyItem)
End Sub
Private Sub Country_AfterUpdate()
Me.Country.Value = Nz(Me.Country.Value, AnyItem)
End Sub
Private Sub Country_NotInList(NewData As String, Response As Integer)
Me.Country.Value = Me.Country.ItemData(0)
Response = acDataErrContinue
End Sub
Private Sub City_NotInList(NewData As String, Response As Integer)
Me.City.Value = Me.City.ItemData(0)
Response = acDataErrContinue
End Sub
Private Sub Form_Open(Cancel As Integer)
TempVars.Add "Location", ""
TempVars.Add "Text2", ""
Me.Country.Value = AnyItem
Me.City.Value = AnyItem
End Sub
Private Sub Form_Close()
TempVars.RemoveAll
End Sub