Office中国论坛/Access中国论坛

标题: 如何用命令向表中追加记录 [打印本页]

作者: yyh740225 时间: 2006-10-19 18:35
标题: 如何用命令向表中追加记录
请问各位，如何用语句来判断，如果我的表中记录数少于8条，假如是6条

那么执行该语句往表中自动添加8-6即2条。

应该是ADD NEW还是什么，我实在不会，请高手帮忙。

作者: yyh740225 时间: 2006-10-19 19:12
应该是INSERT INTO 还是ALTER

请指教

Dim RowsCount As Long
Dim i As Integer

RowsCount = DCount("*", "总表") '报表总行数
If RowsCount < 8 Then
   i = 8 - RowsCount
   a = Me.编号
         For X = 1 To i
            insert 总表 ("编号") values (a) ‘新追加记录，编号同现表中值一样，其它项为空
         Next X
End If
运行时出错缺少参数，能否帮我看一下错在哪里？

[此贴子已经被作者于2006-10-19 12:06:42编辑过]

作者: 浩雨 时间: 2006-10-20 00:17
docmd.RunSQL "insert into 总表(编号) values ( " & a &" );"

作者: yyh740225 时间: 2006-10-20 19:50
谢谢，搞定

作者: lisj 时间: 2007-12-5 19:39
学习

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