Data on 1 Form to display on another

[rexb]

Hello,

I have 2 forms, both are data entry forms only a few minor difference. What I want is to have the data on the 1st form display on the 2nd form (not necessarily all the data).

The 2nd form is opened once I click on a button. When it is clicked I would like to display the current records on the 1st form to display on the 2nd form.

How do I do this? Can anybody help me please.

Thank you.

 

[RuralGuy]

Maybe this link will be helpful.

 

[rexb]

Maybe this link will be helpful.

Thanks for you response ruralguy. but how do i do it if it is on a tab page?

 

[RuralGuy]

I'm not sure what you mean. A tab control does not affect the syntax for referencing controls.

 

[rexb]

Well just thought maybe that is what's causing my error when I tried your suggestion.

I tried playing around now I think I am on the right track, the only problem is "Enter Parameter Value" box display and when I type in the Vehicle Id. the record displays. What I want is once I click on the Maintenance button below it will go directly to record which contains vehicle id, ehs# VIN and plate #. I've attached my form for you to see.

Thank you very much.

 

[RuralGuy]

Is the frmInventoryMain still open? It needs to be.

 

[rexb]

How do I check if it's still open (not sure how)

 

[RuralGuy]

What code or macro is behind the button that opens the 2nd form?

 

[rexb]

Private Sub btnVehicleMaintenance_Click()
DoCmd.OpenForm "frmVehicleMaintenance", , , "txtbox_VehicleId = '" & [Form]![frmInventoryMain].[txtbox_VehicleId] & "'"
End Sub

This is all that's on the event procedure

 

[Scooterbug]

If VehicleID is a number, you dont need the quotes. By putting the quotes, you are telling Access that the value of txtbox_VehicleID is a string.

Should just be:

Private Sub btnVehicleMaintenance_Click()
DoCmd.OpenForm "frmVehicleMaintenance", , , "txtbox_VehicleId = " & [Form]![frmInventoryMain].[txtbox_VehicleId] 
End Sub

 

[rexb]

If VehicleID is a number, you dont need the quotes. By putting the quotes, you are telling Access that the value of txtbox_VehicleID is a string.

Should just be:

Private Sub btnVehicleMaintenance_Click()
DoCmd.OpenForm "frmVehicleMaintenance", , , "txtbox_VehicleId = " & [Form]![frmInventoryMain].[txtbox_VehicleId] 
End Sub

When I tried that I get
Run-time error '2465':
Microsoft Office Access can't find the field 'frmInventoryMain' referred to in your expression.

 

[RuralGuy]

If this is executing from the frmInventoryMain form then all you need is:

Private Sub btnVehicleMaintenance_Click()
   DoCmd.OpenForm "frmVehicleMaintenance", , , "txtbox_VehicleId = '" & Me.txtbox_VehicleId & "'"
End Sub

 

[Scooterbug]

When I tried that I get
Run-time error '2465':
Microsoft Office Access can't find the field 'frmInventoryMain' referred to in your expression.

My bad...should of been:
[Form]![frmInventoryMain]![txtbox_VehicleId]

But as RuralGuy said, you can use me.txtbox_vehicleID

 

[RuralGuy]

Actually the syntax uses the Forms collestion so it should read:
[FORMS]![frmInventoryMain]![txtbox_VehicleId]

 

[Scooterbug]

Actually the syntax uses the Forms collestion so it should read:
[FORMS]![frmInventoryMain]![txtbox_VehicleId]

Grrr....stupid typos on my part

 

[rexb]

If I use this
1. DoCmd.OpenForm "frmVehicleMaintenance", , , "txtbox_VehicleId" = " & [Forms]![frmInventoryMain]![txtborx_VehicleId] &" '"

or this

2. DoCmd.OpenForm "frmVehicleMaintenance", , , "VehicleId" = " & me.txtborx_VehicleId "

The 2nd form shows up but with out the data.

 

[rexb]

I tried this

DoCmd.OpenForm "frmVehicleMaintenance", , , "txtbox_VehicleId" = " & [Forms]![frmInventoryMain]![txtborx_VehicleId] &" '"

and this

'DoCmd.OpenForm "frmVehicleMaintenance", , , "VehicleId" = " & me.txtborx_VehicleId "

The 2nd form now shows up but there is no data. Any suggestions?

Thank you

 

[RuralGuy]

Has the record in the 1st form been saved yet? Is it even available for the second form to display?

 

[rexb]

Has the record in the 1st form been saved yet? Is it even available for the second form to display?

Yes it has been saved, actually I already have 3 records on the first form.

 

[Scooterbug]

I tried this

DoCmd.OpenForm "frmVehicleMaintenance", , , "txtbox_VehicleId" = " & [Forms]![frmInventoryMain]![txtborx_VehicleId] &" '"

and this

'DoCmd.OpenForm "frmVehicleMaintenance", , , "VehicleId" = " & me.txtborx_VehicleId "

The 2nd form now shows up but there is no data. Any suggestions?

Thank you

You are using the quotes wrong. I am assuming that VehicleID is a number...in which case:

DoCmd.OpenForm "frmVehicleMaintenance", , , "VehicleId" = " & me.txtborx_VehicleId "

should be:

'DoCmd.OpenForm "frmVehicleMaintenance", , , "VehicleId" =  & me.txtborx_VehicleId