Sayın Hocalarım,
Çalışmakta olduğum projemde,
Ürün giriş formunda ürün bilgilerini içeren bilgiler bulunmakta;
Sorum şu;
Satış formunda bulunan Ürün bilgileri alanına ürün ismini veya Barkod No sunu yazdığımda ürün bilgilerini nasıl getirebilirim.
(Açılan kutu veya
Dlookup olmadan)
Saygılarımla.
Örnek uygulama olmadan yazılan cevaplar farazi olacaktır. Ki siz, örnek uygulamanız incelenip çözüm yazıldığında kendi örneğinize uygulayamıyorsunuz.
Basit kod
Private Sub mtn_urunbilgileri_AfterUpdate()
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[mtn_urunismi] Like '" & Me.mtn_urunbilgileri & "'"
If rs.NoMatch Then
rs.FindFirst "[mtn_urunbarkod] Like '" & Me.mtn_urunbilgileri & "'"
If rs.NoMatch Then
MsgBox ("kayit Yok")
End If
End If
Me.Bookmark = rs.Bookmark
End Sub
(17/07/2018, 22:36)fascioğlu yazdı: [ -> ]Ürün bilgileri alanına ürün ismini veya Barkod No sunu yazdığımda ürün bilgilerini nasıl getirebilirim.
Koddaki,
mtn_urunbilgileri = Arama yapacağınız alan
mtn_urunismi = Ürün İsminin Yazılı Olduğu Metin Kutusu
mtn_urunbarkod = Ürün Barkodunun Yazılı Olduğu Metin Kutusu
Sağolun hocam,teşekkür ederim.
Sayın Yönetici,
Konuyu kaldırabilirsiniz.Tşk.
rs.FindFirst "[mtn_urunismi] Like '" & Me.mtn_urunbilgileri & "'"
Kendi formuma bir ARA adında textbox ve arabul diye bir buton ekledim. Adi_Soyadi alanındaki kayıtlardan arama yapmasını istiyorum.
Ama olmuyor, yardımcı olurmusunuz.
Teşekkürler