Eğer veritabanına bir kullanıcı aynı ay icerisinde sadece bir kayıt girsin diyorsanız; işte size Dataenvironment ve SQL iceren ornek bir kod...
sub kayitkontrol()
'kulanıcı aynı ay icerisinde sadece bir kayıt girebilsin....
sorgu = Text1.Text
trh = Right(Text4.Text, 7)
Set conn = New ADODB.Connection
With conn
'Bağlantı icin OleDB provider ı set ediliyor...
.Provider = "Microsoft.JET.OLEDB.4.0"
' edbs.mdb icin bir bağlantı acılıyor
.Open App.Path & "\mtvdb.mdb"
End With
Set rst = New ADODB.Recordset
With rst
.ActiveConnection = conn
.Open "SELECT * FROM tblMain WHERE (degerlendiren = '" + sorgu + "') AND (trh = '" & trh & "')", conn, adOpenDynamic, adLockBatchOptimistic
'AND (kayıt_tarihi = '" & trh & "')"
End With
If rst.BOF = False Or rst.EOF = False Then
MsgBox "Aynı ay icerisinde birden fazla kayıt yaratamazsınız!", vbCritical, "DİKKAT!!!"
Text1.SetFocus
Exit Sub
'daha once bir kayıt yoksa kayıt başlıyor.***************************
Else
Call giriskontrol
End If
End Sub
__________________
Veri tabanında girilecek kayıtın kontrolu... >>Baksana59 katkısı !
Programlama0 Mesaj
●22 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Veri tabanında girilecek kayıtın kontrolu... >>Baksana59 katkısı !