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
__________________