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

[mazoolagh]

کد بخش 1

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