Access Sözdizimi Hatası - Baskı Önizleme

Access Sözdizimi Hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Sözdizimi Hatası (/konu-access-sozdizimi-hatasi.html)

Sayfalar: 1 2

Access Sözdizimi Hatası - HORZUM - 29/04/2025

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

RE: Access Sözdizimi Hatası - HORZUM - 29/04/2025

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

RE: Access Sözdizimi Hatası - C*e*l*o*y*c*e - 29/04/2025

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

RE: Access Sözdizimi Hatası - HORZUM - 29/04/2025

(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

RE: Access Sözdizimi Hatası - HORZUM - 29/04/2025

(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

RE: Access Sözdizimi Hatası - C*e*l*o*y*c*e - 29/04/2025

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