Kod:
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FILTRELEME"
stLinkCriteria = "[No]=" & Me![TumListe]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "SARAMA"
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FILTRELEME"
stLinkCriteria = "[No]=" & Me![TumListe]
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "SARAMA"