Office中国论坛/Access中国论坛

标题: [求助][已解决]请大侠帮忙看一下这句代码有什么问题呀！ [打印本页]

作者: jacken 时间: 2006-5-16 06:37
标题: [求助][已解决]请大侠帮忙看一下这句代码有什么问题呀！
Private Sub Text64_GotFocus()
DoCmd.RunSQL "delete * from 列表数据选择"
Dim rs11 As DAO.Recordset, I1 As Integer, leibiao As String
Set rs11 = CurrentDb.OpenRecordset("SELECT * FROM 分析结果")
For I1 = 0 To rs11.Fields.Count - 1
leibiao = ""
leibiao = rs11.Fields(I1).Name
MsgBox leibiao
DoCmd.RunSQL "INSERT INTO [列表数据选择](列表源) VALUES(" & leibiao & ")"
Next I1
Set rs11 = Nothing

End Sub

执行后无法追加，追加后全部为空的值。而且还出现提示框，要求输入值。

[此贴子已经被作者于2006-5-16 9:20:17编辑过]

作者: 一点通 时间: 2006-5-16 07:24
请说明提示的语句

作者: sgrshh29 时间: 2006-5-16 14:17
DoCmd.RunSQL "INSERT INTO [列表数据选择](列表源) VALUES(" & """" & leibiao & """" & ")"

作者: jacken 时间: 2006-5-16 17:21
二楼的，你测试一下就知道了，三楼的完全正确，谢谢！

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