MS Access '97 - How do i return a record of data from a list box presented in a form

[Quizzed]

Hi,
New user here and using a ms access 97 database.
I have a form containing a list box which presents the contents of a table.

On double clicking a record, i need the record to be presented in a new form where further data can be added.

I set the event procedure against the list box on Double Click, i can then use the DoCmd.OpenForm "frmDataEnt ry" but how do i pass the value that ive selected (double clicked), to then populate the form?

Many tks

[DonRayner]

the DoCmd systax is as follows

 DoCmd.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)

You would be looking to set the WhereCondition which would make your docmd look something like this

DoCmd.OpenForm "frmDataEntry",,,"[YourControl] = " & "'" &[ListBox] & "'""

"YourContro l" would be the name of the matching control on frmDataEntry
"ListBox" would be the name of the listbox you are double clicking on.

[Quizzed]

Don,
tks for the quick reply.Im now receiving a syntax error on the following code;

DoCmd.OpenForm "frmDataEnt ry", , , "[frmDataEntry.tx tRepairRef] = " & "'" & [lstEnquiry] & "'"""

To try and resolve I've tried it without the the form name eg;
DoCmd.OpenForm "frmDataEnt ry", , , "[txtRepairRef] = " & "'" & [lstEnquiry] & "'"""

I also tried replacing the form name and field with the table name and field.

Im going wrong somewhere
Appreciate any advice.

[DonRayner]

@Quizzed
It should be like this.

DoCmd.OpenForm "frmDataEntry", , , "[txtRepairRef] = " & "'" & [lstEnquiry] & "'""

And it looks like you have an extra " at the end

First set of quotes is " ' "
Second set of quotes is " ' " "

Let me know how it works.

[Quizzed]

Still receive the syntax error.
When i move away from the code, there is an additional " applied as the last character - Is this whats causing the syntax error and if so is there any way of stopping this?

[DonRayner]

Ok Try this instead

Dim strCondition as string
strCondition = "[txtRepairRef] = " & """" & me.lstEnquiry & """"
DoCmd.OpenForm "frmDataEntry", , , strCondition
 

]

[Quizzed]

It now prompts me to enter the value for the field txtRepairRef

If i then enter a value which i know exists, it does then open the form but without any of the associated data from the underlying table.

[DonRayner]

Put the following line before the DoCmd line. and let me know what shows up in the message box.

msgbox strCondition

[Quizzed]

I selected repair ref 999998 and when i dclick this now returns;
[lstEnquiry].[txtRepairRef]='999998' With an OK cmd button.

If i then select OK, it returns lstEnquiry.txtR epairRef and needs me to input a value.

[DonRayner]

Your mesbox should be showing

[txtRepairRef]='999998'

Please post back the exact code that you are using.