Option Compare Database

Public rstkayit As ADODB.Recordset

Dim strSQL As String

Const tarfor = "\#mm\/dd\/yyyy\#"

Private Sub Komut16_Click()

Call arakaydet

End Sub

Function arakaydet()

Dim strWhere As String

' kriter alanlarını kontrol ediyoruz

 If Len(Me.tarih & vbNullString) > 0 Then

 strWhere = strWhere & "Tablo2.tarih= " & Format(Me.tarih, tarfor) & "AND "

 End If

 If Len(Me.ilce & vbNullString) > 0 Then

 strWhere = strWhere & "Tablo2.ilce='" & Me.ilce & "' AND "

 End If

 If Len(Me.semineradi & vbNullString) > 0 Then

 strWhere = strWhere & "Tablo2.semineradi='" & Me.semineradi & "' AND "

 End If

' where ekleme ve fazla and leri kaldırma

 If Len(strWhere) > 0 Then

 strWhere = " WHERE " & Left(strWhere, Len(strWhere) - 4)

 End If



 strSQL = "SELECT * FROM Tablo2 " & strWhere & ";"

 Set rstkayit = New ADODB.Recordset

rstkayit.Open strSQL, CurrentProject.Connection, adOpenStatic, adLockReadOnly

 

 If Not rstkayit.BOF And Not rstkayit.EOF Then

MsgBox "BU TARİH VE BU İLÇEDE YAZDIĞINIZ SEMİNER BULUNMAKTADIR."

 Else

 strSQL = "SELECT * FROM Tablo2 "

 Set rstkayit = New ADODB.Recordset

 rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

With rstkayit

.AddNew

.Fields("tarih") = Me.tarih

.Fields("ilce") = Me.ilce

.Fields("semineradi") = Me.semineradi

.Update

End With

 MsgBox "KAYDINIZ YAPILDI ALANLAR BOŞALTILDI"

 Me.tarih = ""

 Me.ilce = ""

 Me.semineradi = ""

 End If

End Function