Microsoft ListViewControl, ver 6.0(SP3)

[Geir Baardsen]

Hi!
The default ListBox control in ms access 2000 can't show the
gridlines. I could "fake" it by setting the listbox Special effect to
'Flat' and Font to underline, but this is not good enough for a user
that needs glasses. Also I need to use a very small font, ms sans
serif size 8, because of trillions of records.

Can anybody show how to retrieve data from a table and fill the
lstViewCtl, which is an ActiveX control, with data.

I know how to do this with the equivalent in Delphi 6, and I have
tried to follow that pattern. However...The Microsoft ActiveX control
seem to have a different approach.

I can't seem to find a way to access the columnHeader or anything but
the 'name' property.

So, anybody..?

Me.Name

[Terry Kreft]

In Access the control on the form is a container for the activex OBJECT
(capitalised to emphasise the word).

So with a listview you could do the following

PUt a listview control (ListView0) and a command button (Command1) on a
form, add the fllowing code and change the select statement as appropriate.

Private Sub Command1_Click()
Call FillList
End Sub

Private Sub FillList()
Dim lv As MSComctlLib.ListView
Dim loCon As ADODB.Connection
Dim loRst As ADODB.Recordset

' Note: here we're testing assigning from the object property of the control
If TypeOf Me.ListView0.Object Is MSComctlLib.ListView Then
Set lv = Me.ListView0.Object
Set loCon = Access.CurrentProject.Connection
Set loRst = loCon.Execute("Select * from MyTable")

With lv
.ColumnHeaders.Add Text:="a"
.View = lvwReport
End With

With loRst
Do Until .EOF
lv.ListItems.Add Text:=.Fields(0) & ""
.MoveNext
Loop
End With
End If
Set lv = Nothing

End Sub
--
Terry Kreft
MVP Microsoft Access
"Geir Baardsen" <ge***********@hotmail.com> wrote in message
news:35**************************@posting.google.c om...

Hi!
The default ListBox control in ms access 2000 can't show the
gridlines. I could "fake" it by setting the listbox Special effect to
'Flat' and Font to underline, but this is not good enough for a user
that needs glasses. Also I need to use a very small font, ms sans
serif size 8, because of trillions of records.

Can anybody show how to retrieve data from a table and fill the
lstViewCtl, which is an ActiveX control, with data.

I know how to do this with the equivalent in Delphi 6, and I have
tried to follow that pattern. However...The Microsoft ActiveX control
seem to have a different approach.

I can't seem to find a way to access the columnHeader or anything but
the 'name' property.

So, anybody..?

Me.Name

[Geir Baardsen]

"Terry Kreft" <te*********@mps.co.uk> wrote in message news:<-D********************@karoo.co.uk>...

In Access the control on the form is a container for the activex OBJECT
(capitalised to emphasise the word).

So with a listview you could do the following

PUt a listview control (ListView0) and a command button (Command1) on a
form, add the fllowing code and change the select statement as appropriate.

Private Sub Command1_Click()
Call FillList
End Sub

Private Sub FillList()
Dim lv As MSComctlLib.ListView
Dim loCon As ADODB.Connection
Dim loRst As ADODB.Recordset
I don't use ADO, only DAO. Any difference?
' Note: here we're testing assigning from the object property of the control
If TypeOf Me.ListView0.Object Is MSComctlLib.ListView Then
Set lv = Me.ListView0.Object
Set loCon = Access.CurrentProject.Connection
Set loRst = loCon.Execute("Select * from MyTable")

With lv
.ColumnHeaders.Add Text:="a"
.View = lvwReport
End With

With loRst
Do Until .EOF
lv.ListItems.Add Text:=.Fields(0) & ""
.MoveNext
Loop
End With
End If
Set lv = Nothing

End Sub
--
Terry Kreft
MVP Microsoft Access
"Geir Baardsen" <ge***********@hotmail.com> wrote in message
news:35**************************@posting.google.c om...

Hi!
The default ListBox control in ms access 2000 can't show the
gridlines. I could "fake" it by setting the listbox Special effect to
'Flat' and Font to underline, but this is not good enough for a user
that needs glasses. Also I need to use a very small font, ms sans
serif size 8, because of trillions of records.

