Arkadaşlar kolay gelsin...

Private Sub cmdKayit_Click()

    On Error GoTo Hata



    Dim kayitID As Long

    kayitID = Nz(Me.ID.Value, 0)



    Dim veri As String

    veri = Nz(Me.lblTur.Caption, "")



    Dim Islem As String

    Dim Tarih As Variant

    Dim Uye As String

    Dim Tutar As Variant

    Dim Aciklama As String

    Dim EvrakTur As String

    Dim EvrakNo As String

    Dim EvrakTarih As Variant

    Dim odemeTarihi As Variant



    Islem = Nz(Me.Islem.Value, "")

    Tarih = Nz(Me.Tarih.Value, Null)

    Uye = Nz(Me.Uye.Value, "")

    Tutar = Nz(Me.Tutar.Value, Null)

    Aciklama = Nz(Me.Aciklama.Value, "")

    EvrakTur = Nz(Me.EvrakTur.Value, "")

    EvrakNo = Nz(Me.EvrakNo.Value, "")

    EvrakTarih = Nz(Me.EvrakTarih.Value, Null)

    odemeTarihi = Nz(Me.Odtarihi.Value, Null)



    If veri = "" Then

        MsgBox "Etikette veri yok!", vbExclamation

        Exit Sub

    End If



    If kayitID > 0 Then

        CurrentDb.Execute "UPDATE T030_BankalarIslem SET " & _

            "Tarih = " & IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _

            "Islem = '" & Replace(Islem, "'", "''") & "', " & _

            "Uye = '" & Replace(Uye, "'", "''") & "', " & _

            "Tutar = " & IIf(IsNull(Tutar), "NULL", Tutar) & ", " & _

            "Aciklama = '" & Replace(Aciklama, "'", "''") & "', " & _

            "EvrakTur = '" & Replace(EvrakTur, "'", "''") & "', " & _

            "EvrakNo = '" & Replace(EvrakNo, "'", "''") & "', " & _

            "EvrakTarih = " & IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _

            "Odtarihi = " & IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _

            "Sonuc = '" & Replace(veri, "'", "''") & "' " & _

            "WHERE ID = " & kayitID, dbFailOnError



        MsgBox "Kayıt güncellendi.", vbInformation

    Else

        CurrentDb.Execute "INSERT INTO T030_BankalarIslem " & _

            "(Tarih, Islem, Uye, Tutar, Aciklama, EvrakTur, EvrakNo, EvrakTarih, Odtarihi, Sonuc) VALUES (" & _

            IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _

            "'" & Replace(Islem, "'", "''") & "', " & _

            "'" & Replace(Uye, "'", "''") & "', " & _

            IIf(IsNull(Tutar), "NULL", Tutar) & ", " & _

            "'" & Replace(Aciklama, "'", "''") & "', " & _

            "'" & Replace(EvrakTur, "'", "''") & "', " & _

            "'" & Replace(EvrakNo, "'", "''") & "', " & _

            IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _

            IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _

            "'" & Replace(veri, "'", "''") & "')", dbFailOnError



        MsgBox "Yeni kayıt eklendi.", vbInformation

    End If



    Me.lbxData.Requery

    Exit Sub



Hata:

    MsgBox "Hata: " & Err.Description, vbCritical

End Sub

Bu kodda söz dizimi hatası alıyorum. tarihlerin bütün formatlarını denedim yine aynı . nerede kaynaklandığını bir türlü bulamadım

son olarak ölçüt ifadesinde veri türü uyuşmazlığı hatası verdi

Private Sub cmdKayit_Click()
On Error GoTo Hata

Dim kayitID As Long
kayitID = Val(Nz(Me.ID.Value, 0)) ' Metin kutusu olabilir, Val ile sayı güvenli alınır

Dim veri As String
veri = Nz(Me.lblTur.Caption, "")

Dim Islem As String
Dim Tarih As Variant
Dim Uye As String
Dim Tutar As Variant
Dim Aciklama As String
Dim EvrakTur As String
Dim EvrakNo As String
Dim EvrakTarih As Variant
Dim odemeTarihi As Variant

