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 SubBu kodda söz dizimi hatası alıyorum. tarihlerin bütün formatlarını denedim yine aynı . nerede kaynaklandığını bir türlü bulamadım
