R
Rodger
Hello All,
I have a form that I use to print all my reports. The reports are actually
in Word and use different queries as the datasource. The queries create
temp table. When the code runs it gives me a warning about deleting the
table even though I have Warnings set to False. Here is the code that I
have.
myView is used to either open in Word (1) or Print to the Printer (2)
Private Sub myReports(myView)
On Error GoTo Err_myReports
Dim ReportPath
Dim oApp As Object, DocName, x, myDB
Dim dbsCurrent As Database, dbsPath As String
Dim myMessage, myStyle, myTitle, myResponse
Dim myQRY7, myQRYRealEstateAppraisal, myQRY1244_Step1, myQRY1244_Step2,
myQRY1244B_Step1
Dim myQRYTrackingSheet, myQRY_TEMP_OWNER_GUARANTOR
Dim myID
Set myDB = CurrentDb()
myID = [Forms]![frm_Reports]![cmbLoan]
If IsNull(Me.cmbLoan) Then
myMessage = "Please select a loan"
myTitle = "No Selection"
myStyle = vbCritical + vbOKOnly
myResponse = MsgBox(myMessage, myStyle, myTitle)
Exit Sub
Else
'DoCmd.SetWarnings False
Call updateTEMP_OWNERS
If DoesObjectExist("Tables", "tmp_Exhibit7") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_Exhibit7"
End If
If DoesObjectExist("Tables", "tmp_RealEstateAppraisal") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_RealEstateAppraisal"
End If
If DoesObjectExist("Tables", "tmp_Submission") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_Submission"
End If
If DoesObjectExist("Tables", "tmp_CheckLists") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_CheckLists"
End If
If DoesObjectExist("Tables", "tmp_Environmental") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_Environmental"
End If
'qry_Exhibit7
myQRY7 = "SELECT [EXHIBIT 7].EX7_ID, [EXHIBIT 7].EX7_IMP_ID,
[EXHIBIT 7].EX7_AR_UNDER_30, [EXHIBIT 7].EX7_AR_30_59, [EXHIBIT
7].EX7_AR_60_89, [EXHIBIT 7].EX7_AR_OVER_90, [EXHIBIT 7].EX7_AP_UNDER_30,
[EXHIBIT 7].EX7_AP_30_59, [EXHIBIT 7].EX7_AP_60_89, [EXHIBIT
7].EX7_AP_OVER_90, [EXHIBIT 7].EX7_AR_CONCENTRATION, [EXHIBIT
7].EX7_AP_CONCENTRATION,
[EX7_AR_UNDER_30]+[EX7_AR_30_59]+[EX7_AR_60_89]+[EX7_AR_OVER_90] AS
AR_TOTAL, [EX7_AP_UNDER_30]+[EX7_AP_30_59]+[EX7_AP_60_89]+[EX7_AP_OVER_90]
AS AP_TOTAL, Format([AR_TOTAL]/[EX7_AR_OVER_90],'#%') AS AR_PERCENT,
Format([AP_TOTAL]/[EX7_AP_OVER_90],'#%') AS AP_PERCENT INTO tmp_Exhibit7 " &
_
"FROM [EXHIBIT 7] " & _
"WHERE [EXHIBIT 7].EX7_IMP_ID = " & myID
myDB.Execute (myQRY7)
'qry_RealEstateAppraisal
myQRYRealEstateAppraisal = "SELECT IMPORT.IMP_ID,
IMPORT.IMP_BOR_NAME, IMPORT.IMP_BOR_PROJECT_ADDRESS,
IMPORT.IMP_BOR_PROJECT_ADDRESS2, IMPORT.IMP_BOR_PROJECT_CITY,
IMPORT.IMP_BOR_PROJECT_STATE, IMPORT.IMP_BOR_PROJECT_ZIP,
IMPORT.IMP_BOR_PRINCIPAL, IMPORT.IMP_BOR_SBC, IMPORT.IMP_BOR_DBA,
IMPORT.IMP_BOR_EMAIL, SETUP.SET_COMPANY_NAME, SETUP.SET_COMPANY_OWNER,
SETUP.SET_ADDRESS, SETUP.SET_CITY, SETUP.SET_STATE, SETUP.SET_ZIP,
SETUP.SET_PHONE, SETUP.SET_FAX, SETUP.SET_EMAIL1 INTO
tmp_RealEstateAppraisal " & _
"FROM IMPORT, SETUP " & _
"WHERE IMPORT.IMP_ID= " & myID
myDB.Execute (myQRYRealEstateAppraisal)
'qry_myQRY1244_Step1
myQRY1244_Step1 = "SELECT LOAN_OFFICER.LASTNAME & ', ' &
LOAN_OFFICER.FIRSTNAME AS LOAN_OFFICER_NAME, UNDERWRITER.LASTNAME & ', ' &
UNDERWRITER.FIRSTNAME AS UNDERWRITER_NAME, IIf([IMP_BOR_EPC]=-1,'YES X
NO','YES NO X') AS EPC, [1244 A].[1244A_OMB_APPROVAL_NUMBER], [1244
A].[1244A_EXPIRATION_DATE], [1244 A].[1244A_Q1] AS Q1, [1244 A].[1244A_Q2]
AS Q2, [1244 A].[1244A_Q3] AS Q3, [1244 A].[1244A_Q4] AS Q4, [1244
A].[1244A_Q5] AS Q5, [1244 A].[1244A_Q6] AS Q6, [1244 A].[1244A_Q7] AS Q7,
[1244 A].[1244A_Q8] AS Q8, [1244 A].[1244A_Q9] AS Q9, [1244 A].[1244A_Q10]
AS Q10, [1244 A].[1244A_Q11] AS Q11, [1244 A].[1244A_Q12] AS Q12, [1244
A].[1244A_Q13] AS Q13, [1244 A].[1244A_Q14] AS Q14, [1244 A].[1244A_Q15] AS
Q15, [1244 A].[1244A_Q16] AS Q16, [1244 A].[1244A_Q17] AS Q17, [1244
A].[1244A_Q18] AS Q18, [1244 A].[1244A_Q19] AS Q19, [1244 A].[1244A_Q20] AS
Q20, [1244 A].[1244A_Q21] AS Q21, [1244 A].[1244A_Q22] AS Q22, [1244
A].[1244A_Q23] AS Q23, [1244 A].[1244A_CLOSING_COST], " & _
"MINORITY.MIN_CODE, MINORITY.MIN_DESCRIPTION,
YES_NO.YES_DESCRIPTION, IIf([IMP_BOR_RELOCATION]=-1,'YES X NO','YES
NO X') AS REL, IIf([IMP_BOR_EXISTING_BUSINESS]=-1,'X Existing ' & Chr(13)
& Chr(10) & ' New Business',' Existing ' & Chr(13) & Chr(10) & 'X New
Business') AS EXISTING, IMPORT.*,
[IMP_BOR_JOBS_TWO_YEARS]+[IMP_BOR_JOBS_RETAINED] AS JOB_TOTAL,
[IMP_BOR_PURCHASE_LAND_BUILDING]+[IMP_BOR_CONSTRUCTION_REMODELING]+[IMP_BOR_PURCHASE_EQUIPMENT]+[IMP_BOR_PROFESSIOAL_FEES]+[IMP_BOR_OTHER_EXPENSES]
AS TOTAL_PROJECT_COST, Format([IMP_BOR_SBA_PORTION_AMOUNT]*0.005,'$#,##0')
AS RESERVE, Format([IMP_BOR_SBA_PORTION_AMOUNT]*0.0025,'$#,##0') AS
FUNDING_FEE, Format([IMP_BOR_SBA_PORTION_AMOUNT]*0.015,'$#,##0') AS CDC_FEE,
Format([1244A_CLOSING_COST],'$#,##0') AS CLOSING_COST,
Format(([IMP_BOR_SBA_PORTION_AMOUNT]*0.005)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.0025)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.015)+[1244A_CLOSING_COST],'$#,##0')
AS TOTAL_FEES, " & _
"Format(CEILING(([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEES])/0.996,1000)*0.004,'$#,##0')
AS UNDERWRITER_FEE,
Format(([IMP_BOR_SBA_PORTION_AMOUNT]*0.005)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.0025)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.015)+[1244A_CLOSING_COST]+(CEILING(([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEES])/0.996,1000)*0.004),'$#,##0')
AS TOTAL_FEE2,
Format(CEILING([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEE2],1000),'Currency')
AS TOTAL_DEBENTURE, Format([IMP_BOR_SBA_PORTION_AMOUNT],'$#,##0') AS
SBA_AMOUNT, Format([IMP_BOR_INJECTION],'$#,##0') AS BOR_INJECTION,
Format([IMP_BOR_PARTICIPATING_AMOUNT],'$#,##0') AS PARTICIPATING_AMOUNT,
Format(CEILING([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEE2],1000)-([IMP_BOR_SBA_PORTION_AMOUNT])+([IMP_BOR_SBA_PORTION_AMOUNT]*0.005)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.0025)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.015)+[1244A_CLOSING_COST]+(CEILING(([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEES])/0.996,1000)*0.004),'$#,##0')
AS BALANCE_TO_BORROWER, " & _
"[PURPOSE ECONOMIC].PUR_DESCRIPTION,
Format([IMP_BOR_SBA_PORTION_AMOUNT]/([IMP_BOR_SBA_PORTION_AMOUNT]+[IMP_BOR_INJECTION]+[IMP_BOR_PARTICIPATING_AMOUNT]),'#%')
AS SBA_PERCENT,
Format([IMP_BOR_INJECTION]/([IMP_BOR_SBA_PORTION_AMOUNT]+[IMP_BOR_INJECTION]+[IMP_BOR_PARTICIPATING_AMOUNT]),'#%')
AS INJECTION_PERCENT,
Format([IMP_BOR_PARTICIPATING_AMOUNT]/([IMP_BOR_SBA_PORTION_AMOUNT]+[IMP_BOR_INJECTION]+[IMP_BOR_PARTICIPATING_AMOUNT]),'#%')
AS PARTICIPATING_PERCENT,
Format([IMP_BOR_SBA_PORTION_AMOUNT]+[IMP_BOR_INJECTION]+[IMP_BOR_PARTICIPATING_AMOUNT],'$#,##0')
AS TOTAL_AMOUNT, Format([IMP_BOR_PARTICIPATING_RATE]/100,'#.##%') AS
PARTICIPATING_RATE, IIf([IMP_BOR_SBA_AMORTIZATION]=10,'2nd Lien','2nd RE')
AS LIEN_SBA, IIf([IMP_BOR_SBA_AMORTIZATION]=10,'1st Lien','1st RE') AS
LIEN_PARTICIPATING FROM [PURPOSE ECONOMIC] RIGHT JOIN ((((([1244 A] RIGHT
JOIN IMPORT ON [1244 A].[1244A_IMP_ID] = IMPORT.IMP_ID) " & _
"LEFT JOIN EMPLOYEES AS LOAN_OFFICER ON
IMPORT.IMP_LOAN_OFFICER_ID = LOAN_OFFICER.EMPID) LEFT JOIN EMPLOYEES AS
UNDERWRITER ON IMPORT.IMP_UNDERWRITER_ID = UNDERWRITER.EMPID) LEFT JOIN
MINORITY ON IMPORT.IMP_BOR_MIN_ID = MINORITY.MIN_ID) LEFT JOIN YES_NO ON
IMPORT.IMP_BOR_MTY_ID = YES_NO.YES_SHORT_DESCRIPTION) ON [PURPOSE
ECONOMIC].PUR_ID = IMPORT.IMP_BOR_IMPACT " & _
"WHERE [1244A].[1244A_IMP_ID]=" & myID
'myDB.Execute (myQRY1244_Step1)
DoCmd.OpenQuery "qry_1244_Step2"
DoCmd.OpenQuery "qry_TrackingSheet"
DoCmd.OpenQuery "qry_TEMP_OWNER_GUARANTOR"
DoCmd.OpenQuery "qry_1244B_Step1"
DoCmd.OpenQuery "qry_1244_4_Step2"
DoCmd.OpenQuery "qry_Submission_Step2"
DoCmd.OpenQuery "qry_CheckLists_Step2"
DoCmd.OpenQuery "qry_Environmental_Step2"
DoCmd.OpenQuery "qry_Supplement_Step2"
DoCmd.SetWarnings True
End If
If IsLoaded("frm_setup") Then
Else
DoCmd.OpenForm "frm_setup", acNormal, , , , acHidden
End If
ReportPath = Forms![frm_Setup]![SET_CURRENT_DATABASE]
Set oApp = CreateObject("Word.Application")
'PRINT REPORTS
'EXHIBIT 1
If Me.ckbExhibit1 = -1 Then
Call updateTEMP_OWNERS
oApp.Documents.Open FileName:="" & Chr(34) & ReportPath &
"\Exhibit 1.doc" & Chr(34)
If myView = 1 Then
oApp.PrintOut
Else
oApp.Visible = True
End If
End If
I have more but the errors come before this so I did not add as it is just
more of the same from the lines above.
TIA,
Rodger
I have a form that I use to print all my reports. The reports are actually
in Word and use different queries as the datasource. The queries create
temp table. When the code runs it gives me a warning about deleting the
table even though I have Warnings set to False. Here is the code that I
have.
myView is used to either open in Word (1) or Print to the Printer (2)
Private Sub myReports(myView)
On Error GoTo Err_myReports
Dim ReportPath
Dim oApp As Object, DocName, x, myDB
Dim dbsCurrent As Database, dbsPath As String
Dim myMessage, myStyle, myTitle, myResponse
Dim myQRY7, myQRYRealEstateAppraisal, myQRY1244_Step1, myQRY1244_Step2,
myQRY1244B_Step1
Dim myQRYTrackingSheet, myQRY_TEMP_OWNER_GUARANTOR
Dim myID
Set myDB = CurrentDb()
myID = [Forms]![frm_Reports]![cmbLoan]
If IsNull(Me.cmbLoan) Then
myMessage = "Please select a loan"
myTitle = "No Selection"
myStyle = vbCritical + vbOKOnly
myResponse = MsgBox(myMessage, myStyle, myTitle)
Exit Sub
Else
'DoCmd.SetWarnings False
Call updateTEMP_OWNERS
If DoesObjectExist("Tables", "tmp_Exhibit7") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_Exhibit7"
End If
If DoesObjectExist("Tables", "tmp_RealEstateAppraisal") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_RealEstateAppraisal"
End If
If DoesObjectExist("Tables", "tmp_Submission") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_Submission"
End If
If DoesObjectExist("Tables", "tmp_CheckLists") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_CheckLists"
End If
If DoesObjectExist("Tables", "tmp_Environmental") = 0 Then
Else
DoCmd.DeleteObject acTable, "tmp_Environmental"
End If
'qry_Exhibit7
myQRY7 = "SELECT [EXHIBIT 7].EX7_ID, [EXHIBIT 7].EX7_IMP_ID,
[EXHIBIT 7].EX7_AR_UNDER_30, [EXHIBIT 7].EX7_AR_30_59, [EXHIBIT
7].EX7_AR_60_89, [EXHIBIT 7].EX7_AR_OVER_90, [EXHIBIT 7].EX7_AP_UNDER_30,
[EXHIBIT 7].EX7_AP_30_59, [EXHIBIT 7].EX7_AP_60_89, [EXHIBIT
7].EX7_AP_OVER_90, [EXHIBIT 7].EX7_AR_CONCENTRATION, [EXHIBIT
7].EX7_AP_CONCENTRATION,
[EX7_AR_UNDER_30]+[EX7_AR_30_59]+[EX7_AR_60_89]+[EX7_AR_OVER_90] AS
AR_TOTAL, [EX7_AP_UNDER_30]+[EX7_AP_30_59]+[EX7_AP_60_89]+[EX7_AP_OVER_90]
AS AP_TOTAL, Format([AR_TOTAL]/[EX7_AR_OVER_90],'#%') AS AR_PERCENT,
Format([AP_TOTAL]/[EX7_AP_OVER_90],'#%') AS AP_PERCENT INTO tmp_Exhibit7 " &
_
"FROM [EXHIBIT 7] " & _
"WHERE [EXHIBIT 7].EX7_IMP_ID = " & myID
myDB.Execute (myQRY7)
'qry_RealEstateAppraisal
myQRYRealEstateAppraisal = "SELECT IMPORT.IMP_ID,
IMPORT.IMP_BOR_NAME, IMPORT.IMP_BOR_PROJECT_ADDRESS,
IMPORT.IMP_BOR_PROJECT_ADDRESS2, IMPORT.IMP_BOR_PROJECT_CITY,
IMPORT.IMP_BOR_PROJECT_STATE, IMPORT.IMP_BOR_PROJECT_ZIP,
IMPORT.IMP_BOR_PRINCIPAL, IMPORT.IMP_BOR_SBC, IMPORT.IMP_BOR_DBA,
IMPORT.IMP_BOR_EMAIL, SETUP.SET_COMPANY_NAME, SETUP.SET_COMPANY_OWNER,
SETUP.SET_ADDRESS, SETUP.SET_CITY, SETUP.SET_STATE, SETUP.SET_ZIP,
SETUP.SET_PHONE, SETUP.SET_FAX, SETUP.SET_EMAIL1 INTO
tmp_RealEstateAppraisal " & _
"FROM IMPORT, SETUP " & _
"WHERE IMPORT.IMP_ID= " & myID
myDB.Execute (myQRYRealEstateAppraisal)
'qry_myQRY1244_Step1
myQRY1244_Step1 = "SELECT LOAN_OFFICER.LASTNAME & ', ' &
LOAN_OFFICER.FIRSTNAME AS LOAN_OFFICER_NAME, UNDERWRITER.LASTNAME & ', ' &
UNDERWRITER.FIRSTNAME AS UNDERWRITER_NAME, IIf([IMP_BOR_EPC]=-1,'YES X
NO','YES NO X') AS EPC, [1244 A].[1244A_OMB_APPROVAL_NUMBER], [1244
A].[1244A_EXPIRATION_DATE], [1244 A].[1244A_Q1] AS Q1, [1244 A].[1244A_Q2]
AS Q2, [1244 A].[1244A_Q3] AS Q3, [1244 A].[1244A_Q4] AS Q4, [1244
A].[1244A_Q5] AS Q5, [1244 A].[1244A_Q6] AS Q6, [1244 A].[1244A_Q7] AS Q7,
[1244 A].[1244A_Q8] AS Q8, [1244 A].[1244A_Q9] AS Q9, [1244 A].[1244A_Q10]
AS Q10, [1244 A].[1244A_Q11] AS Q11, [1244 A].[1244A_Q12] AS Q12, [1244
A].[1244A_Q13] AS Q13, [1244 A].[1244A_Q14] AS Q14, [1244 A].[1244A_Q15] AS
Q15, [1244 A].[1244A_Q16] AS Q16, [1244 A].[1244A_Q17] AS Q17, [1244
A].[1244A_Q18] AS Q18, [1244 A].[1244A_Q19] AS Q19, [1244 A].[1244A_Q20] AS
Q20, [1244 A].[1244A_Q21] AS Q21, [1244 A].[1244A_Q22] AS Q22, [1244
A].[1244A_Q23] AS Q23, [1244 A].[1244A_CLOSING_COST], " & _
"MINORITY.MIN_CODE, MINORITY.MIN_DESCRIPTION,
YES_NO.YES_DESCRIPTION, IIf([IMP_BOR_RELOCATION]=-1,'YES X NO','YES
NO X') AS REL, IIf([IMP_BOR_EXISTING_BUSINESS]=-1,'X Existing ' & Chr(13)
& Chr(10) & ' New Business',' Existing ' & Chr(13) & Chr(10) & 'X New
Business') AS EXISTING, IMPORT.*,
[IMP_BOR_JOBS_TWO_YEARS]+[IMP_BOR_JOBS_RETAINED] AS JOB_TOTAL,
[IMP_BOR_PURCHASE_LAND_BUILDING]+[IMP_BOR_CONSTRUCTION_REMODELING]+[IMP_BOR_PURCHASE_EQUIPMENT]+[IMP_BOR_PROFESSIOAL_FEES]+[IMP_BOR_OTHER_EXPENSES]
AS TOTAL_PROJECT_COST, Format([IMP_BOR_SBA_PORTION_AMOUNT]*0.005,'$#,##0')
AS RESERVE, Format([IMP_BOR_SBA_PORTION_AMOUNT]*0.0025,'$#,##0') AS
FUNDING_FEE, Format([IMP_BOR_SBA_PORTION_AMOUNT]*0.015,'$#,##0') AS CDC_FEE,
Format([1244A_CLOSING_COST],'$#,##0') AS CLOSING_COST,
Format(([IMP_BOR_SBA_PORTION_AMOUNT]*0.005)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.0025)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.015)+[1244A_CLOSING_COST],'$#,##0')
AS TOTAL_FEES, " & _
"Format(CEILING(([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEES])/0.996,1000)*0.004,'$#,##0')
AS UNDERWRITER_FEE,
Format(([IMP_BOR_SBA_PORTION_AMOUNT]*0.005)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.0025)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.015)+[1244A_CLOSING_COST]+(CEILING(([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEES])/0.996,1000)*0.004),'$#,##0')
AS TOTAL_FEE2,
Format(CEILING([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEE2],1000),'Currency')
AS TOTAL_DEBENTURE, Format([IMP_BOR_SBA_PORTION_AMOUNT],'$#,##0') AS
SBA_AMOUNT, Format([IMP_BOR_INJECTION],'$#,##0') AS BOR_INJECTION,
Format([IMP_BOR_PARTICIPATING_AMOUNT],'$#,##0') AS PARTICIPATING_AMOUNT,
Format(CEILING([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEE2],1000)-([IMP_BOR_SBA_PORTION_AMOUNT])+([IMP_BOR_SBA_PORTION_AMOUNT]*0.005)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.0025)+([IMP_BOR_SBA_PORTION_AMOUNT]*0.015)+[1244A_CLOSING_COST]+(CEILING(([IMP_BOR_SBA_PORTION_AMOUNT]+[TOTAL_FEES])/0.996,1000)*0.004),'$#,##0')
AS BALANCE_TO_BORROWER, " & _
"[PURPOSE ECONOMIC].PUR_DESCRIPTION,
Format([IMP_BOR_SBA_PORTION_AMOUNT]/([IMP_BOR_SBA_PORTION_AMOUNT]+[IMP_BOR_INJECTION]+[IMP_BOR_PARTICIPATING_AMOUNT]),'#%')
AS SBA_PERCENT,
Format([IMP_BOR_INJECTION]/([IMP_BOR_SBA_PORTION_AMOUNT]+[IMP_BOR_INJECTION]+[IMP_BOR_PARTICIPATING_AMOUNT]),'#%')
AS INJECTION_PERCENT,
Format([IMP_BOR_PARTICIPATING_AMOUNT]/([IMP_BOR_SBA_PORTION_AMOUNT]+[IMP_BOR_INJECTION]+[IMP_BOR_PARTICIPATING_AMOUNT]),'#%')
AS PARTICIPATING_PERCENT,
Format([IMP_BOR_SBA_PORTION_AMOUNT]+[IMP_BOR_INJECTION]+[IMP_BOR_PARTICIPATING_AMOUNT],'$#,##0')
AS TOTAL_AMOUNT, Format([IMP_BOR_PARTICIPATING_RATE]/100,'#.##%') AS
PARTICIPATING_RATE, IIf([IMP_BOR_SBA_AMORTIZATION]=10,'2nd Lien','2nd RE')
AS LIEN_SBA, IIf([IMP_BOR_SBA_AMORTIZATION]=10,'1st Lien','1st RE') AS
LIEN_PARTICIPATING FROM [PURPOSE ECONOMIC] RIGHT JOIN ((((([1244 A] RIGHT
JOIN IMPORT ON [1244 A].[1244A_IMP_ID] = IMPORT.IMP_ID) " & _
"LEFT JOIN EMPLOYEES AS LOAN_OFFICER ON
IMPORT.IMP_LOAN_OFFICER_ID = LOAN_OFFICER.EMPID) LEFT JOIN EMPLOYEES AS
UNDERWRITER ON IMPORT.IMP_UNDERWRITER_ID = UNDERWRITER.EMPID) LEFT JOIN
MINORITY ON IMPORT.IMP_BOR_MIN_ID = MINORITY.MIN_ID) LEFT JOIN YES_NO ON
IMPORT.IMP_BOR_MTY_ID = YES_NO.YES_SHORT_DESCRIPTION) ON [PURPOSE
ECONOMIC].PUR_ID = IMPORT.IMP_BOR_IMPACT " & _
"WHERE [1244A].[1244A_IMP_ID]=" & myID
'myDB.Execute (myQRY1244_Step1)
DoCmd.OpenQuery "qry_1244_Step2"
DoCmd.OpenQuery "qry_TrackingSheet"
DoCmd.OpenQuery "qry_TEMP_OWNER_GUARANTOR"
DoCmd.OpenQuery "qry_1244B_Step1"
DoCmd.OpenQuery "qry_1244_4_Step2"
DoCmd.OpenQuery "qry_Submission_Step2"
DoCmd.OpenQuery "qry_CheckLists_Step2"
DoCmd.OpenQuery "qry_Environmental_Step2"
DoCmd.OpenQuery "qry_Supplement_Step2"
DoCmd.SetWarnings True
End If
If IsLoaded("frm_setup") Then
Else
DoCmd.OpenForm "frm_setup", acNormal, , , , acHidden
End If
ReportPath = Forms![frm_Setup]![SET_CURRENT_DATABASE]
Set oApp = CreateObject("Word.Application")
'PRINT REPORTS
'EXHIBIT 1
If Me.ckbExhibit1 = -1 Then
Call updateTEMP_OWNERS
oApp.Documents.Open FileName:="" & Chr(34) & ReportPath &
"\Exhibit 1.doc" & Chr(34)
If myView = 1 Then
oApp.PrintOut
Else
oApp.Visible = True
End If
End If
I have more but the errors come before this so I did not add as it is just
more of the same from the lines above.
TIA,
Rodger