Form açtıracağın butona aşağıdaki kodu yaz
Kod:
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "RAPORADI"
stLinkCriteria = "[SNO]=" & Me![SNO]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Filtre: ([SNO]= 1)
Filtre Açık: evet