(04/05/2011, 17:34)orkuncan5 yazdı: Hocam kodlar açık ve kolay ama bilmeyene zor geliyor

Kodları inceleyin kafanıza takılanları sitede aratın ne işe yaradığını anlamaya çalışın. Baktınız olmuuyor hemen ne işe yaradığını sorun.

(04/05/2011, 17:40)emturker yazdı: Bu Benim Accessde İlk Çalışmam Dediğim Zaman Millet Dalgamı Geçiyorsun Diyor

Artık ustalık eserini görmenin zamanı geldi anlaşılan

hocam selam
mükerrer kayıt engelleme dediğiniz gibi yaptım. Çokta güzel çalışıyor.
Lakin kayıt üzerinde herhangi bir bilgiyi güncellemek istediğimizde bu sefer de aynı kayıt uyarısı yapıyor ve düzeltemeyi yada update i kabul etmiyor.
Bununla ilgili nasıl bir kod geliştirebiliriz.
saygılarımla.

(27/04/2018, 12:51)Fikri güler yazdı: hocam selam
mükerrer kayıt engelleme dediğiniz gibi yaptım. Çokta güzel çalışıyor.
Lakin kayıt üzerinde herhangi bir bilgiyi güncellemek istediğimizde bu sefer de aynı kayıt uyarısı yapıyor ve düzeltemeyi yada update i kabul etmiyor.
Bununla ilgili nasıl bir kod geliştirebiliriz.
saygılarımla.

merhaba  mevcut kod üzerinden örnek vermek gerekir ise .
mükerrer kayıt kontrolu yapılıyor fakat yinede kaydedilsinmi diye sorduralım.

Private Sub Komut109_Click()

On Error GoTo Err_Komut109_Click





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

    

        If varmi >= 1 Then

        

          If MsgBox("MÜKERRER KAYIT" & vbCrLf & "BARCOD :" & Me.BarkodNo & vbCrLf & "YİNEDE KAYDEDİLSİNMİ ?", vbCritical + vbYesNo, "AccessTR.Net") = vbYes Then

            

            DoCmd.RunCommand acCmdSaveRecord

            Else

            MsgBox "veriler kaydedilmedi"

            Me.Undo

            End If                

        Else        

            DoCmd.Close            

        End If

Exit_Komut109_Click:

    Exit Sub



Err_Komut109_Click:

    MsgBox Err.Description

    Resume Exit_Komut109_Click

    

End Sub

yaparsak olur.

tşkler...

Merhaba aynı kodu bende kullanmaya çalıştım fakat varmi = .... varmi burda ne ile bağlantılı ?