(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