[450.xls]



' [mjSumple] のコード
'■■ １つのフォーム内でフォーカスを循環させる ■■
'
'

'フォームを表示します
Sub frmSumple_Show()
           
    frmSumple.MultiPage1.Page1.Cycle = fmCycleCurrentForm   'ページ内でフォーカスを循環する
    frmSumple.MultiPage1.Page2.Cycle = fmCycleAllForms      'ページタブにもフォーカス移動
           
    'フォームの表示
    frmSumple.Show

End Sub