画面1のフレームにラジオボタンを6個作成しておいて・・・

-----------------画面1からフォーム1、フォーム2を開く

Private Sub 開くボタン_Click()

’ラジオボタンの番号が4以下ならフォーム1、それ以外ならフォーム2を開く。

If Me.フレーム < 4 Then

  'フォーム1開く。OpenArgsを渡す。

  stDocName = "フォーム1"

  DoCmd.OpenForm stDocName, , , , , , Me.フレーム

Else

  'フォーム2を開く。OpenArgsを渡す。

  stDocName = "フォーム2"

  DoCmd.OpenForm stDocName, , , , , , Me.フレーム

End If

End Sub

-----------------フォーム1にて

Private Sub Form_Load()

Dim Q1, Q2, Q3 As String

Dim strSource As String

Q1 = "クエリ1"

Q2 = "クエリ2"

Q3 = "クエリ3"

Me.在庫リスト表示.Form.OrderBy = "端末製造番号"

Me.在庫リスト表示.Form.OrderByOn = True

Me!フレーム8 = 1

If Len(Me.OpenArgs & "") > 0 Then

  Select Case Me.OpenArgs

  Case 1

  strSource = Q1

  Case 2

  strSource = Q2

  Case 3

  strSource = Q3

  End Select

  Me.リスト名 = strSource

  Me.在庫リスト表示.Form.RecordSource = strSource

End If

End Sub

-----------------フォーム2にて

Private Sub Form_Load()

Dim Q4, Q5, Q6 As String

Dim strSource As String

Q4 = "クエリ4"

Q5 = "クエリ5"

Q6 = "クエリ6"

If Len(Me.OpenArgs & "") < 0 Then

Exit Sub

End If

  Select Case Me.OpenArgs

  Case 9

  strSource = Q9

  Case 10

  strSource = Q10

  Case 11

  strSource = Q11

  Case Else

  Exit Sub

  End Select

  Me.リスト名 = strSource

  Me.チップ在庫リスト表示.Form.RecordSource = strSource

End Sub