access vba コントロールがフォーカスを取得していない？エラーで困っています

Question

よろしくお願いいたします。
前回の質問で、下記コード内容の全体図を掲載して質問させていただいていたのですが、
質問内容を区切ってさせていただきたく存じます。
有識者の方々お知恵を貸してください。

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

フォームにテキストボックスを2つ用意しています。
このテキストボックス（invoiceFrom と invoiceTo）の
①どちらにも値が入っていなければ
"hoge"
とメッセージを出し、

②いずれかに値が入っていれば
"hogehoge"
と出したいです。

しかし下記コードを実行すると、
「nullの使い方が不正です」とメッセージが出ます。
テキストボックス２つともに値が入っていれば、②は実行されるのですが、
テキストボックスに入力が無い場合の処理ができないので困っています。

いろいろと調べているのですが解決できず、どうぞよろしくお願いいたします。

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) Then    '検索条件が未入力の場合
   MsgBox "hoge"
End If

If Not IsNull(invoiceFrom Or invoiceTo) Then  'いずれかが入力されている場合

MsgBox "hogehoge"
End If
End Sub

Comments

[tkturbo]

「invoiceFrom = Me.invoiceFrom.Value」の行は正常に実行できてますかー？

[nekomura]

tkturbo様
何度もありがとうございます。
デバックモードで確認したところ、
Me.invoiceFrom.Value　=　＜指定した式に○○（当該システム）が見つけることができないフィールド、コントロール、プロパティ名が含まれています。＞
と、あります…。

[tkturbo]

ウォッチ式に「Me.invoiceFrom」を指定してデバッグ実行したらどうなります？

[nekomura]

tkturbo様　 ありがとうございます。
ウォッチ式を使ったところ、値はnullでした。
そして今は実行すると、”nullの使い方が不正です”とのエラーが出てしまいます。

最新のご回答をいただく前に、フォームの方のデザインビューを触っていたところ　該当テキストボックスからNAME#?が消えて、Me.invoiceFrom.Value　=　＜指定した式に○○（当該システム）が見つけることができない…以下略>のメッセージはなくなりました。

Answer 1

コメントのやりとりから、「invoiceFrom」という名前のテキストボックスがないのではないかと思われます。
該当するテキストボックスのプロパティから「オブジェクト名」の設定欄を確認してみてください。

Comments

[nekomura]

tkturbo様
何度も丁寧に対応していただき、ありがとうございます。
プロパティシートを確認したところ、私の使っているバージョンでは(2010)、「その他」タブの名前欄にinvoiceFromの名前は記載済みでした。。。
何がいけないのか…ご回答いただいているにもかかわらず解決できずすみません。

[tkturbo]

Dim ctrl As Control
For Each ctrl In Me.Controls
MsgBox TypeName(ctrl) & ctrl.Name
Next ctrl

…とかやってみて、TextBoxの「invoiceFrom」は出てきますか？

[nekomura]

tkturbo様
お世話になっております。宣言をstringからVariantに変更したところ、nullのエラーは解消されました。
たくさんヒントをくださり、ありがとうございます。

ですが、今度は新たに
If IsNull(invoiceFrom And invoiceTo) Then
のところで型が一致しないとのエラーが出てしまいました。。。

調べてもヒントが見つからないので、表題をまとめなおして、再度質問してみます。
ありがとうございました。

[nekomura]

tkturbo様
入れ違いのコメントで失礼いたしました。
下記コード、ためさせていただきました！
うまくinvoiceFromは出てきました。
こういった調べ方を知らなかったので、とても勉強になりました。
ありがとうございます。

>Dim ctrl As Control
For Each ctrl In Me.Controls
MsgBox TypeName(ctrl) & ctrl.Name
Next ctrl