kendi isteğinize göre diğer kodları eklersiniz
If Forms![F_TAHSILAT]![KALAN] = 0 Then
MsgBox ("Tam")
'Tam ödeme yapıldıysa yazılacak kodlar
ElseIf Forms![F_TAHSILAT]![KALAN].Value < 0 Then
MsgBox ("Eksik")
'Eksik ödeme yapıldıysa yazılacak kodlar
Else
MsgBox ("Fazla")
'Fazla ödeme yapıldıysa yazılacak kodlar
End If
Public Function BosKontrol_3(frm As Form) 'TAHSILAT FORMUNDAKİ ÖDEMEYİ GERÇEKLEŞTİR KODU
Forms(formadi).TimerInterval = 0
formadi = frm.Name
BosAra
'Boş alan varsa detaylı olarak mesaja veriyor..
If trz > 0 Then
a = Right(a, Len(a) - 2)
MsgBox "Boş bırakmamanız gereken " & trz & " alan var ..:" _
& Chr(13) & Chr(13) & "Bu Alanları Doldurun!", vbCritical, "Site Gelir / Gider Takip Programı"
'Boş olan ilk alanın ismini bulur ve odaklanıyor..
If trz = 1 Then
b = a
Else
b = Left(a, InStr(1, a, ",") - 1)
End If
Forms(formadi).Controls(b).SetFocus
Forms(formadi).TimerInterval = 500
'Forms(formadi).kontrolBtn.Caption = trz & " Boş Alan Var."
Else
Forms(formadi).TimerInterval = 0
SekmeAyar
'İSTENEN İŞLEM KODU BURAYA YAZILACAK
If Forms![F_TAHSILAT]![KALAN] = 0 Then
MsgBox ("Tam")
'Tam ödeme yapıldıysa yazılacak kodlar
ElseIf Forms![F_TAHSILAT]![KALAN].Value < 0 Then
MsgBox ("Eksik")
'Eksik ödeme yapıldıysa yazılacak kodlar
Else
MsgBox ("Fazla")
'Fazla ödeme yapıldıysa yazılacak kodlar
End If
DoCmd.Close acForm, "F_TAHSILAT"
Forms!F_ALACAK.Refresh
Forms!F_ALACAK.Metin86 = Nz(DSum("TUTAR", "S_ALACAK"), 0)
Forms!F_ALACAK.sayac.Caption = DCount("TUTAR", "S_ALACAK")
End If
End Function