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