Skip to main content

AccessTr.neT


metin kutusunda denetleme

metin kutusunda denetleme

Çözüldü #7
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...Img-cray
malidolu, 12-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #8
kodu güncelleme öncesindeye yazın ve en sonunda

undo

kullanın..
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #9
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
malidolu, 12-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #10
Bazı şeyleri çok bilmek ve abartmak iyi değil işte.. Img-grinBen 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 Sub

Böyle deneyin. Ben denedim çünkü..
İnadına, ille de Accesstr.net...
Cevapla
Çözüldü #11
Teşekkürler
Bizimki bilgisizlikten,yardımınız için teşekkürler.Allah razı olsun Img-grin
malidolu, 12-09-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da