sql - 使用 VBA 而不是 SQL 进行值查找？

Question

是否可以仅使用 VBA 而不是使用 SQL 来复制它？

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]