اخي اظن هذا ما تقصده قرب الكود
If CurrentProject.AllForms(Trans_top).IsLoaded = True Then
'Forms![FrmMoh]![Field] = Me.Orient
DoCmd.OpenForm "FrmMoh", , , "Field=" & Me.Orient
DoCmd.Close
Else
DoCmd.OpenForm "FrmAmr", , , "Field=" & Me.Orient
'Forms![FrmAmr]![Field] = Me.Orient
DoCmd.Close
End If