filtering subform2 based on subform1

[lazynewt]

Hi guys

i have 1 mainform and within this i have
-subform1 ----this form contains listed data
-subform2 ----this form contains listed data

subform 1 has specific data which is [dob] which is pulled from table [customers]

subform 2 also has data [dob] which is pulled from [apps]

There is a button next to each record on subform1. When clicked it needs to filter subform2 and only display records that contan the same dob. This is the code i am trying to get to work.

Private Sub Command28_Click()

Dim f As Form

Set f = Parent!subform2.Form                '


f.Filter = "[DOB]=" & Me![DOB] & "'"
f.FilterOn = True



End Sub

can someone point out where im going wrong filtering. No matter what variation i use i cant get it to filter based on the dob on subform1..

thanks in advance.

 

[neileg]

Try using the full subform reference instead of using the Me shortcut.

 

[lazynewt]

will that relate to specific record that the onclick button is in ?

thanks

 

[lazynewt]

is this wrong ?

f.Filter = [DOB] = " &  Me!subform1.Form!DOB"

i can see the refresh but it doesnt seem to be filtering.

 

[NigelShaw]

Hi There

if the subform is based on the mainform, why isnt it automatically filtered? this should be a pretty simple excerise in the sense of adding the subform and using the wizard to select what type of connection is required. you select the data to to link the forms together and it is the automatically filtered.

NS

 

[lazynewt]

Im not sure if im explaining myself correctly or i might be missunderstanding.

1 main form = linked to nothing (this is just a blank form)

subform1 = contans listed data from table1

subform2 = contains listed data from table2

i am trying to have 1 button per record in table1 that when clicked will filter table2.

Both table 1 and table 2 contain a field called DOB.

 

[lazynewt]

Re: resolved.

i had an error with my filter code. -

f.Filter = "[DOB]=" & "#" & Me![DOB] & "#"

Problem solved.