Kod:
Private Sub Ziyaretci_Ad_Soyad_DblClick(Cancel As Integer)
Dim acilacak_form As String
Dim kriter As String
acilacak_form = "KİMLİK"
kriter = "[Ziyaretci_Ad_Soyad]=" & "'" & Me![Ziyaretci_Ad_Soyad] & "'"
If kriter = "[Ziyaretci_Ad_Soyad]=" Then
MsgBox ("Lütfen açmak istediğiniz kriteri seçin...")
Else
DoCmd.OpenForm acilacak_form, , , kriter
End If
End Sub