Question

如果标准与数据表相匹配,我就试图做一个比较更新表格中含有源代码的表格。如果该年度在2012年至2011年之间,那么该年度的标准就好像如下:TM/em>,而MRC则在5至10之间。我创立了数据选择,以掌握所有不同类型的标准,我希望该方案在源代码中逐个安排。到目前为止,我总是看到“几个参数。检查 1. 时间错误 3061 任何帮助都将受到高度赞赏。

Thanks, Niki

Private Sub doDataSegm_Click()


Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL, strSearch, strReplace As String

Set db = CurrentDb()
Set rs = db.OpenRecordset("dataselect", dbOpenTable)

If rs.RecordCount = 0 Then Exit Sub
rs.MoveFirst

    For i = 1 To rs.RecordCount
    strChan = rs("Chan")
    strDataCode = rs("code")
    strMrcYrLow = rs("mrcyr_low")
    strMrcYrhigh = rs("mrcyr_high")
    strMrcLow = rs("mrc_low")
    strMrchigh = rs("mrc_high")
    strSQL = "UPDATE Cleaned SET [cleaned].[datacode]= " & _
              strDataCode & " where [CLEANED].[CHANNEL] Like  " & strChan & _
             "  AND [CLEANED].[MRC_YEAR] Between  " & strMrcYrLow & _
             "  And  " & strMrcYrhigh & "  AND CLEANED.MRC Between " & _
              strMrcLow & " And " & strMrchigh & ";"

    db.Execute strSQL, dbFailOnError
    rs.MoveNext
    Next i


End Sub

Answer 1

象“很少参数”这样的信息。检查 1. 时间错误3061 通常表明,你的询问含有未经引述的数据价值,而查阅则将数据价值解释为外地名称。由于你询问中唯一未引用的识别符号是/code和MRC,因此,你认为需要引用其中的一种:

UPDATE Cleaned SET [Cleaned].[datacode] =  " & strDataCode & "  ...
                                          ^ ...add quotes...  ^

友情链接