N
Newf via AccessMonster.com
Good day!! I am having trouble with displaying calculations on my report.
This is my code I have:
Dim txt_RRSP As Integer 'Data from form
Dim rpt_txt_Totals As Integer 'Report field
Dim rpt_txt_Fed_Tax As Integer 'Report field
Dim frm_txt_CFSA_Arrears_Tot As Integer 'Data from form
Dim frm_txt_CFSA_Interest_Tot As Integer 'Data from form
Dim frm_txt_CFPF_Arrears_Tot As Integer 'Data from form
Dim frm_txt_CFPF_Interest_Tot As Integer 'Data from form
frm_txt_CFSA_Arrears_Tot = fCFSA_Arrears_Tot
frm_txt_CFSA_Interest_Tot = fCFSA_Arrears_Tot
frm_txt_CFPF_Arrears_Tot = fCFPF_Arrears_Tot
frm_txt_CFPF_Interest_Tot = fCFSA_Arrears_Tot
rpt_txt_Totals = rTotals
txt_RRSP = fRRSP
rTotals = fCFSA_Arrears_Tot + fCFSA_Arrears_Tot + fCFPF_Arrears_Tot +
fCFSA_Arrears_Tot
If fRRSP <> 0 Then
rpt_txt_Fed_Tax = rTotals * 0.1
Else
rpt_txt_Fed_Tax = 0
End If
I hope SOMEONE can help moi!
Thanks
This is my code I have:
Dim txt_RRSP As Integer 'Data from form
Dim rpt_txt_Totals As Integer 'Report field
Dim rpt_txt_Fed_Tax As Integer 'Report field
Dim frm_txt_CFSA_Arrears_Tot As Integer 'Data from form
Dim frm_txt_CFSA_Interest_Tot As Integer 'Data from form
Dim frm_txt_CFPF_Arrears_Tot As Integer 'Data from form
Dim frm_txt_CFPF_Interest_Tot As Integer 'Data from form
frm_txt_CFSA_Arrears_Tot = fCFSA_Arrears_Tot
frm_txt_CFSA_Interest_Tot = fCFSA_Arrears_Tot
frm_txt_CFPF_Arrears_Tot = fCFPF_Arrears_Tot
frm_txt_CFPF_Interest_Tot = fCFSA_Arrears_Tot
rpt_txt_Totals = rTotals
txt_RRSP = fRRSP
rTotals = fCFSA_Arrears_Tot + fCFSA_Arrears_Tot + fCFPF_Arrears_Tot +
fCFSA_Arrears_Tot
If fRRSP <> 0 Then
rpt_txt_Fed_Tax = rTotals * 0.1
Else
rpt_txt_Fed_Tax = 0
End If
I hope SOMEONE can help moi!
Thanks