質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

Q&A

解決済

1回答

5500閲覧

access vba 型が一致しません?エラーで困っています

nekomura

総合スコア132

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

0グッド

0クリップ

投稿2016/03/10 06:36

よろしくお願いいたします。
前々回の質問で、下記コード内容の全体図を掲載して質問させていただいていたのですが、
部分的にエラーが発生するため、質問内容を区切ってさせていただきたく存じます。

また下記コードは、前回で違うエラーが出た際にこちらで解決に導いていただいたのですが、
その後新たなエラーが出て、調べても解決に至らなかったためこちらで質問内容を編集して新たに
お伺いさせてください。
(こういった投稿の仕方が違反であれば、教えていただければ幸いです)

有識者の方々お知恵を貸してください。

やりたいことは下記です。

フォームにテキストボックスを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

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

IsNull(invoiceFrom And invoiceTo)

こういう書き方できたんでしたっけ?

IsNull(invoiceFrom) And IsNull(invoiceTo)

じゃないですかね。

投稿2016/03/10 06:41

ogaaaan

総合スコア765

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

nekomura

2016/03/10 06:55

ogaaaan様 ばっちりでした!解決しました(涙) まだ初心者のため正しい文法がわからず、やりたいことはわかっているのに四苦八苦していました。 解決に導いてくださり、どうもありがとうございました!!
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問