08/01/2022, 14:03
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 SubBu kodlar ile inputbox yardımıyla arama yaptırıyorum fakat kayıt bulunamaz ise "kayıt bulunamadı" hatası vermesini istiyorum fakat yapamadım, hatam hangi noktada? Ayrıca aramanın stok numarasının bir kısmını değil de tam sonuç içermesini istiyorum yani birebir arama yapmak istiyorum. Yardımcı olursanız sevinirim.