テキストボックスに入力した値を直接SQLに渡したい

Question

【課題】
VBAの入力フォーム上のテキストボックスに値を入力し、OKボタン押下後、その値がSQLのWHERE句にわたるようにしたいと思っています。しかし、どのように実装してよいか分からず困っています。

【試したこと】
標準モジュールから入力フォームのbutton clickメソッドをcallしようと試みたのですが
値が返ってきませんでした。

皆様のお知恵を拝借できればと思います。

Answer 1

StandardDataForm.Show で開くとモーダルで開きます。
これは、このフォームを閉じるまでは次のコードへは進まないということです。
次の行で
strStandardData =StandardDataForm.StandardDataInputBox.Value
とフォームを参照していますが、この時点ではフォームは閉じてますので、
エラーになります。

対処法としては、

StandardDataFormモジュール

Public StandardDate As String

'OKボタン
Private Sub CommandButton1_Click()
    StandardDate = Me.TextBox1.Value
    Me.Hide '非表示にする
End Sub

ユーザーフォームでは、Unload せずに非表示にするだけにしておきます。
上記でフォームを閉じるまでは次のコードへは進まないと言いましたが、実は
非表示にすることでも次にコードへ進むことができます。
非表示なら、フォームを参照することができますので、
下記のようなコードでフォームから値を受け取ることができます。

    Dim strStandardData  As String
    
    StandartDateForm.Show
    strStandardData = StandartDateForm.StandardDate
    Unload StandartDateForm '非表示になっているだけのでここで閉じる
    
    MsgBox strStandardData

ちなみに、下記で紹介している方法を使うと、Input関数と同様の使い方で結果を受け取ることができます。興味があったら参考にしてください。

ユーザーフォームで入力ダイアログを作成する - hatena chips

Comments

[cc000072]

ありがとうございます、試したところ問題なく値が直接SQLに渡せました。

Answer 2

Load_NAV_Dataプロシージャで表示したフォームなんですかね。
だとすると、SQLを投げるプロシージャを別にするのが良いかと。そのうえで、ボタンをクリックしたときに、このプロシージャを呼びだして、対象のテキストボックスの値を参照すればよろしいかと。