ListBox Lookup with Subform 1

[Sherman123]

I have a main form with a ListBox being used to find records that match the selected value. This works fine when I click in the List Box, but when I use code to select an item in the Listbox it does not do anything.
I am using:

Form_FlightsTest.Lst1.SetFocus
    Form_FlightsTest.Lst1.Selected(0) = True

to select the 1st item in the List Box.
Using the above code selects the correct item in the ListBox but does not show the correct data on the form.
Any help appreciated. Thanks

 

[Remou]

A number of events are not triggered when the value of a control is changed programmatically.

 

[Sherman123]

Hi Remou,

I am creating a report and when I close the report I want to select the 1st item in the list box and find that record on the form.

Thanks

 

[Remou]

You can add some code to the Close event of the report, for example:

[tt]Forms!frmForm.Recordset.FindFirst "ID=" & Forms!frmForm.lstList.Columns(0,0)[/tt]

That is, find the record with an ID that corresponds to the number in the first row and the first column of the listbox.

 

[Sherman123]

Thanks again Remou,

I have this code in the report close event:

Form_FlightsTest.Recordset.FindFirst "Fltno=" & Form_FlightsTest.Lst1.Columns(0, 0)

When I close the report it finds an error on method or data member not found, Columns(0,0)

 

[Remou]

Oops. Column, not Columns.

It is best to use the forms collection.

 

[Sherman123]

Getting closer,

I now get error 3077, missing operator in expression.

Form_FlightsTest.Recordset.FindFirst "Fltno=" & Form_FlightsTest.lst1.Column(0, 0)

 

[Remou]

Is FltNo a text field? If so:

Forms!FlightsTest.Recordset.FindFirst "Fltno='" & Forms!FlightsTest.lst1.Column(0, 0) & "'"

 

[Sherman123]

Thanks Remou,

With a little modification it now works.