Ad metin kutusunun tıklandığında olayına

Private Sub Ad_Click()



Dim Notum As String

Dim kriter As String



Notum = "Form3"



kriter = "[sno]=" & Me.sno



DoCmd.OpenForm Notum, , , kriter

   

End Sub

Yazmayı deneyin
Ayrıca Form3 için bir de kapat butonu koymanız daha güzel olacağı kanaatindeyim.