G
geebee
hi,
I have the following code behind a button:
Dim strSQLArchive2 As String
strSQLArchive2 = "INSERT INTO tbl_archive " _
& "([loan acct #], [popenterdt], [status], [pasted]," _
& "[Buying Center #], [Division Name],[Region Name],[Group Name],
[Collection Center Name], " _
& "[Distribution Channel], [New Institution Name], [Origination Channel],
[Sub Channel],[Short Name], [Loan Status], " _
& "[Contract Date], [Mat date], [Next Pmt Due Date], [Payoff Date], [Paid
Off?], [Nbr of Reg Pmts Made], " _
& "[# Reg Pmts Remaining], [Pmt Scd Monthly Pmt Amt], [Last Pmt Date], [Last
Pmt Amt], [Amended?], [Amended This Mo?], " _
& "[DEL Group], [Days Delinquent], [Tot Past Due Pmts $], [Principal
Balance], [Val Reserve Dollar Amt], NETBAL, " _
& "[Ext?],[Extended This Mo?],[Payoff Dollar Amt], [Flat Void Mth of
Orig],[Active BK Flag Date],[Active BK Flag], " _
& "[Inventory Status],[Charge Off Principal],[Chg Off Type],[CHG OFF
Date],[Cure Letter Date],[Skip Active Date], " _
& "[Skip Completion Date],[Skip Completion Sts],[Redeemed Date],[Entered
Date],[Repo Ordered Date],[Active Inactive Flag]) " _
& "SELECT " _
& "tbl_archive_temp.[loan acct #], tbl_archive_temp.[popenterdt],
tbl_archive_temp.[status], tbl_archive_temp.[pasted]," _
& "tbl_archive_temp.[Buying Center #], tbl_archive_temp.[Division
Name],tbl_archive_temp.[Region Name],tbl_archive_temp.[Group Name],
tbl_archive_temp.[Collection Center Name], " _
& "tbl_archive_temp.[Distribution Channel], tbl_archive_temp.[New
Institution Name], tbl_archive_temp.[Origination Channel],
tbl_archive_temp.[Sub Channel],tbl_archive_temp.[Short Name],
tbl_archive_temp.[Loan Status], " _
& "tbl_archive_temp.[Contract Date], tbl_archive_temp.[Mat date],
tbl_archive_temp.[Next Pmt Due Date], tbl_archive_temp.[Payoff Date],
tbl_archive_temp.[Paid Off?], tbl_archive_temp.[Nbr of Reg Pmts Made], " _
& "tbl_archive_temp.[# Reg Pmts Remaining], tbl_archive_temp.[Pmt Scd
Monthly Pmt Amt], tbl_archive_temp.[Last Pmt Date], tbl_archive_temp.[Last
Pmt Amt], tbl_archive_temp.[Amended?], tbl_archive_temp.[Amended This Mo?], "
_
& "tbl_archive_temp.[DEL Group], tbl_archive_temp.[Days Delinquent],
tbl_archive_temp.[Tot Past Due Pmts $], tbl_archive_temp.[Principal Balance],
tbl_archive_temp.[Val Reserve Dollar Amt], tbl_archive_temp.NETBAL, " _
& "tbl_archive_temp.[Ext?],tbl_archive_temp.[Extended This
Mo?],tbl_archive_temp.[Payoff Dollar Amt], tbl_archive_temp.[Flat Void Mth of
Orig],tbl_archive_temp.[Active BK Flag Date],tbl_archive_temp.[Active BK
Flag], " _
& "tbl_archive_temp.[Inventory Status],tbl_archive_temp.[Charge Off
Principal],tbl_archive_temp.[Chg Off Type],tbl_archive_temp.[CHG OFF
Date],tbl_archive_temp.[Cure Letter Date],tbl_archive_temp.[Skip Active
Date], " _
& "tbl_archive_temp.[Skip Completion Date],tbl_archive_temp.[Skip Completion
Sts],tbl_archive_temp.[Redeemed Date],tbl_archive_temp.[Entered
Date],tbl_archive_temp.[Repo Ordered Date],tbl_archive_temp.[Active Inactive
Flag] " _
& "FROM tbl_archive_temp LEFT JOIN Tbl_archive ON " _
& "(tbl_archive_temp.status=Tbl_archive.status) " _
& "AND (tbl_archive_temp.[Loan Acct #]=Tbl_archive.[Loan Acct #]) " _
& "WHERE (((tbl_archive_temp.PopEnterDt) Is Null) or ((Tbl_archive.status)
Is Null));"
DoCmd.RunSQL strSQLArchive2
Dim strSQLArchive23 As String
strSQLArchive23 = "INSERT INTO tbl_masterpop_resolved" _
& "([loan acct #], [PopEnterDt], [status], [pasted]," _
& "[Buying Center #], [Division Name],[Region Name],[Group Name],
[Collection Center Name], " _
& "[Distribution Channel], [New Institution Name], [Origination Channel],
[Sub Channel],[Short Name], [Loan Status], " _
& "[Contract Date], [Mat date], [Next Pmt Due Date], [Payoff Date], [Paid
Off?], [Nbr of Reg Pmts Made], " _
& "[# Reg Pmts Remaining], [Pmt Scd Monthly Pmt Amt], [Last Pmt Date], [Last
Pmt Amt], [Amended?], [Amended This Mo?], " _
& "[DEL Group], [Days Delinquent], [Tot Past Due Pmts $], [Principal
Balance], [Val Reserve Dollar Amt], NETBAL, " _
& "[Ext?],[Extended This Mo?],[Payoff Dollar Amt], [Flat Void Mth of
Orig],[Active BK Flag Date],[Active BK Flag], " _
& "[Inventory Status],[Charge Off Principal],[Chg Off Type],[CHG OFF
Date],[Cure Letter Date],[Skip Active Date], " _
& "[Skip Completion Date],[Skip Completion Sts],[Redeemed Date],[Entered
Date],[Repo Ordered Date],[Active Inactive Flag]) " _
& "SELECT " _
& "tbl_archive_temp.[loan acct #], tbl_archive_temp.[popenterdt],
tbl_archive_temp.[status], tbl_archive_temp.[pasted]," _
& "tbl_archive_temp.[Buying Center #], tbl_archive_temp.[Division
Name],tbl_archive_temp.[Region Name],tbl_archive_temp.[Group Name],
tbl_archive_temp.[Collection Center Name], " _
& "tbl_archive_temp.[Distribution Channel], tbl_archive_temp.[New
Institution Name], tbl_archive_temp.[Origination Channel],
tbl_archive_temp.[Sub Channel],tbl_archive_temp.[Short Name],
tbl_archive_temp.[Loan Status], " _
& "tbl_archive_temp.[Contract Date], tbl_archive_temp.[Mat date],
tbl_archive_temp.[Next Pmt Due Date], tbl_archive_temp.[Payoff Date],
tbl_archive_temp.[Paid Off?], tbl_archive_temp.[Nbr of Reg Pmts Made], " _
& "tbl_archive_temp.[# Reg Pmts Remaining], tbl_archive_temp.[Pmt Scd
Monthly Pmt Amt], tbl_archive_temp.[Last Pmt Date], tbl_archive_temp.[Last
Pmt Amt], tbl_archive_temp.[Amended?], tbl_archive_temp.[Amended This Mo?], "
_
& "tbl_archive_temp.[DEL Group], tbl_archive_temp.[Days Delinquent],
tbl_archive_temp.[Tot Past Due Pmts $], tbl_archive_temp.[Principal Balance],
tbl_archive_temp.[Val Reserve Dollar Amt], tbl_archive_temp.NETBAL, " _
& "tbl_archive_temp.[Ext?],tbl_archive_temp.[Extended This
Mo?],tbl_archive_temp.[Payoff Dollar Amt], tbl_archive_temp.[Flat Void Mth of
Orig],tbl_archive_temp.[Active BK Flag Date],tbl_archive_temp.[Active BK
Flag], " _
& "tbl_archive_temp.[Inventory Status],tbl_archive_temp.[Charge Off
Principal],tbl_archive_temp.[Chg Off Type],tbl_archive_temp.[CHG OFF
Date],tbl_archive_temp.[Cure Letter Date],tbl_archive_temp.[Skip Active
Date], " _
& "tbl_archive_temp.[Skip Completion Date],tbl_archive_temp.[Skip Completion
Sts],tbl_archive_temp.[Redeemed Date],tbl_archive_temp.[Entered
Date],tbl_archive_temp.[Repo Ordered Date],tbl_archive_temp.[Active Inactive
Flag] " _
& "FROM tbl_archive_temp LEFT JOIN tbl_masterpop_resolved ON " _
& "(tbl_archive_temp.status = tbl_masterpop_resolved.status)" _
& "AND (tbl_archive_temp.[Loan Acct #]= tbl_masterpop_resolved.[Loan Acct
#]) " _
& "WHERE (((tbl_masterpop_resolved.PopEnterDt) Is Null) or
((tbl_masterpop_resolved.status) Is Null));"
DoCmd.RunSQL strSQLArchive23
Me.check11.Caption = "R"
Me.check11.ForeColor = "12632256"
ever since i moved the backend file to a new folder and then back to its
original folder, i have been getting this error message. i dont know what is
going on, because i did not change the code. how can i fix this?
thanks in advance,
geebee
I have the following code behind a button:
Dim strSQLArchive2 As String
strSQLArchive2 = "INSERT INTO tbl_archive " _
& "([loan acct #], [popenterdt], [status], [pasted]," _
& "[Buying Center #], [Division Name],[Region Name],[Group Name],
[Collection Center Name], " _
& "[Distribution Channel], [New Institution Name], [Origination Channel],
[Sub Channel],[Short Name], [Loan Status], " _
& "[Contract Date], [Mat date], [Next Pmt Due Date], [Payoff Date], [Paid
Off?], [Nbr of Reg Pmts Made], " _
& "[# Reg Pmts Remaining], [Pmt Scd Monthly Pmt Amt], [Last Pmt Date], [Last
Pmt Amt], [Amended?], [Amended This Mo?], " _
& "[DEL Group], [Days Delinquent], [Tot Past Due Pmts $], [Principal
Balance], [Val Reserve Dollar Amt], NETBAL, " _
& "[Ext?],[Extended This Mo?],[Payoff Dollar Amt], [Flat Void Mth of
Orig],[Active BK Flag Date],[Active BK Flag], " _
& "[Inventory Status],[Charge Off Principal],[Chg Off Type],[CHG OFF
Date],[Cure Letter Date],[Skip Active Date], " _
& "[Skip Completion Date],[Skip Completion Sts],[Redeemed Date],[Entered
Date],[Repo Ordered Date],[Active Inactive Flag]) " _
& "SELECT " _
& "tbl_archive_temp.[loan acct #], tbl_archive_temp.[popenterdt],
tbl_archive_temp.[status], tbl_archive_temp.[pasted]," _
& "tbl_archive_temp.[Buying Center #], tbl_archive_temp.[Division
Name],tbl_archive_temp.[Region Name],tbl_archive_temp.[Group Name],
tbl_archive_temp.[Collection Center Name], " _
& "tbl_archive_temp.[Distribution Channel], tbl_archive_temp.[New
Institution Name], tbl_archive_temp.[Origination Channel],
tbl_archive_temp.[Sub Channel],tbl_archive_temp.[Short Name],
tbl_archive_temp.[Loan Status], " _
& "tbl_archive_temp.[Contract Date], tbl_archive_temp.[Mat date],
tbl_archive_temp.[Next Pmt Due Date], tbl_archive_temp.[Payoff Date],
tbl_archive_temp.[Paid Off?], tbl_archive_temp.[Nbr of Reg Pmts Made], " _
& "tbl_archive_temp.[# Reg Pmts Remaining], tbl_archive_temp.[Pmt Scd
Monthly Pmt Amt], tbl_archive_temp.[Last Pmt Date], tbl_archive_temp.[Last
Pmt Amt], tbl_archive_temp.[Amended?], tbl_archive_temp.[Amended This Mo?], "
_
& "tbl_archive_temp.[DEL Group], tbl_archive_temp.[Days Delinquent],
tbl_archive_temp.[Tot Past Due Pmts $], tbl_archive_temp.[Principal Balance],
tbl_archive_temp.[Val Reserve Dollar Amt], tbl_archive_temp.NETBAL, " _
& "tbl_archive_temp.[Ext?],tbl_archive_temp.[Extended This
Mo?],tbl_archive_temp.[Payoff Dollar Amt], tbl_archive_temp.[Flat Void Mth of
Orig],tbl_archive_temp.[Active BK Flag Date],tbl_archive_temp.[Active BK
Flag], " _
& "tbl_archive_temp.[Inventory Status],tbl_archive_temp.[Charge Off
Principal],tbl_archive_temp.[Chg Off Type],tbl_archive_temp.[CHG OFF
Date],tbl_archive_temp.[Cure Letter Date],tbl_archive_temp.[Skip Active
Date], " _
& "tbl_archive_temp.[Skip Completion Date],tbl_archive_temp.[Skip Completion
Sts],tbl_archive_temp.[Redeemed Date],tbl_archive_temp.[Entered
Date],tbl_archive_temp.[Repo Ordered Date],tbl_archive_temp.[Active Inactive
Flag] " _
& "FROM tbl_archive_temp LEFT JOIN Tbl_archive ON " _
& "(tbl_archive_temp.status=Tbl_archive.status) " _
& "AND (tbl_archive_temp.[Loan Acct #]=Tbl_archive.[Loan Acct #]) " _
& "WHERE (((tbl_archive_temp.PopEnterDt) Is Null) or ((Tbl_archive.status)
Is Null));"
DoCmd.RunSQL strSQLArchive2
Dim strSQLArchive23 As String
strSQLArchive23 = "INSERT INTO tbl_masterpop_resolved" _
& "([loan acct #], [PopEnterDt], [status], [pasted]," _
& "[Buying Center #], [Division Name],[Region Name],[Group Name],
[Collection Center Name], " _
& "[Distribution Channel], [New Institution Name], [Origination Channel],
[Sub Channel],[Short Name], [Loan Status], " _
& "[Contract Date], [Mat date], [Next Pmt Due Date], [Payoff Date], [Paid
Off?], [Nbr of Reg Pmts Made], " _
& "[# Reg Pmts Remaining], [Pmt Scd Monthly Pmt Amt], [Last Pmt Date], [Last
Pmt Amt], [Amended?], [Amended This Mo?], " _
& "[DEL Group], [Days Delinquent], [Tot Past Due Pmts $], [Principal
Balance], [Val Reserve Dollar Amt], NETBAL, " _
& "[Ext?],[Extended This Mo?],[Payoff Dollar Amt], [Flat Void Mth of
Orig],[Active BK Flag Date],[Active BK Flag], " _
& "[Inventory Status],[Charge Off Principal],[Chg Off Type],[CHG OFF
Date],[Cure Letter Date],[Skip Active Date], " _
& "[Skip Completion Date],[Skip Completion Sts],[Redeemed Date],[Entered
Date],[Repo Ordered Date],[Active Inactive Flag]) " _
& "SELECT " _
& "tbl_archive_temp.[loan acct #], tbl_archive_temp.[popenterdt],
tbl_archive_temp.[status], tbl_archive_temp.[pasted]," _
& "tbl_archive_temp.[Buying Center #], tbl_archive_temp.[Division
Name],tbl_archive_temp.[Region Name],tbl_archive_temp.[Group Name],
tbl_archive_temp.[Collection Center Name], " _
& "tbl_archive_temp.[Distribution Channel], tbl_archive_temp.[New
Institution Name], tbl_archive_temp.[Origination Channel],
tbl_archive_temp.[Sub Channel],tbl_archive_temp.[Short Name],
tbl_archive_temp.[Loan Status], " _
& "tbl_archive_temp.[Contract Date], tbl_archive_temp.[Mat date],
tbl_archive_temp.[Next Pmt Due Date], tbl_archive_temp.[Payoff Date],
tbl_archive_temp.[Paid Off?], tbl_archive_temp.[Nbr of Reg Pmts Made], " _
& "tbl_archive_temp.[# Reg Pmts Remaining], tbl_archive_temp.[Pmt Scd
Monthly Pmt Amt], tbl_archive_temp.[Last Pmt Date], tbl_archive_temp.[Last
Pmt Amt], tbl_archive_temp.[Amended?], tbl_archive_temp.[Amended This Mo?], "
_
& "tbl_archive_temp.[DEL Group], tbl_archive_temp.[Days Delinquent],
tbl_archive_temp.[Tot Past Due Pmts $], tbl_archive_temp.[Principal Balance],
tbl_archive_temp.[Val Reserve Dollar Amt], tbl_archive_temp.NETBAL, " _
& "tbl_archive_temp.[Ext?],tbl_archive_temp.[Extended This
Mo?],tbl_archive_temp.[Payoff Dollar Amt], tbl_archive_temp.[Flat Void Mth of
Orig],tbl_archive_temp.[Active BK Flag Date],tbl_archive_temp.[Active BK
Flag], " _
& "tbl_archive_temp.[Inventory Status],tbl_archive_temp.[Charge Off
Principal],tbl_archive_temp.[Chg Off Type],tbl_archive_temp.[CHG OFF
Date],tbl_archive_temp.[Cure Letter Date],tbl_archive_temp.[Skip Active
Date], " _
& "tbl_archive_temp.[Skip Completion Date],tbl_archive_temp.[Skip Completion
Sts],tbl_archive_temp.[Redeemed Date],tbl_archive_temp.[Entered
Date],tbl_archive_temp.[Repo Ordered Date],tbl_archive_temp.[Active Inactive
Flag] " _
& "FROM tbl_archive_temp LEFT JOIN tbl_masterpop_resolved ON " _
& "(tbl_archive_temp.status = tbl_masterpop_resolved.status)" _
& "AND (tbl_archive_temp.[Loan Acct #]= tbl_masterpop_resolved.[Loan Acct
#]) " _
& "WHERE (((tbl_masterpop_resolved.PopEnterDt) Is Null) or
((tbl_masterpop_resolved.status) Is Null));"
DoCmd.RunSQL strSQLArchive23
Me.check11.Caption = "R"
Me.check11.ForeColor = "12632256"
ever since i moved the backend file to a new folder and then back to its
original folder, i have been getting this error message. i dont know what is
going on, because i did not change the code. how can i fix this?
thanks in advance,
geebee