" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "şeklindeki kodu aşağıdaki ile değiştiriniz.
'" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "'Kodun tamamı:
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
If DCount("*", "pesinsatislar", "[odeme_sira]=" & Me.SIRA) <> 0 Then
DoCmd.SetWarnings False
Select Case Me.Açılan_Kutu18
Case "NAKİT"
DoCmd.RunSQL "UPDATE pesinsatislar SET TARİH = '" & Me.TARİH & "', GİREN = " & Me.ALINAN & ", KREDİKARTI = 0, AÇIKLAMA = '" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "' WHERE (((odeme_sira)=" & Me.SIRA & "))"
Exit Sub
Case "KREDİ K."
DoCmd.RunSQL "UPDATE pesinsatislar SET TARİH = '" & Me.TARİH & "', GİREN = 0, KREDİKARTI = " & Me.ALINAN & ", AÇIKLAMA = '" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "' WHERE (((odeme_sira)=" & Me.SIRA & "))"
Exit Sub
End Select
DoCmd.SetWarnings True
Exit Sub
Else
DoCmd.SetWarnings False
Select Case Me.Açılan_Kutu18
Case "NAKİT"
DoCmd.RunSQL "INSERT INTO pesinsatislar ([odeme_sira],[KODU],[AÇIKLAMA],[TARİH],[GİREN]) VALUES (" & Me.SIRA & "," & 0 & ",'" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "','" & Me.TARİH & "'," & Me.ALINAN & ")"
Exit Sub
Case "KREDİ K."
DoCmd.RunSQL "INSERT INTO pesinsatislar ([odeme_sira],[KODU],[AÇIKLAMA],[TARİH],[KREDİKARTI]) VALUES (" & Me.SIRA & "," & 0 & ",'" & Dlookup ("[ADI_SOYADI]", "MÜŞTERİ", "[KODU]= " & Me.KODU) & "','" & Me.TARİH & "'," & Me.ALINAN & ")"
Exit Sub
End Select
DoCmd.SetWarnings True
End If