Private Sub Komut2_Click()
If IsNull(Me.Metin0) Then
MsgBox "Lütfen Bilgilerden en az T.C. Kimlik No. Giriniz..", , "Tahkikat Programı"
Else
stDocName = "supavsiz"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End Sub
diye kod hazırladım böylece doğal olarak pasif oldu ama sizin kodlarınızdan yararladınmış oldum saolun
