Good afternoon again,
I have the below. It was working at one point. I started to modify and add textboxes to modify it for a different function and I cannot get it to do what I want anymore.
I have a code that populates a listview from an access db.
This works fine.
Now I have various text boxes that when a user clicks on a listview item, the corresponding values in the recordset gets placed in these textboxes. However it is no longer working!
Now when I click debug the first error is throw at subitem 3. it states 'object required'.
If hover over top the sub item, i can see the value from the database fine.
What's going on? What did I mess up??
I have the below. It was working at one point. I started to modify and add textboxes to modify it for a different function and I cannot get it to do what I want anymore.
I have a code that populates a listview from an access db.
Code:
Private Sub Form_Load()
Screen.MousePointer = vbHourglass
Dim myConn As ADODB.Connection
Set myConn = New ADODB.Connection
myConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=H:\Business Intelligence\VB6\FHA\Database9.mdb;"
myConn.Open
Dim strSQL As String 'our query string
Dim oRS As ADODB.Recordset 'our recordset object
Dim lvwItem As ListItem 'this is necessary to directly reference the ListView control
Set oRS = New ADODB.Recordset
Screen.MousePointer = vbHourglass
'change this SQL as appropriate for your needs
strSQL = "SELECT Identifier, Date_Entered, Request_Type, Loan_Number, FHA_Case_Number, Extension_Request_Date, State, Case_Manager, Loan_Status, Comment_Code, Step_Code, Response_Code, Appraisal_Amount, Haircut_Amount, Bid_Amount, DDPLI_Date, First_Legal_Date, Actual_First_Legal, Due_Date, Referral_date, Final_Status, Extension_Expiration_Date, Notes FROM FHATracker "
'change oConn to reflect the Connection object you are using in your program
oRS.Open strSQL, myConn
ListView1.ListItems.Clear
'load the listview
Do While Not oRS.EOF
Set lvwItem = ListView1.ListItems.Add(, , Format(oRS.Fields.Item("Date_Entered").Value, "mm/dd/yyyy"))
lvwItem.SubItems(1) = oRS.Fields.Item("Request_Type").Value & ""
lvwItem.SubItems(2) = oRS.Fields.Item("Loan_Number").Value & ""
lvwItem.SubItems(3) = oRS.Fields.Item("FHA_Case_Number").Value & ""
lvwItem.SubItems(4) = oRS.Fields.Item("Extension_Request_Date").Value & ""
lvwItem.SubItems(5) = oRS.Fields.Item("State").Value & ""
lvwItem.SubItems(6) = oRS.Fields.Item("Case_Manager").Value & ""
lvwItem.SubItems(7) = oRS.Fields.Item("Loan_Status").Value & ""
lvwItem.SubItems(8) = oRS.Fields.Item("Comment_Code").Value & ""
lvwItem.SubItems(9) = oRS.Fields.Item("Step_Code").Value & ""
lvwItem.SubItems(10) = oRS.Fields.Item("Response_Code").Value & ""
lvwItem.SubItems(11) = oRS.Fields.Item("Appraisal_Amount").Value & ""
lvwItem.SubItems(12) = oRS.Fields.Item("Haircut_Amount").Value & ""
lvwItem.SubItems(13) = oRS.Fields.Item("Bid_Amount").Value & ""
lvwItem.SubItems(14) = oRS.Fields.Item("DDPLI_Date").Value & ""
lvwItem.SubItems(15) = oRS.Fields.Item("First_Legal_Date").Value & ""
lvwItem.SubItems(16) = oRS.Fields.Item("Actual_First_Legal").Value & ""
lvwItem.SubItems(17) = oRS.Fields.Item("Due_Date").Value & ""
lvwItem.SubItems(18) = oRS.Fields.Item("Referral_Date").Value & ""
lvwItem.SubItems(19) = oRS.Fields.Item("Final_Status").Value & ""
lvwItem.SubItems(20) = oRS.Fields.Item("Extension_Expiration_Date").Value & ""
lvwItem.SubItems(21) = oRS.Fields.Item("Notes").Value & ""
lvwItem.SubItems(22) = oRS.Fields.Item("Identifier").Value & ""
oRS.MoveNext
Loop
oRS.CloseNow I have various text boxes that when a user clicks on a listview item, the corresponding values in the recordset gets placed in these textboxes. However it is no longer working!
Code:
Private Sub listview1_ItemClick(ByVal Item As MSComctlLib.ListItem)
Dim myLoan
strSQL = "SELECT Date_Entered, Request_Type, Loan_Number, FHA_Case_Number, Extension_Request_Date, State, Case_Manager, Loan_Status, Comment_Code,Step_Code,Response_Code,Appraisal_Amount, Haircut_Amount,Bid_Amount, DDPLI_Date,First_Legal_Date, Actual_First_Legal, Due_Date,Referral_date, Final_Status, Extension_Expiration_Date, Notes FROM FHATracker "
DTPicker1.Value = ListView1.SelectedItem.Text
cboRequestType.Text = ListView1.SelectedItem.SubItems(1)
txtLoanNumber.Text = ListView1.SelectedItem.SubItems(2)
txtCaseNumber.Text = ListView1.SelectedItem.SubItems(3)
txtRequestDate.Text = ListView1.SelectedItem.SubItems(4)
cboState.Text = ListView1.SelectedItem.SubItems(5)
cboCaseManager.Text = ListView1.SelectedItem.SubItems(6)
cboLoanStatus.Text = ListView1.SelectedItem.SubItems(7)
cboCommentCode.Text = ListView1.SelectedItem.SubItems(8)
cboStepCode.Text = ListView1.SelectedItem.SubItems(9)
cboResponseCode.Text = ListView1.SelectedItem.SubItems(10)
txtAprraisalAmount.Text = ListView1.SelectedItem.SubItems(11)
txtHaircutAmount.Text = ListView1.SelectedItem.SubItems(12)
txtBidAmount.Text = ListView1.SelectedItem.SubItems(13)
txtDDLPIDate.Text = ListView1.SelectedItem.SubItems(14)
txtFirstLegalDate.Text = ListView1.SelectedItem.SubItems(15)
txtActualFirstLegalDate.Text = ListView1.SelectedItem.SubItems(16)
txtDueDate.Text = ListView1.SelectedItem.SubItems(17)
txtReferralDate.Text = ListView1.SelectedItem.SubItems(18)
cboFinalStatus.Text = ListView1.SelectedItem.SubItems(19)
txtExtensionExpirationDate.Text = ListView1.SelectedItem.SubItems(20)
txtNotes.Text = ListView1.SelectedItem.SubItems(21)
End SubIf hover over top the sub item, i can see the value from the database fine.
What's going on? What did I mess up??