查询代码一样,可不同变更就运行出错

tian0shi

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

varID = DLookup("[orderID]", "tbltestresult", "[orderID]='" & strID &"'")