Kod:
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, , , "Stok=" & getStokNo
Exit_Komut712_Click:
Exit Sub
Err_Komut712_Click:
MsgBox Err.Description
Exit Sub
End If
MsgBox "Kayıt Bulunamadı", vbOKOnly, "Bilgi"
End Sub
