小编new*_*der的帖子

大家好，

我有一个带有子表单的无界表单（它的数据源是一个名为 SaleDetail 的表）。在主窗体上有一个同样无限制的销售 ID 文本框。

我用以下代码创建了一个按钮：

Private Sub btnEndSale_Click()

Dim strPostTime As String

strPostTime = "UPDATE SaleDetail " & _
        "SET [TIMEOUT] = Time()" & _
        "WHERE SaleDetail.SID = Forms!Sales.Form.sSID"

DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
DoCmd.Requery

End Sub

一旦主表单上的 SID 与 SalesDetail 表中的 SID 匹配，我试图获取当前时间来更新 SalesDetail 表中的记录，但它不起作用，但如果我Forms!Sales.Form.sSID用现有 ID（例如 9）替换它，它会起作用. 任何帮助将不胜感激。