Islem = Nz(Me.Islem.Value, "")
Tarih = Nz(Me.Tarih.Value, Null)
Uye = Nz(Me.Uye.Value, "")
Tutar = Nz(Me.Tutar.Value, Null)
Aciklama = Nz(Me.Aciklama.Value, "")
EvrakTur = Nz(Me.EvrakTur.Value, "")
EvrakNo = Nz(Me.EvrakNo.Value, "")
EvrakTarih = Nz(Me.EvrakTarih.Value, Null)
odemeTarihi = Nz(Me.Odtarihi.Value, Null)

If veri = "" Then
MsgBox "Etikette veri yok!", vbExclamation
Exit Sub
End If

' Tutar format düzeltmesi
Dim TutarSQL As String
If IsNull(Tutar) Or Not IsNumeric(Tutar) Then
TutarSQL = "NULL"
Else
TutarSQL = Replace(Tutar, ",", ".") ' Noktalama Access içindir
End If

If kayitID > 0 Then
' GÜNCELLEME
CurrentDb.Execute _
"UPDATE T030_BankalarIslem SET " & _
"Tarih = " & IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Islem = '" & Replace(Islem, "'", "''") & "', " & _
"Uye = '" & Replace(Uye, "'", "''") & "', " & _
"Tutar = " & TutarSQL & ", " & _
"Aciklama = '" & Replace(Aciklama, "'", "''") & "', " & _
"EvrakTur = '" & Replace(EvrakTur, "'", "''") & "', " & _
"EvrakNo = '" & Replace(EvrakNo, "'", "''") & "', " & _
"EvrakTarih = " & IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Odtarihi = " & IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Sonuc = '" & Replace(veri, "'", "''") & "' " & _
"WHERE ID = " & kayitID, dbFailOnError

MsgBox "Kayıt güncellendi.", vbInformation
Else
' YENİ KAYIT
CurrentDb.Execute _
"INSERT INTO T030_BankalarIslem " & _
"(Tarih, Islem, Uye, Tutar, Aciklama, EvrakTur, EvrakNo, EvrakTarih, Odtarihi, Sonuc) VALUES (" & _
IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"'" & Replace(Islem, "'", "''") & "', " & _
"'" & Replace(Uye, "'", "''") & "', " & _
TutarSQL & ", " & _
"'" & Replace(Aciklama, "'", "''") & "', " & _
"'" & Replace(EvrakTur, "'", "''") & "', " & _
"'" & Replace(EvrakNo, "'", "''") & "', " & _
IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"'" & Replace(veri, "'", "''") & "')", dbFailOnError

MsgBox "Yeni kayıt eklendi.", vbInformation
End If

' Liste kutusunu yenile
Me.lbxData.Requery
Exit Sub

Hata:
MsgBox "Hata: " & Err.Description, vbCritical
End Sub

