No34988.複数条件の書き方

OS:XP
Access Version:2000

はじめまして、
よろしくお願いします。

早速質問なのですが、VBAでIf文の中でAndって使えるのでしょうか？
下記のソースは、テキストボックスに入力した値が、0〜2005の間にあれば
表示するといった内容なのですが、どうも上手くいきません。
どなたかIf文で複数条件の付け方を教えて下さい。

If 0 < yInt And yInt <= 2005 Then
MsgBox yInt
Else
MsgBox "入力された値が不正です"
End If

よろしくお願いします。
ちなみにyIntの値は2000です。

なんで！？ さん：
こんにちは。

>どなたかIf文で複数条件の付け方を教えて下さい。

あっていますよ。

Sub てすと()
Dim yInt As Integer
yInt = 2000
If 0 < yInt And yInt <= 2005 Then
MsgBox yInt
Else
MsgBox "入力された値が不正です"
End If
End Sub

を実行すると、「2000」がメッセージボックスででてきます。

>テキストボックスに入力した値が

こちらが「yInt」にうまく代入されていないんでしょうかね。

MsgBox yInt
> If 0 < yInt And yInt <= 2005 Then
> MsgBox yInt
> Else
> MsgBox "入力された値が不正です"
> End If

として、yIntにどんな値が入っているか、確認してみては？