Sub RecalcFunderAmounts()

    On Error GoTo Err_RecalcFunderAmounts

    If Not Nz(Me.txtCustomerID, 0) = 0 Then
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "qdelztFunderFacility"
        DoCmd.OpenQuery "qappFunderFacility"
        DoCmd.SetWarnings True
        Me.frmCustomerSubFunder.Requery

SELECT Contract_detail.Contract_no
FROM   Contract_detail INNER JOIN ContractRewriteHistory ON Contract_detail.Contract_no = ContractRewriteHistory.ContractNo
WHERE Contract_detail.Contract_no  NOT EXISTS
(
SELECT ContractNo FROM ContractRewriteHistory WHERE 
ContractNo<>''

DoCmd.OutputTo acOutputQuery, "QryexportSecondarycashTracker", acFormatXLS, "C:\RIMSINLIVE" & "\temp.xls", True

Private Function GetDBDataTypePrefix(ByVal fldDBData As Variant) As String
    Select Case fldDBData.Type
        Case dbDate, dbTime, dbTimeStamp        ', adDate, adDBDate, adDBTime, adDBTimeStamp
            GetDBDataTypePrefix = g_sDBDateChr
        Case dbChar, dbText, dbMemo             ', adWChar, adVarWChar,

 If Not IsNull(Me.cbocustomer) Then
               db.Execute " UPDATE Contract_cashflow SET Credit_Note = 'Credit Note' WHERE CashflowContractNo = '" & Me.frmcreditnotesub.Controls(cboInvoiceNo).Column(2) & "'And CashflowNumber = " & Me.frmcreditnotesub.Controls(cboInvoiceNo).Column(1)

 DoCmd.OpenForm "frmPurchaseOrderAssignPO", , , , , acDialog, vbModal

vbCrLf