Unbound listbox

[Brian]

Hallo,

Got a suggestion for changing adressing a listbox based on a text box.

But i still have problems to get it to work.

Based on ID field as number: works fine...
Me.RecordsetClone.FindFirst "[OGnumberID] = " & Me![OGList]
Me.Bookmark = Me.RecordsetClone.Bookmark
Me.[OGList].Value = Me.[OGnumberID].Value


Based on ID field as text: doesnt work...
Me.RecordsetClone.FindFirst "[OGtextID] = " & Chr$(34) & Me![OGList] &
Chr$(34)
Me.Bookmark = Me.RecordsetClone.Bookmark
Chr$ (34) & Me![OGList] & Chr$(34) & Value = Me.[OGtextID].Value

Anybody a suggestion on how to correct the above code? I think the last line
doesnt work...

Regards,
Brian

 

[Douglas J. Steele]

You only need the Chr$(34) in the FindFirst statement.

Me![OGList].Value = Me.[OGtextID].Value

should work fine.