よろしくお願いいたします。
前々回の質問で、下記コード内容の全体図を掲載して質問させていただいていたのですが、
部分的にエラーが発生するため、質問内容を区切ってさせていただきたく存じます。
また下記コードは、前回で違うエラーが出た際にこちらで解決に導いていただいたのですが、
その後新たなエラーが出て、調べても解決に至らなかったためこちらで質問内容を編集して新たに
お伺いさせてください。
(こういった投稿の仕方が違反であれば、教えていただければ幸いです)
有識者の方々お知恵を貸してください。
やりたいことは下記です。
フォームにテキストボックスを2つ用意しています。
このテキストボックス(invoiceFrom と invoiceTo)の
①どちらにも値が入っていなければ
"hoge"
とメッセージを出し、
②いずれかに値が入っていれば
"hogehoge"
と出したいです。
しかし下記コードを実行すると、
「型が一致しません」とエラーメッセージが出ます。
エラーとなるのは、
If IsNull(invoiceFrom And invoiceTo) = true Then
の部分です。
テキストボックス2つとも空の場合は、①は実行されるのですが、
テキストボックスいずれか、もしく両方に値が入っていると表題のエラーが出ます。
いろいろと調べているのですが解決できず、どうぞよろしくお願いいたします。
Private Sub データ取得_Click()
On Error GoTo Err_データ取得_Click
Dim invoiceFrom As String
Dim invoiceTo String
invoiceFrom = Me.invoiceFrom.Value
invoiceTo = Me.invoiceTo.Value
**If IsNull(invoiceFrom And invoiceTo) = true Then** '検索条件が未入力の場合 //ここがエラー MsgBox "hoge" End If If Not IsNull(invoiceFrom Or invoiceTo) = true Then 'いずれかが入力されている場合
MsgBox "hogehoge"
End If
End Sub
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2016/03/10 06:55
2016/03/10 07:00