Office中国论坛/Access中国论坛

标题: 查询代码一样,可不同变更就运行出错 [打印本页]

作者: tian0shi 时间: 2008-12-22 20:32
标题: 查询代码一样,可不同变更就运行出错
Private Sub Form_AfterUpdate()
Dim strID As String
Dim varID As Variant
Dim SQL As String

strID = Me.orderID.Value
varID = DLookup("[orderID]", "tbltestresult", "[orderID]=" & strID)
If Not IsNull(varID) Then

      SQL = "((tblrestresult.orderid)= " & strID & ""
      SQL = "(((tbltestresult.testitemID)=(sqrmatperproty.testitemID)) AND " & strID & "))"
      SQL = "Update sqrmatperproty SET sqrmatperproty.yn = yes " & SQL & ""
      DoCmd.RunSQL SQL
End If
End Sub

同样的代码,在另一个窗体中运行正常,这个窗体中提示varID = DLookup("[orderID]", "tbltestresult", "[orderID]=" & strID)错误,请高手指点.

其中OrderID是字段名, tbltestresult是表名.

作者: Henry D. Sy 时间: 2008-12-23 07:51
varID = DLookup("[orderID]", "tbltestresult", "[orderID]='" & strID &"'")

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)