フォーム名を指定してそれを開く

'フォーム名を指定してそれを開く
Sub MyFormLoad(ByVal strForm As String)
    Dim frmLoad As Form

    On Error GoTo Err_MyFormLoad
    Set frmLoad = Forms.Add(strForm)
    Load frmLoad
    frmLoad.Show

Exit_MyFormLoad:
    Exit Sub
Err_MyFormLoad:
    MsgBox Err.Description & " : " & _
    Err.Number & " : " & _
    Err.Source & " on MyFormLoad"
    Exit Sub
End Sub

トップページに戻る

Tips一覧に戻る