' здесь уже идет форматирование формы, его может и не быть ,если форматируете в конструкторе
Dim strsql$
strsql = "select * from tblActoins Where([idURL]=" & Me!ID & ");"
With sfrm1
.NavigationButtons = False
   .RecordSource = strsql
   .OnCurrent = "[Event Procedure]"
' здесь присвоение - примеры - форма, которая работает подчиненной может быть одна ,а применений куча, причем прям на той же главной форме.
   With .Controls("Combo0")
      .RowSource = "SELECT tblN.ID, tblN.Naim FROM tblN WHERE (((tblN.IDP) IN (1,2))) ORDER BY tblN.IDP, tblN.Vid;"
      .ControlSource = "IDctrl"
       .BoundColumn = 1
       .ColumnCount = 2
       .ListRows = 10
       .ColumnWidths = "0; " & .Width
       .ColumnHeads = False
   End With
.Text2.ControlSource = "qValue"
.Text6.ControlSource = "IDURL": .Text6.DefaultValue = Me!ID 
.Check4.ControlSource = "towork": .Check4.DefaultValue = False
End With
With Me.Child20 ' здесь нужно делать - форма лепит свои связи
    .LinkMasterFields = "[Text35]"
    .LinkChildFields = "IDProcess"
End With
Me.Text40.ControlSource = "=[Child20].[Form]![Text10]"' это про синхронизированные формы
End Sub