AccessTr.neT

Tam Versiyon: Mükerrer kayıt engelleme hakkında
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
(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
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ı ?
Sayfalar: 1 2