Ö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