I have a form (form2) with a listbox of names. What I want is that when users wanting to edit a name in the list can double-click it to open a second form (form3) in which the name is shown in a text box; when they have finished editing they close the second form and the new version of the name is passed back to a text-box on the first form.

The bit I can't get to work is ensuring that the text-box on the second form contains the selected value when it's opened. When the second form opens, the text-box is always empty ! I've tried:

-setting it by code in the first form:
[Forms]![form3].[txtItem].Value = Me.List0.Value

-setting it by code in the second form:
Me.txtItem.Value = [Forms]![form2].List0.Value

-setting the default value of the second form's text-box:
=[Forms]![Form2]![List0]

I think the property you need is the source of the textbox. It should be the second box on the properties screen. put [Forms]![Nameofyourform]![Nameoftextbox].

HTH

Dave

You could pass it to a public variable if the form references are not working.

On the double click event of the list box, put this:

Public sValue As String

sValue = Me.List0

I wouldn't use "Me.List0.Value"

Then on the On Open event of the next form, do this:

Me.txtItem = sValue

I think what may also be the problem is that when you use .Value on the second text box, that it sets the value, but doesn't display the value. Leave .Value off and see what happens too.

Did that help?


mmcdonal

Thanks for your suggestion, the public variable worked with a little extra trial and error. The only combination I've found that works has all the code in the first form (form2, which opens form3 when the list box is double clicked). The code in form2 is:

Public strSelectedItem As String



Private Sub List0_DblClick(Cancel As Integer)

Dim varItem As Variant

'================================================= ====
' set strSelectedItem to the selected item in the
' list box. This approach is necessary because
' multiple selections are enabled for the list box
' (necessary for other purposes).
'================================================= ====

With Me.List0
    For Each varItem In .ItemsSelected
    strSelectedItem = .ItemData(varItem)
    Next
End With

DoCmd.OpenForm "form3"

'================================================= ====
' Set the textbox on the new form to the item to be edited
'================================================= ====

[Forms]![form3].[txtItem] = strSelectedItem

End Sub