+- 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ığı: metin kutusunda denetleme (/konu-metin-kutusunda-denetleme.html)
Sayfalar:
1
2
Cvp: metin kutusunda denetleme - malidolu - 25/09/2009
Yardımlarınız için teşekkürler.
Sanırım tam olarak anlatamadım sorunu.
Yeni bir kayıt yapıldığında eğer bu kayıt var ise mesaj verip bu kaydın olduğunu işleme devam edilip edilmemesini sormasını cevap hayır ise kaydı yapmamasını istiyorum.Yukarıdaki kod mesaj veriyor fakat,forumdan çıkıldığında yinede tabloya kayıt yapıyor...
Cvp: metin kutusunda denetleme - mehmetdemiral - 25/09/2009
kodu güncelleme öncesindeye yazın ve en sonunda
undo
kullanın..
Cvp: metin kutusunda denetleme - malidolu - 25/09/2009
Arkadaşlar kodu aşağıdaki şekilde değiştirdim .
Private Sub FirstName_BeforeUpdate(Cancel As Integer)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * From model_cesıt where HesapNumarası='" & Me.HesapNumarası & "'")
If rst.RecordCount >= 1 Then
MsgBox "GİRİLEN KOD NUMARASI DAHA ÖNCE KULLANILMIŞ !!!!"
Me.FirstName.Undo
End If
End Sub
Fakat o kodla tabloya kayıt yapmaya devam ediyor ...Saygılar
Cvp: metin kutusunda denetleme - mehmetdemiral - 26/09/2009
Bazı şeyleri çok bilmek ve abartmak iyi değil işte..
Ben sadece undo demiştim.Kod:
Private Sub FirstName_BeforeUpdate(Cancel As Integer)
Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * From model_cesıt where HesapNumarası='" & Me.HesapNumarası & "'")
If rst.RecordCount >= 1 Then
MsgBox "GİRİLEN KOD NUMARASI DAHA ÖNCE KULLANILMIŞ !!!!"
Undo
End If
End SubCvp: metin kutusunda denetleme - malidolu - 26/09/2009
Teşekkürler
Bizimki bilgisizlikten,yardımınız için teşekkürler.Allah razı olsun