Formdaki Kredi Kartı isimli butonun tıklandığında olayına aşağıdaki kodu ekledim.
If [NAKITODEME].[Form]![KKARTI] <> 0 Then
Me.KKARTIODEME.Visible = True
Me.NAKITODEME.Visible = False
Sorgu1 = "SELECT * FROM tbl_KKARTIODEME "
Set Kayitlar = New ADODB.Recordset
Kayitlar.Open Sorgu1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
With Kayitlar
.Find "[ODEME_ID]=" & "'" & [NAKITODEME].[Form]![ODEME_ID] & "'"
If Not rstkayit.EOF Then
If .Fields("CEKIMTUTARI") <> [NAKITODEME].[Form]![KKARTI] Then
If MsgBox("Bu işleme ait ödeme " & .Fields("CEKIMTUTARI") & " olarak kaydedilmiş, ödeme" & [NAKITODEME].[Form]![KKARTI] & " ile değiştirilsin mi? ", vbYesNo, "Ödeme Bilgisi...") = vbYes Then
.Fields("CEKIMTUTARI") = [NAKITODEME].[Form]![KKARTI]
.Update
End If
End If
Else
.AddNew
.Fields("ODEME_ID") = [NAKITODEME].[Form]![ODEME_ID]
.Fields("MUSTERIADI") = [NAKITODEME].[Form]![MUSTERIADI]
.Fields("MUSTERIID") = [NAKITODEME].[Form]![MUSTERIID]
.Fields("CEKIMTAR") = [NAKITODEME].[Form]![ISLEMTARIHI]
.Fields("CEKIMTUTARI") = [NAKITODEME].[Form]![KKARTI]
.Update
End If
End With
Else
MsgBox ("Kredi Kartı çekim tutarı giriniz")
End If
Me.KKARTIODEME.Requery
