Dediğiniz gibi bazı çalışmalar yaptım kısmende çözdüm fakat yinede bir yerlerde eksiklikler var,
Örneğin;F_SERVİSHESABI'na veri girdiğimde girilen veri F_TEKNİKSERVİS formundaki mtn_degisenToplami alanına veriyi aktarmıyor ancak Servistutarı alanına veri girildikten sonra veriyi aktarıyor,
İkinci sıkıntıda odeme tutarı girildiğinde Bakiye hesabı oluşmuyor.
Kod:
F_TEKNİKSERVİS formuna uyguladığım kod;
Sub HesapYap()
'=DSum([TUTARİ],T_SERVİSHESABİ,[İSLEMNO]= & Form.F_TEKNİKSERVİS.İSLEMNO)
mtn_degisenToplami = IIf(IsNumeric(T_SERVİSHESABİ.Form!mtn_toplam), T_SERVİSHESABİ.Form!mtn_toplam, 0)
mtn_hesaptoplami = mtn_servistutari + mtn_degisenToplami
mtn_bakiye = mtn_hesaptoplami - ODENEN
Me.Requery
Me.Refresh
End Sub
Private Sub mtn_servistutari_AfterUpdate()
HesapYap
End Sub
Kod:
Sub Hesapla()
On Error GoTo Err_Hata
Forms!F_TEKNİKSERVIS.mtn_degisenToplami = Me.mtn_toplam
Forms!frm_TEKNİKSERVIS.mtn_hesaptoplami = Forms![F_TEKNİKSERVİS]![mtn_servistutari] + [mtn_degisenToplami]
Forms!frm_TEKNİKSERVIS.mtn_bakiye = Forms![F_TEKNİKSERVİS]![mtn_hesaptoplami] - Forms![F_TEKNİKSERVİS]![mtn_ODENEN]
Exit_Hata:
Exit Sub
Err_Hata:
If Err.Number = 3075 Then
Forms![F_TEKNİKSERVİS]![mtn_degisenToplami] = 0
Forms!frm_TEKNİKSERVIS.mtn_hesaptoplami = Forms![F_TEKNİKSERVİS]![mtn_servistutari] + [mtn_degisenToplami]
Forms!frm_TEKNİKSERVIS.mtn_bakiye = Forms![F_TEKNİKSERVİS]![mtn_hesaptoplami] - Forms![F_TEKNİKSERVİS]![mtn_ODENEN]
End If
Resume Exit_Hata
End Sub
Bunlardan ibaret,çalışma örneği ekte.
Saygılarımla
İyi çalışmalar.