Ciao,
se ti interessa testare anche openargs:
sul command button che apre la form mezzi :
DoCmd.OpenForm "mezzi", acNormal, , , , , Me.id_ditta
su apertura della form mezzi :
If Not IsNull(Me.OpenArgs) Then
Me.Filter = "Me.id_ditta=" & Me.OpenArgs
Me.FilterOn = True
End If
io per scelta procederei con una struttura maschera+sottomaschera, ma ovviamente solo tu sai cosa vuoi e come vuoi visualizzare i dati.
ti saluto.