请高手看看这句应该如何写？

zerk

DIM Str3 as string

Str3 = "INSERT INTO 工人总工资表 ( 工人id, 年, 月, 年月索引 )" _
           & "SELECT 工人表.工人ID, " & Me.年 & "AS A, " & CStr(Format(Me.月, "00")) & " AS b, " _
            & CLng(CStr(Me.年) & CStr(Format(Me.月, "00")) & CStr(工人ID)) & " AS C" _
            & " FROM 工人表 GROUP BY 工人表.工人ID, " & Me.年 & ", " & CStr(Format(Me.月, "00")) & ", " _
            & CLng(CStr(Me.年) & CStr(Format(Me.月, "00")) & CStr(工人ID)) & ", 工人表.工作状态" _
            & " HAVING (((工人表.工作状态) In (16,17)))"

Docmd.RunSQL.Str3

主要是中间一段 CLng(CStr(Me.年) & CStr(Format(Me.月, "00")) & CStr(工人ID)) ， 因为me.年，me.月都是窗体中的数字，而工人id是表中的数据，如何才能正确的组合? 我这样写总是出错，

请高手指教如何才能正确的写。

longyubin134

OK

andymark

select 后面的语句是错误的，把例子传上来

zerk

这个VALUE的数值是form中的数值吧， 这样当然没有问题了，不过如果你要用form中的一个数值和select表中的符合记录的数值组合成一个新的数值的话，应该怎么做? (主要是无法组合，单个的value值或单个的select是没有问题的)



这也就是我迷惑的地方，请指教。

情比金坚

'生成订单到订单表
    Dim sql As String
    sql = "INSERT INTO tab_salelist ( uid ,listid,sdate,lstate,mcount) values (" _
        & USERID & ",'" & listid & "', #" & Format(Now(), "yyyy-mm-dd hh:nn:ss") & "#, '未处理' ," & msum & " )"
    DoCmd.RunSQL (sql)        

今天我的教程上正好有这样的示例

zerk

好象不是HAVING的问题， 主要是电脑无法判别 CLng(CStr(Me.年) & CStr(Format(Me.月, "00")) & CStr(工人ID)) ,如果这句用" "的话，找不到变量 me.年和me.月，不用" "的话，找不到 表中的字段 工人id, 所以迷惑中。

现在只能用了一个添加查询，用 Docmd.Openquery 来做，不过我希望查询越少越好，请高手指点。  
[em09]

andymark

   可以用Having 吗