(09/10/2019, 09:36)berduş yazdı: yapılan değişiklikler kırmızı ile gösterilmiştir
mdl_devir Modülü --> FazlaDagit porsedürü
Sub FazlaDagit(Optional Kimlik As String = "") ==> 
Sub FazlaDagit(Optional Kimlik As String = "", Optional OdemeSekil As String = "")
_______________________________________________________
txtKaynak = IIf(dblVerilen < dblx, " kalan " & dblBakiye + dblx, " tarihinde yatan " & dblVerilen)==>
txtKaynak = IIf(dblVerilen < dblx, " kalan " & dblBakiye + dblx, " tarihinde " & OdemeSekil & " yatan " & dblVerilen)
_______________________________________________________
FRM_UYEODEMETABLOSU formu --> OdenenTar_Click olayının tamamı
Private Sub OdenenTar_Click()
On Error GoTo Err_OdenenTar_Click
Dim SqlGuncelle As String
SqlGuncelle = " update TBLUYEGENELBIL set " & _
              " KalanPara=nz(KalanPara,0) + ccur('" & Me.txtVerilen & "') " & _
              " where KIMID=" & Me.KIMID
CurrentDb.Execute SqlGuncelle
DoCmd.RunCommand acCmdSaveRecord
If Me.kalanpara <= 0 Then Exit Sub
FazlaDagit Me.KIMID, Me.ODEMESEKLI
  Me.Requery
  Me.txtVerilen.Value = "0"
Err_OdenenTar_Click:
    'MsgBox Err.Description
    'Resume Exit_OdenenTar_Click
 
End Sub

Sayın Hocam İnşallah mesai sonrası evde bakıp döneyim