Hi all;
I am having a hard time adding a zero to a calculated value to a group of fields on a table. I can not add this property under the table because I am deleting and creating the table often.
I tried NZ and Format and I was not able to see default zero when there is not value. Any help will be greatly appreciated.
I want to be able to add zero to "Suminvoiceamt" when there is not value.
I am having a hard time adding a zero to a calculated value to a group of fields on a table. I can not add this property under the table because I am deleting and creating the table often.
I tried NZ and Format and I was not able to see default zero when there is not value. Any help will be greatly appreciated.
I want to be able to add zero to "Suminvoiceamt" when there is not value.
Code:
rs3.FindFirst "[PlanCarrier] & [EntityID] & [companyid] & [benefitsid] & [PlanType] & [plandatailid]='" & STSearch & "'"
If rs3!benefitsid <> 15 Then
StrCriteria = "plancarrier=" & rs3!PlanCarrier & " And entityid=" & rs3!EntityID & " And benefitsID=" & rs3!benefitsid & " AND plantype=" & rs3!PlanType & " AND plandatailid=" & rs3!plandatailid & " AND year(invoicedate)=" & Me.LBReportyear & " AND month(invoicedate)=" & Month(rs!Invoicedate)
Else
StrCriteria = "plancarrier=" & rs3!PlanCarrier & " And entityid=" & rs3!EntityID & " And benefitsID=" & rs3!benefitsid & " AND plantype=" & rs3!PlanType & " AND plandatailid=" & rs3!plandatailid & " AND year(invoicedate)=" & Me.LBReportyear & " AND month(invoicedate)=" & Month(rs!Invoicedate) & " AND CompanyID=" & rs3!companyid
End If
' Debug.Print StrCriteria
If rs3.NoMatch = False Then
Invoicedate = rs!Invoicedate
Select Case Month(rs!Invoicedate)
Case 1
SumInvoiceAmt = DSum("invoiceamount", "tbbilling", StrCriteria)
rs3.Edit
rs3!January = SumInvoiceAmt
rs3.Update