Skip to main content

AccessTr.neT


Inputbox Ile Arama Sonuçları

Inputbox Ile Arama Sonuçları

Çözüldü #1
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.
.rar Ornek.rar (Dosya Boyutu: 24,4 KB | İndirme Sayısı: 2)
Cevapla
#2
Merhaba Örneği İncelermisin.
.rar Ornek (3).rar (Dosya Boyutu: 33,32 KB | İndirme Sayısı: 4)
Cevapla
#3
(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..
Cevapla
#4
Rica Ederim İyi Çalışmalar.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task