If 参加賞 = 1 Then '←

Access2003　Windows-xpを使っています。
フォーム上に、複数のテキストボックスがあり、そこにコードを書いてあるのですが、、、
現在、「参加賞」のテキストボックスに「１」を入力したとき（If 参加賞 = 1 Then）
というようになっていますが、ここを"「０以外の数値」を入力した時"というコードにしたいのですが、どのように書いたらよいのでしょうか？
すみませんが、どなたか教えてください。
宜しくお願い致します。
-----------------------------------------
Private Sub 参加賞_AfterUpdate()

If 参加賞 = 1 Then

'他を0にする
i参加賞 = 0
F賞 = 0
E賞 = 0
D賞 = 0
i提案賞 = 0
i努力賞 = 0
idea賞 = 0

End If
End Sub
---------------------------

No.1 ベストアンサー 回答者： kakkysan 回答日時： 2007/03/07 12:16

０以外なら

If 参加賞 <>1

０より大きい数値なら
If 参加賞 >0

で、いかがですか？

この回答へのお礼

すばらしいです！！
If 参加賞 <>0　とやったらやりたいようにできました！！
ありがとうございました！！！

お礼日時：2007/03/07 12:45