Problem with ListView

[mxnmx]

Hello Everyone
I'm trying to use ListView to get contents of an Access Table into it...And I use the following code to do so...but while executing the statements I get an error- Invalid property Value
Please help!!!!

Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
Dim MyItem As ListItem
Private Sub Form_Load()
Set Db = OpenDatabase("d:\check\taws\data.mdb")
SQL = "SELECT * FROM Audit "
Set Rs = Db.OpenRecordset(SQL, dbOpenDynaset)
Do While Not Rs.EOF
Set MyItem = ListView1.ListItems.Add(, , Rs(0))
MyItem.SubItems(1) = Rs(0)
MyItem.SubItems(2) = Rs(1)
'continue as above until all fields are accounted for
Rs.MoveNext
Loop
Rs.Close
End Sub

[PWNettle]

How many columns does your listview have?

This code:

Set MyItem = ListView1.ListItems.Add(, , Rs(0)) 
MyItem.SubItems(1) = Rs(0) 
MyItem.SubItems(2) = Rs(1)

Is kind of interesting since it has you adding Rs(0) for the text of the listview (column 1) then putting it in column 2 as well with MyItem.SubItems(1) = Rs(0).

Are you intending to put the same database value in both columns 1 and 2?

Normally when I add an item to a listview I do so like this:

Set MyItem = ListView1.ListItems.Add
With MyItem
  .Text = Rs(0)  '  Column 1 value.
  .SubItems(1) = Rs(0)   '  Column 2 value.
  .SubItems(2) = Rs(1)   '  Column 3 value.
End With

...which is basically the same thing you had, just a little easier to follow for me.

Anyways...I don't know if this helps...to really help it'd be good to know exactly where your code breaks when you get the error.

Cheers,
Paul

[mxnmx]

Yo!
I tried your code but it gave me the same problem I have pasted the line where it breaks and gives me an error...

MyItem.SubItems(1) = Rs(0)

When I put my curson for SubItems(1), it reads: Invalid property value....
Any ideaS?

[Mc Brain]

Have you add at least 2 subitems? I don't think so.... you have to add the subitems (with ".Add") to the item.

[Mc Brain]

Sth like this.... but I didn't try it:

Dim Db As Database 
Dim Rs As Recordset 
Dim SQL As String 
Dim MyItem As ListItem 
 
Private Sub Form_Load() 
     Set Db = OpenDatabase("d:\check\taws\data.mdb") 
     SQL = "SELECT * FROM Audit " 
     Set Rs = Db.OpenRecordset(SQL, dbOpenDynaset) 
     Do While Not Rs.EOF 
          Set MyItem = ListView1.ListItems.Add(, , Rs(0)) 
          MyItem.SubItems.add , "FirstColumn", Rs.Fields(0)
          MyItem.SubItems.add , "SecondColumn", Rs.Fields(1)
          'continue as above until all fields are accounted for 
          Rs.MoveNext 
     Loop 
     Rs.Close 
End Sub

[Hack]

mxnmx: Why did you post the same question twice under a different title?

[mxnmx]

Around two hours ago, I think there was a problem with this site....It was giving me an error that thread not posted...while it was posted....

[mxnmx]

I tried this code, Mc Brain...but got an error.
MyItem.SubItems.Add , "FirstColumn", Rs.Fields(0)

It gave an error while highlighting the word Add: Argument not optional

[Hack]

Is now...

Set MyItem = ListView1.ListItems.Add(, , Rs0))  'rs 0
MyItem.SubItems(1) = Rs(0) ' rs 0
MyItem.SubItems(2) = Rs(1) 
'should be
Set MyItem = ListView1.ListItems.Add(, , Rs(0)) rs 0
MyItem.SubItems(1) = Rs(0) rs 1
MyItem.SubItems(2) = Rs(1) rs 2
'etc

[Mc Brain]

Sorry... My mistake. It's "ListSubItem" (instead of SubItem)

[mxnmx]

Hack, it still gives the same error with the code that you made changes to...Mc Brain code works with ListSubItems but it doesn't display anything...at all in the List view...

[Mc Brain]

You have to set the View property to Report.

[mxnmx]

With the following code, I don't get any error executing it, but it does not display anything in the ListView....

Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
Dim MyItem As ListItem

Private Sub Form_Load()
Me.WindowState = vbMaximized

Set Db = OpenDatabase("c:\test.mdb")
SQL = "SELECT * FROM Details "
Set Rs = Db.OpenRecordset(SQL, dbOpenDynaset)
Do While Not Rs.EOF
Set MyItem = ListView1.ListItems.Add(, , Rs(0))
MyItem.ListSubItems.Add , "FirstColumn", Rs.Fields(0)
MyItem.ListSubItems.Add , "SecondColumn", Rs.Fields(1)
'continue as above until all fields are accounted for
Rs.MoveNext
Loop
Rs.Close


End Sub

[PWNettle]

You would need the ListView setup in Report mode (as stated above) and need 3 columns.

With ListView1
  .View = lvwReport
  .FullRowSelect = True
  .ColumnHeaders.Add , , "Column 1", 1440
  .ColumnHeaders.Add , , "Column 2", 1440
  .ColumnHeaders.Add , , "Column 3", 1440
End With

All of which can be done by right-clicking on the listview and selecting properties.

Paul

[Mc Brain]

Excellent point. I forgot about that.

[mxnmx]

Ok, it works...Thanks people...Now is there a way to make it look a bit better or atleast...This is the first time I have used a ListView....

[Mc Brain]

a bit better?
What do you mean?

[mxnmx]

You know with some lines separating each column and rows...is it possible???

[Mc Brain]

mmm... I don't think so.

[PWNettle]

Right-click on your listview control and select 'properties' - there are lots of things you can do to its appearance. You can use the properties through code too but it's usually easier to experiment using the "right-click" properties.

Paul

[mxnmx]

Thanks everyone!!!! We have finally made it work and change its appearance...;-)

[Hack]

So is it doing what you need/want it to do?

[mxnmx]

Yea Hack, its working all thanks to you....and others who helped...I just need to create a query now that can search for records in three tables at the same time....I have posted a thread but haven't got any answer yet...could you help????

[Hack]

Originally posted by mxnmx
I just need to create a query now that can search for records in three tables at the same time

That sounds like a pretty straight forward SQL statement with a couple of JOINs. Should be no problem. I haven't seen the new thread that you created specifically for this, but I will take a look.