Kod:
kriterim = "[ad]='" & Me.[ad] & "' And [hizmetad]='" & Me.[hizmetad] & "'"
stDocName = "form1"
DoCmd.OpenForm stDocName, , , stLinkCriteria
sadece ilgili satırı aşağıdaki şekilde düzeltin, çalışır.
Kod:
DoCmd.OpenForm stDocName, , , kriterim