فیلتر کردم فرم قبل از باز کردن آن

[mazoolagh]

کد بخش 2

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