设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1151|回复: 4
打印 上一主题 下一主题

[与其它组件] [求助]有关保存记录时,弹出 INSER INTO 错误的问题。

[复制链接]
跳转到指定楼层
1#
发表于 2006-9-20 00:57:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
当为“保存记录”按钮写完代码后,点击保存记录,然后弹出“INSERT INTO”错误。

代码如下:

Private Sub 保存记录_Click()
On Error GoTo Err_保存记录_Click
    '判断“日期”等文本框是否为空
    If IsNull(Me![日期]) = True Then
        '弹出提示“日期”文本框不可以为空信息
        MsgBox "请输入“日期”,它不可以为空!", vbOKOnly, "输入“日期”"
        '把光标置于“货商ID”文本框内
        Me![日期].SetFocus
    ElseIf IsNull(Me![付款单位]) = True Then
        MsgBox "请输入“付款单位”,它不可以为空!", vbOKOnly, "输入“付款单位”"
        Me![付款单位].SetFocus
    ElseIf IsNull(Me![金额]) = True Then
        MsgBox "请输入“金额”,它不可以为空!", vbOKOnly, "输入“金额”"
        Me![金额].SetFocus
    ElseIf IsNull(Me![开票价格]) = True Then
        MsgBox "请输入“开票价格”,它不可以为空!", vbOKOnly, "输入“开票价格”"
        Me![开票价格].SetFocus
    ElseIf IsNull(Me![经办人]) = True Then
        MsgBox "请输入“经办人”,它不可以为空!", vbOKOnly, "输入“经办人”"
        Me![经办人].SetFocus
    Else
        '为保存计划“查询语句”字符变量赋值
        STemp = "INSERT INTO 财务回款信息表"
        STemp = STemp & "( 日期,付款单位,金额,开票价格,经办人,今日总回款,备注)"
        STemp = STemp & "VALUES ('" & Me![日期] & "','" & Me![付款单位] & "',"
        STemp = STemp & "'" & Me![金额] & "','" & Me![开票价格] & "',"
        STemp = STemp & "'" & Me![经办人] & "','" & Me![今日总回款] & "',,'" & Me![备注] & "')"
        '使用DoCmd对象的RunSQL方法执行查询
        DoCmd.RunSQL STemp
        '刷新“财务表子窗体”子窗体
        Me![财务回款表 子窗体].Requery
    End If
Exit_保存记录_Click:
    Exit Sub
Err_保存记录_Click:
    MsgBox Err.Description
    Resume Exit_保存记录_Click
End Sub

“财务回款信息表”为“对象--表”中的表格。

财务回款表——为“对象——窗体”中的,此窗体含有一个子窗体。

不知道说清楚了没有,我刚学ACCESS,呵呵,大家见谅。

希望大家给予解决,谢谢!!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
 楼主| 发表于 2006-9-20 01:48:00 | 只看该作者
将 STemp = "INSERT INTO 财务回款信息表"
中的“财务回款信息表”更换名字为“财务信息表”也不行啊 。

这是怎么回事,语法应该没有错误啊。

怎么老提示 “INSERT INTO” 语法错误啊 。
3#
发表于 2006-9-20 04:27:00 | 只看该作者
日期类型的用两边加#,数字型的不需要加'

try:

STemp = "INSERT INTO 财务回款信息表"
        STemp = STemp & "( 日期,付款单位,金额,开票价格,经办人,今日总回款,备注)"
        STemp = STemp & "VALUES (#" & Me![日期] & "#,'" & Me![付款单位] & "',"
        STemp = STemp & "" & Me![金额] & "," & Me![开票价格] & ","
        STemp = STemp & "'" & Me![经办人] & "'," & Me![今日总回款] & ",," & Me![备注] & ")"
4#
 楼主| 发表于 2006-9-20 04:38:00 | 只看该作者
谢谢斑竹。

我把代码,全删除了,重新写了一遍,和开始的一样,居然没有问题了,晕死。

可能哪个地方多了空格什么的,反正很晕。

另外,感谢您的回答。

辛苦了。

谢谢。

另外,能推荐一本书么,最好不要全是如何操作ACCESS的,带上编程的知识在里面。

谢谢。
5#
发表于 2006-9-20 04:50:00 | 只看该作者
以下是引用aabb33j在2006-9-19 20:38:00的发言:

另外,能推荐一本书么,最好不要全是如何操作ACCESS的,带上编程的知识在里面。

谢谢。

      《 Access 2002 开发实用全书》   电子工业出版社

      
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-6-4 13:42 , Processed in 0.101711 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表