sql - SQLではなくVBAで値を検索しますか?

Question

SQL を使用する代わりに、VBA だけでこれを複製することは可能ですか?

txtSCDate.Value = "SELECT [SC Date] FROM [Stock Conversion] WHERE [SCID] = " & txtSCNumber.Value & ";"

そうでない場合、VBA からその SQL をどのように実行しますか?

前もってありがとう、ボブP

Answer 1

DLookUp を使用できます。

txtSCDate.Value = DlookUp("[SC Date]","[Stock Conversion]","SCID = " _
                & txtSCNumber.Value)

テキスト ボックスのコントロール ソースを DLookUp などのドメイン関数に設定できることに注意してください。

SQL を使用する場合は、次のようにします。

Dim rs As Recordset

sSQL = "SELECT [SC Date] FROM [Stock Conversion] WHERE SCID = " _
     & txtSCNumber.Value
Set rs = CurrentDB.Openrecordset(sSQL)
Me.txtSCNumber = rs![SC date]