how two forms can be synchronized

[gabril16]

Hi All
form1: table A with table B with many 2 many relations
form2 table A and table C with many 2 many relations

Can both forms be synchronized, e.g. when a record in form1 table A is selected form2 table A goes to the same record

[cactusdata]

Yes. Set the Filter of form2 from the OnCurrent event of form1:

Dim Form As Form
 
Set Form = Forms("form2")
Form.Filter = "ID = " & Me!ID.Value & ""
Form.FilterOn = True

where ID is the primary key of table A.

[twinnyfo]

gabril16,

Welcome to Bytes!

Are these two, separate, independent forms? Or is this a case of a form with a subform?

CactusData's solution will certainly work for two independent forms, but only if both forms are open.

If you have a subform configuration, simply establish the Parent Child relationship in the Subform's properties.

Hope that hepps.

[gabril16]

Option Compare Database

Private Sub Form_Current()
Dim Form As Form
'form2=fmClientLogDtls2
'logDtlsID is primery key of table A
Set Form = Forms("fmClientLogDtls2")
Form.Filter = "ID = logDtlsID" & Me!ID.Value & ""
Form.FilterOn = True
End Sub

[gabril16]

Can you please advice what's wrong with my code?

[twinnyfo]

gabril,

Please tell us what is not working with your code. Are you receiving an error? If so, at what line?

Part of the problem may be in declaring a variable with the name of "Form" which is usually a reserved word and the DB may be getting confused by it.

Plus, it would be very helpful to know more about the structure of your tables/forms, as to whether you have a subform, or two open forms.

Thank you.

[cactusdata]

Try this:

Dim Form As Form
 
Set Form = Forms("fmClientLogDtls2")
Form.Filter = "logDtlsID = " & Me!logDtlsID.Value & ""
Form.FilterOn = True

[gabril16]

Thank you all
Thank you cactusdata...it's working perfectly