AccessTr.neT
Mükerrer kayıt engelleme hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Mükerrer kayıt engelleme hakkında (/konu-mukerrer-kayit-engelleme-hakkinda.html)

Sayfalar: 1 2

Cvp: Mükerrer kayıt engellme hakkında - alpeki99 - 04/05/2011

(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 DiyorRoflmaoRoflmao

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

Cvp: Mükerrer kayıt engelleme hakkında - Fikri güler - 27/04/2018

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.

Cvp: Mükerrer kayıt engelleme hakkında - A.Kadir. - 27/04/2018

(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.

Cvp: Mükerrer kayıt engelleme hakkında - Fikri güler - 28/04/2018

tşkler...

Cvp: Mükerrer kayıt engelleme hakkında - okan60 - 20/06/2018

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