|
7#
楼主 |
发表于 2011-8-5 17:27:13
|
只看该作者
roych 发表于 2011-8-4 16:27
用Insert Into Table (Fields ) Values(Controls)结合For语句就好了。例如
For i=1 to me.设置值
docmd ...
真的出错了……麻烦版主帮我看一下代码,谢谢!
Private Sub Cmd导入_Click()
For i = Me.开始ID To Me.结束ID
DoCmd.RunSQL "Insert Into tbl相亲结果temp(ID,姓名,日期,地点,时间,成功否) Values('" & i & "','" & Me.姓名 & "','" & Me.日期 & "','" & Me.地点 & "','" & Me.时间 & "','" & Me.成功否 & "')"
Next i
End Sub
如果不定义 i ,系统报错:变量未定义
如果定义了 i ,系统报错:'6' 溢出
是什么原因呢?还是哪里写错了?
备注:ME.开始ID 和 ME.结束ID 的格式都设成了数字,且小数位是0
|
|