如何用命令向表中追加记录

yyh740225

请问各位，如何用语句来判断，如果我的表中记录数少于8条，假如是6条

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

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

yyh740225

应该是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编辑过]

浩雨

docmd.RunSQL "insert into 总表(编号) values ( " & a &" );"

yyh740225

谢谢，搞定

lisj

学习