テスト94

'Accessのフォームに対するコード
Private Sub コマンド36_Click()

'○書式
'DoCmd.OpenForm フォーム名, フォームを開いた際のビュー, フィルターの名前, 抽出条件, データ入力モード, ウィンドウモード

'○DoCmd.OpenFormの「抽出条件」を使う時の注意点
'表示するフォームに対して､事前に表示させたいデータの
'テーブルまたはクエリを設定しておく必要がある...〆('ω' )ﾒﾓﾒﾓ

DoCmd.OpenForm "練習フォーム", acNormal, , "グループID='3'", acFormEdit, acDialog, txtbox1.Value

End Sub

'------------------------------------------------

Private Sub Form_Open(Cancel As Integer)

If Not IsNull(Me.OpenArgs) Then

    Me.txt報告3.Value = Me.OpenArgs

End If
    
End Sub