Michael
Is this the way to send it please?
#
Dim stDocName As String
Dim chosenorder As Integer
stDocName = "frmChooseUnit"
chosenorder = Me!Combo7.Value
DoCmd.SetParameter "qryunits!chosenorder1", chosenorder
DoCmd.OpenQuery qryUnits, acViewNormal, acReadOnly...