Skip to main content

AccessTr.neT


Mükerrer kayıt engelleme hakkında

Mükerrer kayıt engelleme hakkında

Çözüldü #7
(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
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
#8
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.
Cevapla
#9
(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.
Universal Form Tasarımı. devamlı güncelleniyor.
SQL TO Vba Convertör.
Cevapla
#10
tşkler...
Cevapla
#11
Merhaba aynı kodu bende kullanmaya çalıştım fakat varmi = .... varmi burda ne ile bağlantılı ?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task