opening a form using a listbox and a button

[daveleak781]

Hey room, in Access 2000 in the VB part. Im trying to open a form after selcting a value from a list box. Once you select the value you click a button which then opens a form with the details from the list box on it. The list box is called list15 and the button command12. The form has not been created yet as there is alot of work to be done!

Thanks for your help.

Dave

[Tanis]

You need to use the OpenArgs method. Create your listbox and a command button. Behind the command button place this code.

Dim strFormName As String
Dim stLinkCriteria As String

strFormName = "MyForm"
DoCmd.OpenForm strFormName, , , , , , Me.MyListBox

Don't forget to change the form name and listboxname. Next, in the forms, that you are opening, ON LOAD event place this code.

Me.MyTextBox = Me.OpenArgs

Again, change the name of the text box that is on the form.That should do it. By the way, you don't need a command button. Place the first section of code in the After Update event of the list box.

[daveleak781]

You need to use the OpenArgs method. Create your listbox and a command button. Behind the command button place this code.

Dim strFormName As String
Dim stLinkCriteria As String

strFormName = "MyForm"
DoCmd.OpenForm strFormName, , , , , , Me.MyListBox

Don't forget to change the form name and listboxname. Next, in the forms, that you are opening, ON LOAD event place this code.

Me.MyTextBox = Me.OpenArgs

Again, change the name of the text box that is on the form.That should do it. By the way, you don't need a command button. Place the first section of code in the After Update event of the list box.

what do the dots in DoCmd.OpenForm strFormName, , , , , , Me.MyListBox mean? i would need some detail if you could please?

[MMcCarthy]

To open a form to a specific record you need to pass the criteria using the following format. In the code FormField is the field on the form that holds the data matching the listbox.

DoCmd.OpenForm FormName, , , WhereCondition

 
Private Sub Command12_Click()
    DoCmd.OpenForm "FormName", , , "[FormField]=" & Me.List15
End Sub
 
 

[MMcCarthy]

DoCmd.OpenForm FormName, , , WhereCondition

By the way the commas in this statement stand for parameters we don't need. You need to put them in to show the WhereCondition statement