Question Cascading two listboxes

[josephbupe]

Hi,

I have two list boxes which I want to cascade but my code does not work:

   ' [COLOR=Teal]Find the record that matches the control.[/COLOR]
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "(ProgrammeID) = " & Str(Nz(Me![lstProgrammes], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Forms!F_Training_Programmes_Past!lstParticipants.Requery

I will appreciate your help.

Joseph

 

[pr2-eugin]

Is ProgrammeID a String? Then you have to enclose them in ' (single quotes, so it should read..

rs.FindFirst "ProgrammeID = '" & Str(Nz(Me![lstProgrammes], 0)) & "'"

 

[josephbupe]

Thanx Paul.

Stay well.

Joseph