Private Sub Komut712_Click()
 
    Dim stDocName As String
    Dim getStokNo As String
            getStokNo = InputBox("Aramak İstediğiniz Stok No Yazınız", "StokNo Yazmadınız")
           If getStokNo = "" Or IsNull(StokNo) Then
               'do Nothing
           Else
           stDocName = "Sekme"
            DoCmd.OpenForm stDocName, , , "StokNo=" & getStokNo
 Exit_Komut712_Click:
 Exit Sub
Err_Komut712_Click:
MsgBox Err.Description
 Exit Sub
 End If
MsgBox "Kayıt Bulunamadı", vbOKOnly, "Bilgi"
 End Sub

Private Sub Komut712_Click()
        Dim getStokNo As String
                getStokNo = InputBox("Aramak İstediğiniz Stok No Yazınız", "StokNo")
            If getStokNo = "" Or IsNull(StokNo) Then
                 MsgBox "StokNo Yazmadınız"
            Else
                Dim Kyt As Object
                Set Kyt = Me.Recordset.Clone
                 Kyt.FindFirst "Stok=" & getStokNo
                 If Not Kyt.EOF Then Me.Bookmark = Kyt.Bookmark
                 If Kyt(1) <> getStokNo Then MsgBox "Kayıt Bulunamadı", vbOKOnly, "Bilgi"
            End If
 End Sub