关于插语语句问题的求助

yuzhusisi

我做了一个插入语句,向一个表里添加数据,如下:

DoCmd.RunSQL ("INSERT INTO overtime([startime],[endtime],[lunch],[supper],[pay_times],[com_name],[overtime_p],[work_date]) VALUES (Forms![work]![work_sub]![startime],Forms![work]![work_sub]![endtime],Forms![work]![work_sub]![lunch],Forms![work]![work_sub]![supper],Forms![work]![work_sub]![pay_times],Forms![work]![work_sub]![com_name],Forms![work]![work_sub]![Combo29],Forms![work]![work_sub]![work_date])")

我的操作系统上可以正确的向表里添加一条数据,可是用同事的操作系统执行此语句,添加的是一条空白的记录,这是怎么回事呀,各位有没有遇到过此类现象,我用我的2003和xp全部试过来,结果是一样的都没问题,有没有其它可替换语句呀
附有附件中的例子,各位给瞧瞧

todaynew

可用记录集试试：

    Dim myctls as controls
    Dim rs As New ADODB.Recordset
    Dim ssql As String
    Set myctls=Forms("work").controls("work_sub").Form.controls
    ssql = "select * from overtime"
    rs.Open ssql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    rs.Add
    rs("startime")=myctls("startime").Value
    rs("endtime")=myctls("endtime").Value
    .....
    rs("work_date")=myctls("work_date").Value
    rs.update
    rs.close

yuzhusisi

我试一下,谢谢

yuzhusisi

可以了耶,非常感谢

todaynew

祝贺成功，不必客气。