Can someone decipher this code for me

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

This is just a snippit of code but thought one of you pros can break it down
for me and explain what it is trying to do.

Thanks in advance!

strSQL_LOan = "SELECT * from qsubCheckList_Loans WHERE LoanID = " & LoanID
rstLoan.Open strSQL_LOan, cn, adOpenDynamic, adLockOptimistic

rstLoanChecklist.Open "pplCheckListLoanItems", cn, adOpenDynamic,
adLockOptimistic
'Add Main CheckList Items
strSQL_Checklist = "Select * from pplCheckListItems where
((CheckListActive=True) and (ParentCheckListID Is Null) and
(LoanCriteria<>Null))"
rstChecklist.Open strSQL_Checklist, cn, adOpenDynamic,
adLockOptimistic

While Not rstChecklist.EOF
rst.Open strSQL_LOan & " and " &
rstChecklist("LoanCriteria").Value, cn, adOpenDynamic, adLockOptimistic
If rst.EOF Then
rst.Close
GoTo next_item
End If
rst.Close

rst.Open "Select * from pplCheckListLoanItems where
loanid=" & LoanID & " and masterchecklistid=" &
rstChecklist("MasterChecklistID").Value, cn, adOpenDynamic, adLockOptimistic
If rst.EOF Then

rstLoanChecklist.AddNew
rstLoanChecklist("MasterCheckListID").Value =
rstChecklist("MasterCheckListID").Value
rstLoanChecklist("LoanID").Value = LoanID
rstLoanChecklist("GroupName").Value =
rstChecklist("GroupName").Value
rstLoanChecklist("ConditionCode").Value =
rstChecklist("ConditionCode").Value
rstLoanChecklist("CheckListHeading").Value =
rstChecklist("CheckListHeading").Value
rstLoanChecklist("CheckListDescription").Value =
rstChecklist("CheckListDescription").Value
rstLoanChecklist("ResponsibleParty").Value =
rstChecklist("DefaultResponsibleParty").Value
rstLoanChecklist("AMCCParty").Value =
rstChecklist("DefaultAMCCParty").Value
If rstLoan("LoanAssumedClosingDate").Value <> ""
And rstChecklist("DefaultDueDateOffsetFromCloseDate").Value <> "" Then
rstLoanChecklist("DueDate").Value =
DateAdd("D", -(rstChecklist("DefaultDueDateOffsetFromCloseDate").Value),
rstLoan("LoanAssumedClosingDate").Value)
End If
 
Can you give us a clue about why you want to use this code?

Regards

Jeff Boyce
Microsoft Office/Access MVP
 
Back
Top