(29/04/2025, 16:41)C*e*l*o*y*c*e yazdı: Private Sub cmdKayit_Click()
    On Error GoTo Hata

    Dim kayitID As Long
    kayitID = Val(Nz(Me.ID.Value, 0)) ' Metin kutusu olabilir, Val ile sayı güvenli alınır

    Dim veri As String
    veri = Nz(Me.lblTur.Caption, "")

    Dim Islem As String
    Dim Tarih As Variant
    Dim Uye As String
    Dim Tutar As Variant
    Dim Aciklama As String
    Dim EvrakTur As String
    Dim EvrakNo As String
    Dim EvrakTarih As Variant
    Dim odemeTarihi As Variant

    Islem = Nz(Me.Islem.Value, "")
    Tarih = Nz(Me.Tarih.Value, Null)
    Uye = Nz(Me.Uye.Value, "")
    Tutar = Nz(Me.Tutar.Value, Null)
    Aciklama = Nz(Me.Aciklama.Value, "")
    EvrakTur = Nz(Me.EvrakTur.Value, "")
    EvrakNo = Nz(Me.EvrakNo.Value, "")
    EvrakTarih = Nz(Me.EvrakTarih.Value, Null)
    odemeTarihi = Nz(Me.Odtarihi.Value, Null)

    If veri = "" Then
        MsgBox "Etikette veri yok!", vbExclamation
        Exit Sub
    End If

    ' Tutar format düzeltmesi
    Dim TutarSQL As String
    If IsNull(Tutar) Or Not IsNumeric(Tutar) Then
        TutarSQL = "NULL"
    Else
        TutarSQL = Replace(Tutar, ",", ".") ' Noktalama Access içindir
    End If

    If kayitID > 0 Then
        ' GÜNCELLEME
        CurrentDb.Execute _
            "UPDATE T030_BankalarIslem SET " & _
            "Tarih = " & IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "Islem = '" & Replace(Islem, "'", "''") & "', " & _
            "Uye = '" & Replace(Uye, "'", "''") & "', " & _
            "Tutar = " & TutarSQL & ", " & _
            "Aciklama = '" & Replace(Aciklama, "'", "''") & "', " & _
            "EvrakTur = '" & Replace(EvrakTur, "'", "''") & "', " & _
            "EvrakNo = '" & Replace(EvrakNo, "'", "''") & "', " & _
            "EvrakTarih = " & IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "Odtarihi = " & IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "Sonuc = '" & Replace(veri, "'", "''") & "' " & _
            "WHERE ID = " & kayitID, dbFailOnError

        MsgBox "Kayıt güncellendi.", vbInformation
    Else
        ' YENİ KAYIT
        CurrentDb.Execute _
            "INSERT INTO T030_BankalarIslem " & _
            "(Tarih, Islem, Uye, Tutar, Aciklama, EvrakTur, EvrakNo, EvrakTarih, Odtarihi, Sonuc) VALUES (" & _
            IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "'" & Replace(Islem, "'", "''") & "', " & _
            "'" & Replace(Uye, "'", "''") & "', " & _
            TutarSQL & ", " & _
            "'" & Replace(Aciklama, "'", "''") & "', " & _
            "'" & Replace(EvrakTur, "'", "''") & "', " & _
            "'" & Replace(EvrakNo, "'", "''") & "', " & _
            IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "'" & Replace(veri, "'", "''") & "')", dbFailOnError

        MsgBox "Yeni kayıt eklendi.", vbInformation
    End If

    ' Liste kutusunu yenile
    Me.lbxData.Requery
    Exit Sub

Hata:
    MsgBox "Hata: " & Err.Description, vbCritical
End Sub

If kayitID > 0 Then
        ' GÜNCELLEME
        CurrentDb.Execute _
            "UPDATE T030_BankalarIslem SET " & _
            "Tarih = " & IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "Islem = '" & Replace(Islem, "'", "''") & "', " & _
            "Uye = '" & Replace(Uye, "'", "''") & "', " & _
            "Tutar = " & TutarSQL & ", " & _
            "Aciklama = '" & Replace(Aciklama, "'", "''") & "', " & _
            "EvrakTur = '" & Replace(EvrakTur, "'", "''") & "', " & _
            "EvrakNo = '" & Replace(EvrakNo, "'", "''") & "', " & _
            "EvrakTarih = " & IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "Odtarihi = " & IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "Sonuc = '" & Replace(veri, "'", "''") & "' " & _
            "WHERE ID = " & kayitID, dbFailOnError

        MsgBox "Kayıt güncellendi.", vbInformation
    Else
        ' YENİ KAYIT
        CurrentDb.Execute _
            "INSERT INTO T030_BankalarIslem " & _
            "(Tarih, Islem, Uye, Tutar, Aciklama, EvrakTur, EvrakNo, EvrakTarih, Odtarihi, Sonuc) VALUES (" & _
            IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "'" & Replace(Islem, "'", "''") & "', " & _
            "'" & Replace(Uye, "'", "''") & "', " & _
            TutarSQL & ", " & _
            "'" & Replace(Aciklama, "'", "''") & "', " & _
            "'" & Replace(EvrakTur, "'", "''") & "', " & _
            "'" & Replace(EvrakNo, "'", "''") & "', " & _
            IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
            "'" & Replace(veri, "'", "''") & "')", dbFailOnError
[/quote]

kısmı hata verdi ID metin kutusu değil ComboBox

(29/04/2025, 16:41)C*e*l*o*y*c*e yazdı: Private Sub cmdKayit_Click()
On Error GoTo Hata

Dim kayitID As Long
kayitID = Val(Nz(Me.ID.Value, 0)) ' Metin kutusu olabilir, Val ile sayı güvenli alınır

Dim veri As String
veri = Nz(Me.lblTur.Caption, "")

