【ACCESS VBA】条件によって処理を分岐する方法-その1-

訪問して頂きありがとうございます。まさふくろーです。

この記事では、条件によって処理を分岐する方法-その1-をご紹介します。

スポンサーリンク

条件によって処理を分岐する

条件によって処理を分岐する構文

If condition Then
   statements

[ ElseIf elseifcondition Then ]

          [ elseifstatements ]

[ Else ]

  [ elsestatements ]

End If

説明
条件によって処理を分岐するには、Ifステートメントを使用します。
条件式(condition、elseifcondition)は、条件に一致すれば「True」を、条件に一致しなければ「False」が返されます。
条件式「condition」が「True」の場合は「statements」を、「False」の場合は次の条件式「elseifcondition」の判定を行います。
条件式「elseifcondition」が「True」の場合は「elseifstatements」を、「False」の場合は「elsestatements」を実行します。
指定項目 必須 説明
condition 条件式を指定します。
statements 実行したい処理を記述します。
ElseIf~Then 条件式が複数ある場合、使用します。
Else 条件式の判定結果が「False」の場合に、実行したい処理を記述します。
End If

条件式の判定結果が「True」のみしかない場合は、省略可能です。
End Ifを省略する場合の構文:If condition Then statements

サンプルプログラムで使用する関数

InputBox関数

InputBox(prompt, [ title ], [ default ], [ xpos ], [ ypos ], [ helpfile, context ])

説明
InputBox関数は、入力ダイアログ ボックスを表示し、ユーザーがテキストを入力するかボタンをクリックするまで待機し、テキストボックスに入力した文字列を返します。
指定項目 必須 説明
prompt ダイアログボックスにメッセージとして表示する文字列を指定します。
title ダイアログボックスのタイトルバーに表示する文字列を指定します。
default テキストボックスに初期表示したい文字列を指定します。
xpos 画面の左端からダイアログボックスの左端までの水平方向の距離を twip 単位で示す数値式です。 xpos が省略された場合、ダイアログボックスは水平方向の中央寄せで表示されます。
ypos 画面の上部からダイアログボックスの上端までの縦方向の距離を twip 単位で示す数値式です。 ypos が省略された場合、ダイアログボックスは画面の約 3 分 1 下に下がった位置に垂直方向に配置されます。
helpfile

ヘルプボタンが表示されます。
helpfileを指定した場合は、contextも必ず指定します。
context

コンテキストIDを指定します。
contextを指定した場合は、helpfileも必ず指定します。

サンプルプログラム

1 Subプロシージャ「Sample」を作成。
3 InputBox関数の戻り値用変数「ret」(長整数型)を宣言。
5 InputBoxで入力された値を、変数「ret」に代入。
7 変数「ret」の値が、「0」より小さい場合、
8 「マイナス」とメッセージボックスに表示する。
9 変数「ret」の値が、「0以上10未満」の場合、
10 「0以上10未満」とメッセージボックスに表示する。
11 上記の条件式に当てはまらなかった場合、
12 「10以上」とメッセージボックスに表示する。

実行結果

「-1」を入力した場合

「2」を入力した場合

「10」を入力した場合

最後まで読んでいただき、ありがとうございました!