yalnız şurada bir hata var. metin kutusuna veri giriyorum buton aktifleşiyor butonda da openform özelliği var form açıldıktan sonra veri siliniyor. yani metin kutusunda bulunan veri boşalmış oluyor.
 
sayın kemiksizm,
sorunu yaşadığınız uygulamanızı ekleyebilir misiniz lütfen.teşekkürler.
iyi çalışmalar,
saygılar.
 
sayın kemiksizm,
yeni bir çalışma yaptınız mı bilmiyorum fakat ben bu bahsettiğiniz duruma dair,eski eklediğiniz örneğinizden bir çalışma hazırladım.inceleyebilirsiniz.
iyi çalışmalar,
saygılar.
 
farklı bir çalışma yaptım butonu pasifleştirmektense 
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