Inputbox Ile Arama Sonuçları

08/01/2022, 14:03

ankarx

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

Bu 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.
08/01/2022, 17:34

lemoncher2

Merhaba Örneği İncelermisin.
08/01/2022, 20:01

ankarx

(08/01/2022, 17:34)lemoncher2 yazdı: Merhaba Örneği İncelermisin.

Çok teşekkürler, her iki sorunu da halletmişsiniz sayenizde hatalarımı gördüm. İlginiz için çok teşekkür ederim, kolay gelsin..
08/01/2022, 20:03

lemoncher2

Rica Ederim İyi Çalışmalar.