AccessTr.neT
Inputbox Ile Arama Sonuçları - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Inputbox Ile Arama Sonuçları (/konu-inputbox-ile-arama-sonuclari.html)

Inputbox Ile Arama Sonuçları - ankarx - 08/01/2022

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.

RE: Inputbox Ile Arama Sonuçları - lemoncher2 - 08/01/2022

Merhaba Örneği İncelermisin.

RE: Inputbox Ile Arama Sonuçları - ankarx - 08/01/2022

(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..

RE: Inputbox Ile Arama Sonuçları - lemoncher2 - 08/01/2022

Rica Ederim İyi Çalışmalar.