(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.
Merhaba aynı kodu bende kullanmaya çalıştım fakat varmi = .... varmi burda ne ile bağlantılı ?