Get selected item from subform 1

[asanchez4]

I have a form with a subform that is linked to a table.

Once I click on a command button, i need to get the infomration from the highlighted field in the subform.

for example, the subform is based on a table "Customers". The subform is named "Customers subform". I want to be able to highlight one of the customers and then click the command button to get the FirstName and LastName from the selected field in the customers subform.

Any suggestions would be greatly appreciated.

thanks

 

[TheAceMan1]

How are ya asanchez4 . . . .

[blue]i need to get the infomration from the highlighted field in the subform[/blue]

Hmmmmm . . . . . Get it to do what? For what what purpose?
Put it in a textbox . . . . . what?

Getting it, is not the problem! We can't help ya unless you tell us what ya wanna do with it!

See Ya! . . . . . .

 

[asanchez4]

Thanks AceMan1

I have a form based on the table "Units". It has a subform, that is based on "Customers" table. The subform Customers is not linked to the Units form.

When I click the button, I want to take the FirstName and LastName fields of the highlighted instance in the Customers subform and then place those values into the corresponding fields in the Units form.

Thanks again.

 

[TheAceMan1]

OK asanchez4 . . . .

[blue]I want to take the FirstName and LastName fields of the [purple]highlighted instance[/purple] in the Customers subform[/blue]

I believe your highliteing first & last name together, side by side. [blue]For the code, you only have to set the cursor in any field on the record.[/blue] Either way, I'm going on the premise that a record is selected with the name fields of interest. If not, you'll have to be more specific about this [purple]highlighted instance[/purple].

The code below should do the job. If not . . . let me know.

[blue]   Dim frm As Form, sfrm As Form
   
   Set frm = Forms![purple]YourMainFormName[/purple]
   Set sfrm = frm![purple]YoursubFormName[/purple].Form
   
   frm!FirstName = sfrm!FirstName
   frm!LastName = sfrm!LastName
   
   Set sfrm = Nothing
   Set frm = Nothing[/blue]

See Ya! . . . . . .