linking forms

[geo47]

'Form fmLog2File is paired with fmLogFile by code as follows:

Private Sub Form_Current()
Dim Form As Form



Set Form = Forms("fmLogFile")
Form.Filter = "logID = " & Me!logID.Value & ""
Form.FilterOn = True
End Sub

'The same form fmLog2File is paired with fmLogOp by similar code as follows

Private Sub Form_Current()
Dim Form As Form

Set Form = Forms("fmLogOp")
Form.Filter = "logID = " & Me!logID.Value & ""
Form.FilterOn = True
End Sub

'My idea is to avoid 2 pairs of forms and 2 pieces of similar code, e.g. one piece of code which will link fmLog2File with 2 other forms simultaneously. Can you help me out with this please?

[mike60smart]

Hi
The normal process is to link Forms using the PK from table 1 and Link it to the FK in the related Table2 using Link Parent/Link Child values

The FK in the related table would then auto-populate when adding new records.

[Micron]

I thought the question was about how to avoid repetitive code so that's how I'll approach it. To avoid that you can create a function or sub in a standard module and call it from the form event, kind of like (untested)

Private Sub Form_Current()

SetFilter(Me.Name)

End Sub

Function SetFilter(frmName As String)
With Forms(frmName)
  .Filter = "logID = " & Forms(frnName).logID
  .FilterOn = True
End With

End Sub

Advise not to use reserved words for objects (e.g. Form). The called code above could just as easily be a Sub instead if there is no need to return anything to the code that calls it. You could also add the filter as a parameter, but I didn't because they're the same in each case.

EDIT - in case I missed the intent of the question, maybe you should be using a subform and setting the linked Child and Master properties?