Sub Test()
    DoCmd.OpenForm "フォーム名", , , , , , "OpenArgsの内容"
End Sub

Private Sub Form_Open(Cancel As Integer)
    
    If IsNull(Me.OpenArgs) Then
        MsgBox "OpenArgs に何も入っていない"
    End If

End Sub


 ↓ facebook のフォローで応援してください。お願いします。



Microsoft Office ブログランキングへ