List box VBA

[hollarindy]

I need a little help with some list boxes. The VBA I am using is supposed to display information from a query when you double click an entry. A form is supposed to pop up and let you edit the table the data originates in. The code for List20 works but the code for List6 pulls up a blank form.

Option Compare Database
Private Sub List6_DblClick(Cancel As Integer)
DoCmd.OpenForm "frmCombined", acNormal, , "[ID] = " & Me.List6
End Sub

Private Sub List20_DblClick(Cancel As Integer)
DoCmd.OpenForm "frmFollowUp", acNormal, , "[ID] = " & Me.List20
End Sub

 

[pbaldy]

Is the failing one set to multi-select? If so, code is required, along these lines:

http://www.baldyweb.com/multiselect.htm

 

[hollarindy]

How do I tell if it is set to multi select?

 

[hollarindy]

Ok, did some pocking around and I think I found the multi select option. I have it set to "none".

 

[pbaldy]

And does your code work now?

 

[hollarindy]

I think it was a glitch in Access. I started over from a save point and did exactly the same thing and now it works. Before I'd save after creating a second list box leave a fidle with something else and when I came back the new list box I just created would be gone. Now I'm stuck trying to add new records via a sub for to a child table. It lets me add the first. I think I just need a fresh start with it tomorrow. For now the list boxes are working at least.