Change the recordsource of a subform that is on an unbound main fo

[Debbie]

Hello all,
I know there are many appends on this but I just can't get this to work.

I have an unbound main form (Main). On it are several subforms. The first
subform (Vehicle) contains a summary of the vehicles. When I click on one of
the vehicles, I would like the second subform (Vehicle Allocation History) to
display records for the vehicle selected in the Vehicle form. Below is my
code:

Dim VehAlloc As Control
Dim Main As Form
Dim VIN As String
Dim SQL As String

Set Main = Forms("VehicleSummaryForm")
Set VehAlloc = Main.VehicleAllocationHistory
VIN = Me!VIN
SQL = "SELECT * FROM Vehicle WHERE VIN = '" & VIN & "'"
VehAlloc.Form.RecordSource = SQL

I keep getting an error saying that I'm making an invalid reference. I have
tried the Parent property, fully qualifying form names and other stuff which
is now all a blur. I also tried the statement VehAlloc.Recordsource = SQL
but that didn't work. Does any one have any idea as to why this won't work?
Any suggestions would be most appreciated. Thanks in advance.
Debbie

 

[Arvin Meyer [MVP]]

Dim strSQL As String
strSQL = "SELECT * FROM Vehicle WHERE VIN = '" & txtVIN & "'"
Me.NameOfSubform.Recordsource = strSQL

You may have a problem with ambiguous naming of VIN, so it would be wise to
name the textbox txtVIN.

 

[Debbie]

Arvin,
Thank you for such a quick response! I did change the name of the text box
but I got a different error. It is from the statement:
Me.NameOfSubform.Recordsource = strSQL

With the syntax you gave me, it looks like code that would run on the main
form. I need the code to run from within the subform Vehicle and based on
the current row there, requery another subform on this screen called Vehicle
Allocation History. The main form is unbound. (I'm sure this late hour
isn't helping either of us!)
Do you see what I mean? Thanks,
Debbie

 

[n00b]

I think you are going down the wrong path. A better approach would be to
place an unbound textbox on the Main form, call it txtVIN (set its visible
property to false.)

Then add one line of code the Vehicle subform in its Current event:

Private Sub Form_Current()

Parent.txtVIN= VIN

End Sub

Then in the history subform's properties, link the child and master fields
using the textbox as you would a field name in a table:

Link Child Fields = VIN
Link Master Fields = txtVIN

Not whenever you "select" a vehicle in the vehicle subform, the txtVIN will
contain the VIN of the Vehicle and the child/master linking will
automatically requery the history subform using the value in txtVIN. This is
one of the really nice features of Microsoft Access!

Please note:
I am assuming the Vehicle table has a VIN field and the Vehicle Allocation
History table has a VIN field.

 

[Arvin Meyer [MVP]]

Yes, you need to use your own subform's name not NameOfSubform.
--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com

 

[Debbie]

Thank you both so much. The main/subform idea worked great. I actually had
that at one point but discarded because I thought both the main form had to
be bound. This is really valuable stuff! Thanks so much!
Debbie