ListeBox Problem!!

Me.kundenr = me.Listbox.column(0)
...
....

Og det skal stå hvor?

Du må uddybe det lidt mere terry

When you select a line in the listbox you can reference the columns in the list

with Me.YourListbox.column(x)

x is the column number from 0 to the numebr of columns -1

so if you have kundenr in column 0 (the first column) and you want to show this in a field you would use the following

Me.TheField = me.TheList.column(0)

TheField is the name of the field and TheList is the name of the listbox

Men Terry, hvor skal jeg skrive denne kode? under ListBox eller Felterne? Kodegenerator? eller kan jeg bare skrive det i selve feltet?


Bliver felterne opdateret ved brug af Me.kundenr = me.Listbox.column(0)
, når jeg vælger en ny række?

On click event

The on click or even the after update event for the listbox

okay, det virker.

Men lad os nu sige at jeg har lavet en knap der hedder "gem". når jeg vælger nogle rækker i ListBox og klikker "Gem" skal den gemme Kundenr fra hver af rækkerne.
Hvordan gøre jeg det??

Det ville være nemt nok, hvis det kun var 1 række, så kunne jeg bare bruge bruge samme måde som du viste mig, men hvad gøre jeg når jeg vælger flere rækker?

Jeg skal vel lave en do/While?? Hvordan får jeg fat i antal rækker jeg har markeret?

This is taken from Access Help

The following example prints the value of the bound column for each selected row in a Names list box on a Contacts form. To try this example, create the list box and set its BoundColumn property as desired and its MultiSelect property to Simple or Extended. Switch to Form view, select several rows in the list box, and run the following code:

Sub BoundData()
    Dim frm As Form, ctl As Control
    Dim varItm As Variant

    Set frm = Forms!Contacts
    Set ctl = frm!Names
    For Each varItm In ctl.ItemsSelected
        Debug.Print ctl.ItemData(varItm)
    Next varItm
End Sub

The next example uses the same list box control, but prints the values of each column for each selected row in the list box, instead of only the values in the bound column.

Sub AllSelectedData()
    Dim frm As Form, ctl As Control
    Dim varItm As Variant, intI As Integer

    Set frm = Forms!Contacts
    Set ctl = frm!Names
    For Each varItm In ctl.ItemsSelected
        For intI = 0 To ctl.ColumnCount - 1
            Debug.Print ctl.Column(intI, varItm)
        Next intI
        Debug.Print
    Next varItm
End Sub

Simple example:

Private Sub Command2_Click()
Dim I As Integer
    For I = 0 To Me.List0.ListCount
   
        If Me.List0.Selected(I) = True Then
           
            Debug.Print Me.List0.Column(0, I)
           
           
        End If
       
    Next I
   
   
End Sub

Contacts (Eksempel box) er det samme som ListBox (Min box)?

No Contacts is the form.
Look at the SIMPLE EXAMPLE!

okay, det virker...Tak for hjælpen :o)

great og tak :o)