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
kod
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz