Eğer veritabanına bir kullanıcı aynı ay içerisinde sadece bir kayıt girsin diyorsanız; işte size Dataenvironment ve SQL içeren örnek bir kod…
sub kayitkontrol()
‘kulanıcı aynı ay içerisinde sadece bir kayıt girebilsin….
sorgu = Text1.Text
trh = Right(Text4.Text, 7)
Set conn = New ADODB.Connection
With conn
‘Bağlantı için OleDB provider ı set ediliyor…
.Provider = “Microsoft.JET.OLEDB.4.0″
‘ edbs.mdb için bir bağlantı açı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 içerisinde birden fazla kayıt yaratamazsınız!”, vbCritical, “DİKKAT!!!”
Text1.SetFocus
Exit Sub
‘daha önce bir kayıt yoksa kayıt başlıyor.***************************
Else
Call giriskontrol
End If
End Sub
No Comments on "Veri tabanında girilecek kayıtın kontrolü…"