vba access listbox highlight with current form ItemData

[kantidenos]

i select my list item which bookmark respective record i my form.
how kan i highlight the current record i listbox when i go to next record i form using the next button i form?
how the select item i listbox kan follow the record i users form?

 

[isladogs]

Not really sure what you are asking.
Have a look the example app in this link https://www.access-programmers.co.uk/forums/showthread.php?t=303974
Form4 may be relevant to this comment...

how the select item i listbox kan follow the record i users form?

 

[Gasman]

I believe the o/p is asking how the select the correct matching entry in a listbox after selecting a record in the form.?

 

[kantidenos]

this is exactly what i ask

 

[Gasman]

All I can think of is to loop through the listbox and locate a matching entry to the record (ID perhaps?), then make that selected.?

https://access-programmers.co.uk/forums/showthread.php?t=36893

 

[kantidenos]

it seems to work only if i put the ID number (like 551, instead for "CA") in to the code.
if i change it to "me.memberID" (to take the forms member ID) nothing happens...then

 

[isladogs]

What you're asking for is the reverse of normal usage and makes no sense to me.

The purpose of a listbox is that you select an item from it in order to see details of that item on your form

 

[kantidenos]

you are right about this.
but it is unfortunately the reverse I need just nu.
when it works for a record why not work for any other.
--------this is my code--------
ar = Me!arendeID
For i = 0 To Listruta24.ListCount - 1
If Listruta24.Column(0, i) = "ar" Then
' Do some stuff
Listruta24.Selected(i) = True
MsgBox ar
End If
Next i
-------------------------------------------------
i appreciate your help any way, thank you

 

[Gasman]

I would have expected first column to hold ID and the second column the data.?
So use
Listruta24.Column(1, i)

 

[kantidenos]

it works nu but need "like" not "="

el = Me!melosID
With Me.List47
For i = 0 To List47.ListCount - 1
If List47.Column(0, i) Like el Then
List47.Selected(i) = True
End If
Next i
End With

thanks a lot!!