Access2000のVBAで・・・

IF文の条件式で、奇数だったら（偶数だったら）という条件を設定したいのですが、どういうコードにすればうまくできるでしょうか？
よろしくお願いします。

No.1 ベストアンサー 回答者： neKo_deux 回答日時： 2004/11/30 19:31

割り算の余りを求めるmod演算子を使って、

if (数値 MOD 2) = 0 then 偶数

などが一般的だと思います。

この回答へのお礼

早々に回答ありがとうございます。
MODを使えばよかったんですね。
おかげ様で解決しました。
ありがとうございました。

お礼日時：2004/12/01 11:18

No.2 回答者： imogasi 回答日時： 2004/11/30 21:06

下記をご参考に

Sub test01()
n = InputBox("数＝")
If IsNumeric(n) = True Then
If n Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
Else
MsgBox "数でない"
End If
End Sub

この回答へのお礼

回答ありがとうございます。
入力データが数値かどうかの判断まで付けて頂いて、大変参考になりました。
おかげ様で解決しました。
ありがとうございました。

お礼日時：2004/12/01 11:20