Buonasera. Avrei necessità di un consiglio.
Ho la seguente situazione Form1 con SubFom1 e poi Form2 con SubForm2.
Avendo caricato la Form1 con recordset associato alla sottomaschera SubForm2 vorrei che attraverso un pulsante si possa lanciare la Form2 con SubForm2, il cui recordset sia lo stesso della SubForm1, magari dopo aver manipolato il recordset applicato, ad esempio, delle azioni di filtro.
Allo stato attuale utilizzo il seguente metodo:
Dim set_ID As String
Dim rst As Recordset
Dim frm As Form
Dim pos_record As Long
Set rst = Form_SubForm1.Recordset
With rst
pos_record = .txtID
rst.MoveFirst
Do Until rst.EOF
set_ID = set_ID & "," & rst!ID
rst.MoveNext
Loop
End With
DoCmd.OpenForm "Form2", acNormal
Set frm = SubForm2
With frm
.Filter = "ID IN (" & Mid(set_ID, 2, Len(set_ID)) & ")"
.FilterOn = True
End With
esiste un metodo alternativo e/o più efficiente?
Grazie.