Dim Islem As String
Dim Tarih As Variant
Dim Uye As String
Dim Tutar As Variant
Dim Aciklama As String
Dim EvrakTur As String
Dim EvrakNo As String
Dim EvrakTarih As Variant
Dim odemeTarihi As Variant

Islem = Nz(Me.Islem.Value, "")
Tarih = Nz(Me.Tarih.Value, Null)
Uye = Nz(Me.Uye.Value, "")
Tutar = Nz(Me.Tutar.Value, Null)
Aciklama = Nz(Me.Aciklama.Value, "")
EvrakTur = Nz(Me.EvrakTur.Value, "")
EvrakNo = Nz(Me.EvrakNo.Value, "")
EvrakTarih = Nz(Me.EvrakTarih.Value, Null)
odemeTarihi = Nz(Me.Odtarihi.Value, Null)

If veri = "" Then
MsgBox "Etikette veri yok!", vbExclamation
Exit Sub
End If

' Tutar format düzeltmesi
Dim TutarSQL As String
If IsNull(Tutar) Or Not IsNumeric(Tutar) Then
TutarSQL = "NULL"
Else
TutarSQL = Replace(Tutar, ",", ".") ' Noktalama Access içindir
End If

If kayitID > 0 Then
' GÜNCELLEME
CurrentDb.Execute _
"UPDATE T030_BankalarIslem SET " & _
"Tarih = " & IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Islem = '" & Replace(Islem, "'", "''") & "', " & _
"Uye = '" & Replace(Uye, "'", "''") & "', " & _
"Tutar = " & TutarSQL & ", " & _
"Aciklama = '" & Replace(Aciklama, "'", "''") & "', " & _
"EvrakTur = '" & Replace(EvrakTur, "'", "''") & "', " & _
"EvrakNo = '" & Replace(EvrakNo, "'", "''") & "', " & _
"EvrakTarih = " & IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Odtarihi = " & IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Sonuc = '" & Replace(veri, "'", "''") & "' " & _
"WHERE ID = " & kayitID, dbFailOnError

MsgBox "Kayıt güncellendi.", vbInformation
Else
' YENİ KAYIT
CurrentDb.Execute _
"INSERT INTO T030_BankalarIslem " & _
"(Tarih, Islem, Uye, Tutar, Aciklama, EvrakTur, EvrakNo, EvrakTarih, Odtarihi, Sonuc) VALUES (" & _
IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"'" & Replace(Islem, "'", "''") & "', " & _
"'" & Replace(Uye, "'", "''") & "', " & _
TutarSQL & ", " & _
"'" & Replace(Aciklama, "'", "''") & "', " & _
"'" & Replace(EvrakTur, "'", "''") & "', " & _
"'" & Replace(EvrakNo, "'", "''") & "', " & _
IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"'" & Replace(veri, "'", "''") & "')", dbFailOnError

MsgBox "Yeni kayıt eklendi.", vbInformation
End If

' Liste kutusunu yenile
Me.lbxData.Requery
Exit Sub

Hata:
MsgBox "Hata: " & Err.Description, vbCritical
End Sub

If kayitID > 0 Then
' GÜNCELLEME
CurrentDb.Execute _
"UPDATE T030_BankalarIslem SET " & _
"Tarih = " & IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Islem = '" & Replace(Islem, "'", "''") & "', " & _
"Uye = '" & Replace(Uye, "'", "''") & "', " & _
"Tutar = " & TutarSQL & ", " & _
"Aciklama = '" & Replace(Aciklama, "'", "''") & "', " & _
"EvrakTur = '" & Replace(EvrakTur, "'", "''") & "', " & _
"EvrakNo = '" & Replace(EvrakNo, "'", "''") & "', " & _
"EvrakTarih = " & IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _


"Odtarihi = " & IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Sonuc = '" & Replace(veri, "'", "''") & "' " & _
"WHERE ID = " & kayitID, dbFailOnError

