Skip to main content

AccessTr.neT


metin kutusunda denetleme

metin kutusunda denetleme

Çö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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
metin kutusunda denetleme - Yazar: malidolu - 25/09/2009, 11:46
Cvp: metin kutusunda denetleme - Yazar: Nurullah_Serdar - 25/09/2009, 11:57
Cvp: metin kutusunda denetleme - Yazar: cuneyt - 25/09/2009, 12:00
Cvp: metin kutusunda denetleme - Yazar: Bilgisayarcı - 25/09/2009, 12:26
Cvp: metin kutusunda denetleme - Yazar: Nurullah_Serdar - 25/09/2009, 12:45
Cvp: metin kutusunda denetleme - Yazar: benremix - 25/09/2009, 16:46
Cvp: metin kutusunda denetleme - Yazar: malidolu - 25/09/2009, 22:14
Cvp: metin kutusunda denetleme - Yazar: mehmetdemiral - 25/09/2009, 22:25
Cvp: metin kutusunda denetleme - Yazar: malidolu - 25/09/2009, 23:32
Cvp: metin kutusunda denetleme - Yazar: mehmetdemiral - 26/09/2009, 09:22
Cvp: metin kutusunda denetleme - Yazar: malidolu - 26/09/2009, 17:38
Task