ms access linking forms

Collapse
X
 
  • Time
  • Show
Clear All
new posts
  • gabril16
    New Member
    • Oct 2020
    • 5

    ms access linking forms

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

    Private Sub Form_Current()
    Dim Form As Form

    Set Form = Forms("fmLogFil e")
    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?
Working...