Thanks for replying
Can you please upload your DB so that I can understand your explanation?
Option Compare Database Option Explicit Dim s1, s2, mtype As Long, mtypek As Long Private Sub zcode_Click() mtype = Nz(Me.zcode, 1) s1 = "zkuda=0 or zkuda=" & mtype & " or zcode=" & mtype Me.Filter = s1 Me.FilterOn = True End Sub Private Sub zkuda_Click() mtypek = Nz(Me.zkuda, mtype) s1 = "zcode=" & mtypek & " or zkuda=" & mtypek Me.Filter = s1 Me.FilterOn = True End Sub Private Sub zName_Click() Debug.Print Me.Name DoCmd.OpenForm "0000m1", acNormal, , "zcode=" & Me.zcode End Sub
и, конечно же, фильтрация/поиск по части значения или интервала (для дат) в любой комбинации полей фильтрацииСпасибо!
in the example, I did not set out to remove substitutions or arrange everything with macros - my task was to show an approach to solving the problem through the subordination TREE, combining 5 tables into one + navigation through the levels forward and backward (this is served by clicking on the first two fields in the record)The database uploaded by @SHANEMAC51 still has Lookup fields in tables.
I really like your Form, nested subforms, Colors and Macros,Hi
The form that opens allows you to navigate between each Management Name which then displays a list of all Departments associated
Does this help?