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