Ｐａｇｅ 566 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼Null値のエラー liee_chang 04/3/19(金) 17:09 ┗Re:Null値のエラー イケガミ 04/3/19(金) 17:12 ┗Re:Null値のエラー liee_chang 04/3/22(月) 9:43 ┗Re:Null値のエラー イケガミ 04/3/22(月) 9:59 ┗Re:Null値のエラー liee_chang 04/3/22(月) 12:50 ─────────────────────────────────────── ■題名 ： Null値のエラー ■名前 ： liee_chang ■日付 ： 04/3/19(金) 17:09 -------------------------------------------------------------------------
| いつもお世話になっています。 過去ログ見たのですが、見つけられませんでした。 誰かアドバイスをいただけますか？ テキストボックスに何も値が入っていないときに プロージャ実行をすると 「値を入れてください！」というMsgBoxが出るようにしたいです。 On Error Gotoを使うのではと思い、コードを以下のとおり記述しましたが 「行ラベルが定義されていません」とエラーが出てしまいます。 Private Sub SYOUKAI_Click() On Error GoTo Err_SYOKAI_Click Dim ken1 As String Let ken1 = Me!検索条件1.Value If Option1 = 1 Then Select Case opt Case 1 ***（省略）*** End Select End If SYOKAI_Exit: ken1 = "" Exit Sub SYOKAi_Err: MsgBox ("値を入力してください！") End Sub |
| >テキストボックスに何も値が入っていないときに >プロージャ実行をすると >「値を入れてください！」というMsgBoxが出るようにしたいです。 IsNull 関数を使ってください。 If IsNull(Me!コントロール名) Then >On Error GoTo Err_SYOKAI_Click >SYOKAI_Exit: >SYOKAi_Err: 行ラベルが違っていますね。 |
| ▼イケガミ さん： おはようございます。 エラー処理方法使うのが初めてなので、教えて下さい。 >IsNull 関数を使ってください。 >If IsNull(Me!コントロール名) Then これは↑どの位置にいれればよいのでしょうか？ > >>On Error GoTo Err_SYOKAI_Click >>SYOKAI_Exit: >>SYOKAi_Err: >行ラベルが違っていますね。 また、行ラベルがありませんとエラー内容も出ていますが 行ラベルとは何にあたるのでしょうか。 |
| > エラー処理方法使うのが初めてなので、教えて下さい。 IsNull 関数の方はエラー処理ではなく、入力チェックですね。 > Dim ken1 As String If IsNull(Me!検索条件1) Then MsgBox ("値を入力してください！") Else > Let ken1 = Me!検索条件1.Value > > If Option1 = 1 Then > Select Case opt > Case 1 > ***（省略）*** > End Select > End If End If > 行ラベルとは何にあたるのでしょうか。 >SYOKAI_Exit: >SYOKAi_Err: この２つです。 GoTo ステートメントで >On Error GoTo Err_SYOKAI_Click Err_SYOKAI_Click という行ラベルのところに行けという命令を だしているのに、そのような行ラベルの定義はありませんという エラーです。 |
| ▼イケガミ さん： アドバイスありがとうございました。 >IsNull 関数の方はエラー処理ではなく、入力チェックですね。 できました。最初の条件としていれればよいのですね。 >>SYOKAI_Exit: >>SYOKAi_Err: >この２つです。 >GoTo ステートメントで >>On Error GoTo Err_SYOKAI_Click >Err_SYOKAI_Click という行ラベルのところに行けという命令を >だしているのに、そのような行ラベルの定義はありませんという >エラーです。 なるほど！ ということは、この場合 >>Err_SYOKAI_Exit: >>Err_SYOKAi_Err: としていれば、エラー時の処理の指定ができたということですね。 |