(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