Formda yeni ürün girişine tıkladığımda yeni bir form açılmaktadır.Burada eğer ürün barkod nosu daha önce girilmiş ise uyarı versin istiyorum.Yardımcı olursanız sevinirim.

YeniÜrün formunu tasarım görünümünde açın. Onay yazısı bulunan butonun tıklandığında kodu aşağıdaki gibi olacaktır:

Private Sub Komut109_Click()

On Error GoTo Err_Komut109_Click





    varmi = DCount("BarkodNo", "TbStok", "BarkodNo='" & Me.BarkodNo & "'")

    

        If varmi >= 1 Then

        

            MsgBox "Bu barkod numarası daha önce sisteme kaydedilmiş lütfen kontrol ediniz.", vbCritical + vbOKOnly, "AccessTR.Net"

            Me.BarkodNo.Undo

                

        Else

        

            DoCmd.Close

            

        End If





Exit_Komut109_Click:

    Exit Sub



Err_Komut109_Click:

    MsgBox Err.Description

    Resume Exit_Komut109_Click

    

End Sub

Teşekkür ederim Sayın Alpeki99 , pekala bu kodu yeni kayıt butonuna nasıl uyarlarım.Yani yeni kayıt butonuna tıkladığımdada uyarı vermesini nasıl sağlarım

---

Teşekkür ederim Sayın Alpeki99 , pekala bu kodu yeni kayıt butonuna nasıl uyarlarım.Yani yeni kayıt butonuna tıkladığımdada uyarı vermesini nasıl sağlarım

Kodlar açık balık almayın balık tutmayı öğrenin. Her kafanıza takılanı çekinmeden sorun yeterki öğrenmek isteyin 20 defa da sorsanız yanıt verir kodların ne işe yaradığını anlatırım. (Sınır 20 )

NOT : Murat hocam ne market programı yapmışsın helal olsun 40 türlü varyasyonu oldu piyasada sen bunu ticari dağıtsan Koç senin yanında kuzu kalırdı

Hocam kodlar açık ve kolay ama bilmeyene zor geliyor

(04/05/2011, 17:28)alpeki99 yazdı: Kodlar açık balık almayın balık tutmayı öğrenin. Her kafanıza takılanı çekinmeden sorun yeterki öğrenmek isteyin 20 defa da sorsanız yanıt verir kodların ne işe yaradığını anlatırım. (Sınır 20 )

NOT : Murat hocam ne market programı yapmışsın helal olsun 40 türlü varyasyonu oldu piyasada sen bunu ticari dağıtsan Koç senin yanında kuzu kalırdı

Bu Benim Accessde İlk Çalışmam Dediğim Zaman Millet Dalgamı Geçiyorsun Diyor

---

Ama Kısmetse Bu Yaz Daha Prof.Yapıcam Olacak