Can anybody show how to retrieve data from a table and fill the
lstViewCtl, which is an ActiveX control, with data.

I know how to do this with the equivalent in Delphi 6, and I have
tried to follow that pattern. However...The Microsoft ActiveX control
seem to have a different approach.

I can't seem to find a way to access the columnHeader or anything but
the 'name' property.

So, anybody..?

Me.Name

Thanks for responding!
Me.Name

[Geir Baardsen]

Hi!

I tried your advice but I only get filled the first column.
I also had to change the code a little and even "translated" it to DAO.
It works in both cases, but only the first column is being filled.

Here's the ADODB example:
=========================
Dim lv As MSComCtlLib.ListView
Dim loCon As ADODB.Connection
Dim loRst As ADODB.Recordset
Dim strSql as String //My addition

strSql = _
"SELECT PostItID,Contact,Pho,Fax,Mob,PM,MyDate " _
& "FROM tblPostItID " _
& "WHERE (((MyDate) = DAte())) "_
& "ORDER BY Contact;"

On Error GoTo Err_1
if TypeOf Me!lstPostIt.Object IS MSComCtlLib.ListView then
Set lv = Me!lstPostIt.Object
Set loCon = Access.CurrentProject.Connection
Set loRst = loCon.Execute(strSql)

//Now the following isn't allowed in code, because it returns an error saying
//this property is only 'Readonly'(?)

'On Error GoTo Err_2
'lv.ColumnHeaders = 6
'lv.ColumnHeaders.Add Text :="CONTACT NAME"
'...etc..
'lv.View = lvwReport

On Error GoTo Err_3
with loRst
Do Until .EOF
lv.ListItems.Add Text:= .Fields(1) & ""
...etc...
.MoveNext
Loop
End With
End If

Set lv = Nothing

Alas...Only the first column get filled with data. What is the clue to success here?

My clients runs Win98, Win NT and Win 2000. Should I consider moving from
DAO to ADODB? Is there any benefits in this?

Thanks for guiding me. Any other tip is welcome.

Me.Name

[Douglas J. Steele]

You need to refer to the Subitems collection of the row you just added.

Dim itmX As ListItem

Set itmX = ListView1.ListItems.Add(, , LCase$(sFileName))

itmX.SubItems(1) = vbGetFileSizeKBStr(WFD.nFileSizeHigh +
WFD.nFileSizeLow)
itmX.SubItems(2) = fType
itmX.SubItems(3) = vbGetFileDate$(WFD.ftCreationTime)
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

"Geir Baardsen" <ge***********@hotmail.com> wrote in message
news:35**************************@posting.google.c om...

Hi!

I tried your advice but I only get filled the first column.
I also had to change the code a little and even "translated" it to DAO.
It works in both cases, but only the first column is being filled.

Here's the ADODB example:
=========================
Dim lv As MSComCtlLib.ListView
Dim loCon As ADODB.Connection
Dim loRst As ADODB.Recordset
Dim strSql as String //My addition

strSql = _
"SELECT PostItID,Contact,Pho,Fax,Mob,PM,MyDate " _
& "FROM tblPostItID " _
& "WHERE (((MyDate) = DAte())) "_
& "ORDER BY Contact;"

On Error GoTo Err_1
if TypeOf Me!lstPostIt.Object IS MSComCtlLib.ListView then
Set lv = Me!lstPostIt.Object
Set loCon = Access.CurrentProject.Connection
Set loRst = loCon.Execute(strSql)

//Now the following isn't allowed in code, because it returns an error
saying
//this property is only 'Readonly'(?)

'On Error GoTo Err_2
'lv.ColumnHeaders = 6
'lv.ColumnHeaders.Add Text :="CONTACT NAME"
'...etc..
'lv.View = lvwReport

On Error GoTo Err_3
with loRst
Do Until .EOF
lv.ListItems.Add Text:= .Fields(1) & ""
...etc...
.MoveNext
Loop
End With
End If

Set lv = Nothing

Alas...Only the first column get filled with data. What is the clue to
success here?

My clients runs Win98, Win NT and Win 2000. Should I consider moving from
DAO to ADODB? Is there any benefits in this?

Thanks for guiding me. Any other tip is welcome.

Me.Name