Q&A
なぜ入力必須等のエラーチェックが１つもないのですか？
エクセルのユーザーフォームからアクセスへの書き込むとき、日付が未入力の場合エラーがでてしまいます。
SQL文を最初は商品発送日 = #" & CDate(.TextBox3) & "#としてたのですが、「型が一致しません」というエラーが出てしまいました。
そこでNullが原因かと思い、空白の場合はNullを入れるように下記のようなSQLDateという変数を作って商品発送日 = #" & SQLDate(CDate(.TextBox3)) & "#としてみましたが、やはり同じエラーが出てしまいました。
vba
1'---日付が空白の場合にNullに変換 2Function SQLDate(val As Variant) As Variant 3 If IsDate(val) = True Then 4 SQLDate = val 5 Else 6 SQLDate = Null 7 End If 8End Function
私は最近vbaを始めた者で、まだ詳しい解決策が思いつかず…。知恵をお借しいただければと思い質問させていただきました。どうぞよろしくお願いいたします。
↓全文です
vba
1'---データベースを更新 2Sub UpdateDB() 3 Call ConnectDB(False) 4On Error GoTo Err_Handler 'エラーが起きたら"Err_Handler"へ 5 adoCn.BeginTrans 'トランザクションを開始 6 7 With EditForm 8 strSQL = "UPDATE テーブル SET シリアルナンバー = '" & .TextBox1 & "', 顧客コード = '" & .ListBox1.List(0, 8) & "', " & _ 9 "エージェントコード = '" & .ComboBox1 & "', 直送先 = '" & .TextBox2 & "', 商品発送日 = #" & SQLDate(CDate(.TextBox3)) & "#, " & _ 10 "修理・加工受付日（１） = #" & SQLDate(CDate(.TextBox4)) & "#, 修理・加工完了日（１） = #" & SQLDate(CDate(.TextBox5)) & "#, " & _ 11 "故障内容（１） = '" & .TextBox6 & "', 修理内容（１） = '" & .TextBox7 & "', 加工内容（１） = '" & .TextBox8 & "', " & _ 12 "修理・加工受付日（２） = #" & SQLDate(CDate(.TextBox9)) & "#, 修理・加工完了日（２） = #" & SQLDate(CDate(.TextBox10)) & "#, " & _ 13 "故障内容（２） = '" & .TextBox11 & "', 修理内容（２） = '" & .TextBox12 & "', 加工内容（２） = '" & .TextBox13 & "', " & _ 14 "修理・加工受付日（３） = #" & SQLDate(CDate(.TextBox14)) & "#, 修理・加工完了日（３） = #" & SQLDate(CDate(.TextBox15)) & "#, " & _ 15 "故障内容（３） = '" & .TextBox16 & "', 修理内容（３） = '" & .TextBox17 & "', 加工内容（３） = '" & .TextBox18 & "' " & _ 16 "WHERE シリアルナンバー = '" & .TextBox1 & "' ;" 17 End With 18 19 adoCn.Execute strSQL 'データベースの更新を実行 20 21 adoCn.CommitTrans 'トランザクションを終了（確定処理） 22 Call CutDB(False) 23 24 MsgBox "正常に更新されました。" 25 Exit Sub 26 27Err_Handler: 'エラーが起きたときの飛び先 28 adoCn.RollbackTrans 29 Call CutDB(False) 30 MsgBox Error$ 31 Debug.Print Error$ 32 Debug.Print strSQL 33 34End Sub
回答3件
0
ベストアンサー
コードから推測するに、各テキストボックスが未入力の場合にCDate("")となってしまい、「型が一致しません」と言われているのではないでしょうか？
これを回避するならCDateの結果ではなく、CDateの中身(テキストボックスの値)を判定してあげる必要があると思います。
例えばSQLDate関数を
'---日付が空白の場合にNullに変換 Function SQLDate(val As String) As String If IsDate(val) = True Then SQLDate = "#" & val & "#" Else SQLDate = "Null" End If End Function
といった具合に、SQL文に組み込む文字列として日付を返すように変更します。
そしてこれを使う部分を、例えば
"', 商品発送日 = #" & SQLDate(CDate(.TextBox3)) & "#, "
から
"', 商品発送日 = " & SQLDate(.TextBox3) & ", "
と変更すれば、期待する動きになるのではないでしょうか？
※Accessの動作確認環境がないためはずしていたらすみません。
参考になれば幸いです。
投稿2018/04/09 07:38
総合スコア3013
期待した動作をしてくれました。ありがとうございます！
解決されたようで、よかったです。
余談になりますが、質問欄での回答についても補足しておきます。
＞入力必須についてもSQLで制御
というのはちょっと考え方がずれてしまっています。
今回作成している更新処理（UpdateDB関数）は、ボタンクリックなど何らかのタイミングで実行されるものと思います。
しかし「必須項目が入力されていない」「不正な値が入力されている」等、入力の状態によってはまだ更新処理を行うべきではない場合もあります。
そこで、更新処理を実行する前に入力チェック処理を行い、不正な場合は更新処理を行わないようにする、というのが一般的な流れです。
入力チェックのタイミングとしては
・入力内容を変更した時点で、入力項目ごとの個別チェック
・更新処理などの前に必要な項目をまとめて一括チェック
などあります。
ここらへんは、
・不正な値は入力時点ではじく⇒個別チェック
・他の項目の内容によって不正の判断が変わる（From～Toの大小比較など）⇒一括チェック
といった使い分けが一般的でしょうか。
もちろん両チェックを行うのもアリです。
参考までに。
0
提示のUpdateDBプロシージャの問題点は
『入力チェックをsql文作成の段階で行っていること』
だと思います。
大体のコーディングの場合、『入力チェックを行って、ダメならキャンセル』、『オッケーならsql文発行、トランザクション処理』とするものです。
予め入力チェックが済んでいればUpdateDBは単純になって
vba
1"修理・加工受付日（１） =" & Nz("#" + .TextBox4.Value + "#","null")
こんな感じで済むかと思います。
投稿2018/04/09 09:02
総合スコア3830
終わってたぞい(´・ω・｀)
横から失礼しますm(__)m
本回答について気になる点が２つあります。
①Accessアプリケーションの関数であるNz関数は、ExcelVBAでは提供されていません。
今回は「VBA」「EXCEL」タグでの質問でしたので、念のため。
②AccessのNz関数は、第１引数がNULL値の場合に第２引数の値を返してくれるものだったと思います。
提示いただいたコードでは第１引数が必ず"#"で括られた文字列となり、例えばテキスト未入力の場合でも"##"となってしまうのでNULL値はとらないように思えます。
※Access動作確認環境が手元にないので見当違いな指摘でしたらすみません。
あら、nzないのね。それは失礼。しかしvbaの仕様ではアンパサンドでnullと文字列を連結するとnullは空文字列のように扱われますがプラスで連結するとnullになるんですよ。
"#"+null+"#"はnullで"#"&null&"#"が"##"です。なので前者はnzで置換可能です。
なるほど、そうでしたか。
それならAccessVBAでなら動作しそうですね。失礼しました。
0
Nz関数を使えばいいのでは？
投稿2018/04/09 07:37
総合スコア1175
IIF関数とIsNull関数で、疑似的にNz関数の動作をさせる方法があるようでした。いろいろ応用できそうです。貴重さ示唆をいただきありがとうございました。
あなたの回答
tips
プレビュー
