Datakilde til Listviewcontrol (activex)

Arbejder i access2000

docmd.OpenForm "TheForm",,,"ID = " & Me.Liste0.Column(0)

Ah! maybe I'm a bit too fast there! Back in five :o)

Hæ hæ Terry
ja det tror jeg, venter spændt :o)

item.text gives you the value of the text

Ok
Jeg ønsker så at åbne formen, og få vist den record som jeg dobbeltklikker på, nøglen skal jo så være noget unikt som jeg kan henvise til på controllen

and if you have used the key field which is NOT needed then
item.key gives you this!

This is done in the Item click event. You could catch the record chosen in the click event and then if you get a double click open the form

Lyder fint, men desværre har jeg nok brug for et eksemple for at komme videre, jeg er villig til at give flere points :o)

no 100 is fine (if we find a solution)

will just put something together

Okay
Det haster ikke, så giv dig bare god tid :o)

In the previous question we used this code to fill in the columns
Do Until .EOF
     
            Set itmX = lstPersoner.ListItems.Add(, , rs!ID)
           
            itmX.SubItems(1) = rs!EfterNavn
            itmX.SubItems(2) = rs!Fornavn
            itmX.SubItems(3) = rs!Telefon
            itmX.SubItems(4) = rs!Mail
           
            .MoveNext
           
        Loop

So you should (I think) hav a unique ID in the first column, is that not correct?

If so, try this.
Make a varaible at the top of the form (not in any sub or function)

Example:

Private ID as Long

Now in the click event

ID = Item.text

Now in the double click

docmd.OpenForm "TheForm",,,"ID = " & ID

Okay, tester lige og vender tilbage om 5 minutter

Hej igen
Det driller desværre noget, kunne jeg sende db til dig den fylder kun 200KB

OK!
NOSPAMeksperten@santhell.dkNOSPAM (compact then zip)

and remove NOSPAM

Okay sender den, bemærk at feltangivelser og datatyper er lidt anderledes end det oprindelige spørgsmål, men ideen er den samme

Hej Terry
Ja det virker jo perfekt, jeg forstår det meste, der hvor jeg gik kold var i hele syntaksen omkring Item politikken. Du skal have mange tak for hjælpen, det var bare alletiders, jeg lærte en masse af det, vender nok tilbage om en rum tid med flere spørgsmål omkring dette, jeg dropper din kode her på E, så andre kan se havd vi fandt ud af. læg et svar så er Points på vej til dig.

mange hilsner Anders

Koden der virker:
Option Compare Database


Private sItem As String


Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim itmX As ListItem
   
  Set rs = New ADODB.Recordset
  With rs
       
      Set .ActiveConnection = CurrentProject.Connection
       
        .Open "Select * From tblservere", , , adLockOptimistic
   
      Do Until .EOF
      Set itmX = lstservere.ListItems.Add(, , rs!Servernavn)
     
          itmX.SubItems(1) = rs!Serverrum
          itmX.SubItems(2) = rs!OS
          itmX.SubItems(3) = rs!Servicepack
          itmX.SubItems(5) = rs!Kommentar
       
         
           
           
            .MoveNext
           
      Loop
       
    End With
    rs.Close
 
   
End Sub

Private Sub lstservere_DblClick()
    DoCmd.OpenForm "frmregserver", , , "Servernavn = '" & sItem & "'"
End Sub

Private Sub lstservere_ItemClick(ByVal Item As Object)
    sItem = Item.Text
   
End Sub

Okay, der jo sådan set svaret 09/03-2004 19:54:06, så her er points.

tak

Det mig der takker,det simpelthen nogle kanongode eksperter her på E. nu det hjemad til et glas vin og lidt at spise. Sov godt

:o)