MsgBox "Kayıt güncellendi.", vbInformation
Else
' YENİ KAYIT
CurrentDb.Execute _
"INSERT INTO T030_BankalarIslem " & _
"(Tarih, Islem, Uye, Tutar, Aciklama, EvrakTur, EvrakNo, EvrakTarih, Odtarihi, Sonuc) VALUES (" & _
IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"'" & Replace(Islem, "'", "''") & "', " & _
"'" & Replace(Uye, "'", "''") & "', " & _
TutarSQL & ", " & _
"'" & Replace(Aciklama, "'", "''") & "', " & _
"'" & Replace(EvrakTur, "'", "''") & "', " & _
"'" & Replace(EvrakNo, "'", "''") & "', " & _
IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _


kısmı hata verdi ID metin kutusu değil ComboBox

Private Sub cmdKayit_Click()
On Error GoTo Hata

' Kayıt ID güvenli şekilde alınır
Dim kayitID As Long
If IsNumeric(Nz(Me.ID.Value, "")) Then
kayitID = CLng(Me.ID.Value)
Else
kayitID = 0
End If

' Değişkenler
Dim veri As String
veri = Nz(Me.lblTur.Caption, "")

Dim Islem As String
Dim Tarih As Variant
Dim Uye As String
Dim Tutar As Variant
Dim Aciklama As String
Dim EvrakTur As String
Dim EvrakNo As String
Dim EvrakTarih As Variant
Dim odemeTarihi As Variant

Islem = Nz(Me.Islem.Value, "")
Tarih = Nz(Me.Tarih.Value, Null)
Uye = Nz(Me.Uye.Value, "")
Tutar = Nz(Me.Tutar.Value, Null)
Aciklama = Nz(Me.Aciklama.Value, "")
EvrakTur = Nz(Me.EvrakTur.Value, "")
EvrakNo = Nz(Me.EvrakNo.Value, "")
EvrakTarih = Nz(Me.EvrakTarih.Value, Null)
odemeTarihi = Nz(Me.Odtarihi.Value, Null)

' Tutar NULL ise boş yazılacak
Dim TutarSQL As String
TutarSQL = IIf(IsNull(Tutar) Or Tutar = "", "NULL", Replace(Tutar, ",", "."))

' Etiket kontrolü
If veri = "" Then
MsgBox "Etikette veri yok!", vbExclamation
Exit Sub
End If

If kayitID > 0 Then
' GÜNCELLEME
CurrentDb.Execute _
"UPDATE T030_BankalarIslem SET " & _
"Tarih = " & IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Islem = '" & Replace(Islem, "'", "''") & "', " & _
"Uye = '" & Replace(Uye, "'", "''") & "', " & _
"Tutar = " & TutarSQL & ", " & _
"Aciklama = '" & Replace(Aciklama, "'", "''") & "', " & _
"EvrakTur = '" & Replace(EvrakTur, "'", "''") & "', " & _
"EvrakNo = '" & Replace(EvrakNo, "'", "''") & "', " & _
"EvrakTarih = " & IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Odtarihi = " & IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"Sonuc = '" & Replace(veri, "'", "''") & "' " & _
"WHERE ID = " & kayitID, dbFailOnError

MsgBox "Kayıt güncellendi.", vbInformation
Else
' YENİ KAYIT
CurrentDb.Execute _
"INSERT INTO T030_BankalarIslem " & _
"(Tarih, Islem, Uye, Tutar, Aciklama, EvrakTur, EvrakNo, EvrakTarih, Odtarihi, Sonuc) VALUES (" & _
IIf(IsDate(Tarih), "#" & Format(Tarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"'" & Replace(Islem, "'", "''") & "', " & _
"'" & Replace(Uye, "'", "''") & "', " & _
TutarSQL & ", " & _
"'" & Replace(Aciklama, "'", "''") & "', " & _
"'" & Replace(EvrakTur, "'", "''") & "', " & _
"'" & Replace(EvrakNo, "'", "''") & "', " & _
IIf(IsDate(EvrakTarih), "#" & Format(EvrakTarih, "yyyy-mm-dd") & "#", "NULL") & ", " & _
IIf(IsDate(odemeTarihi), "#" & Format(odemeTarihi, "yyyy-mm-dd") & "#", "NULL") & ", " & _
"'" & Replace(veri, "'", "''") & "')", dbFailOnError

MsgBox "Yeni kayıt eklendi.", vbInformation
End If

Me.lbxData.Requery
Exit Sub

Hata:
MsgBox "Hata: " & Err.Description, vbCritical
End Sub