Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1579 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【6429】Select Caseステートメントに関して Volley 05/10/6(木) 15:27 質問[未読]
【6430】Re:Select Caseステートメントに関して 小僧 05/10/6(木) 15:36 回答[未読]
【6431】Re:Select Caseステートメントに関して Volley 05/10/6(木) 16:06 お礼[未読]
【6429】Select Caseステートメントに関して
質問  Volley  - 05/10/6(木) 15:27 -
引用なし
パスワード
   こんにちは
フォームでテキストボックスの値が「Null値、""」の場合のMsgBoxでERRを出してます。
一度、入力後、再度値をDelとしたとき値は「""」になります。
IF分で下記ならOKなのですが
If IsNull(TextBox1.Value) Or TextBox1.Value="" Then
　 MsgBox "Err"
　 Exit Sub
End if

Select CaseステートメントですとNull値として判断してくれませ
（TextBoxの値は間違いなくNull値です）
Select Case TextBox1.Value
　　　 Case Null,""
　　　　　 MsgBox "Err"
　　　　　 Exit Sub
　　　 Case "A"
　　　　　　処理コード1
　　　 Case "B"
　　　　　　処理コード1
End Select

Select Caseステートメントを使う場合どのようにするのでしょうか。
よろしくお願いします。
【6430】Re:Select Caseステートメントに関して
回答  小僧  - 05/10/6(木) 15:36 -
引用なし
パスワード
   ▼Volley さん：
こんにちは。

Nz関数で値を置き換えてみてはいかがでしょうか？

>Select Case TextBox1.Value

Select Case Nz(TextBox1.Value,"Null")

　　Case "Null"
・
・
・
【6431】Re:Select Caseステートメントに関して
お礼  Volley  - 05/10/6(木) 16:06 -
引用なし
パスワード
   小僧 さん、こんにちは。
ご回答ありがとうございます。
上手く動作しました。
NZ関数をヘルプで確認しました。
ExcelのVBAではない関数なので気が付きませんでした。
頑張ってAccessを勉強します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
1579 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078230
(SS)C-BOARD v3.8 is Free