求大神帮忙解决问题
时间:2011-12-06
来源:互联网
我在ACCESS 2007 中用 VBA编写一个客户信息录入程序 程序没办法执行SQL语句 求大神帮忙改改。
代码如下
Private Sub com录入_Click()
Dim sql As String
Dim x As Byte
If IsNull(Me![客户编号]) Then
MsgBox "请输入客户编号", 48, "提示"
DoCmd.GoToControl "客户编号"
ElseIf IsNull(Me![姓]) Then
MsgBox "请输入客户姓氏", 48, "提示"
DoCmd.GoToControl "姓"
ElseIf IsNull(Me![性别]) Then
MsgBox "请输入性别", 48, "提示"
DoCmd.GoToControl "性别"
ElseIf IsNull(Me![送货地址]) Then
MsgBox "请输入送货地址", 48, "提示"
DoCmd.GoToControl "送货地址"
ElseIf IsNull(Me![联系电话]) Then
MsgBox "请输入联系电话", 48, "提示"
DoCmd.GoToControl "联系电话"
Else
x = MsgBox("确定输入上述信息", 33, "提示")
If x = 1 Then
sql = "INSERT INTO KH(客户编号,姓,名,性别,家庭住址,送货地址,邮政编码,联系电话,附录) VALUES ('&Me![客户编号]&','&Me![姓]&','&Me![名]&','&Me![性别]&','&Me![家庭住址]&','&Me![送货地址]&','&Me![邮政编码]&','&Me![联系电话]&','&Me![附录]&')"
DoCmd.RunSQL sql
Else
DoCmd.GoToControl "附录"
End If
End If
End Sub
程序一执行 ACCESS就弹出个对话框 提示我 您正准备追加1行。 点 “是” 记录没办法插进去 点“否” 提示 这个RUNSQL操作被取消。 这什么意思啊?
代码如下
Private Sub com录入_Click()
Dim sql As String
Dim x As Byte
If IsNull(Me![客户编号]) Then
MsgBox "请输入客户编号", 48, "提示"
DoCmd.GoToControl "客户编号"
ElseIf IsNull(Me![姓]) Then
MsgBox "请输入客户姓氏", 48, "提示"
DoCmd.GoToControl "姓"
ElseIf IsNull(Me![性别]) Then
MsgBox "请输入性别", 48, "提示"
DoCmd.GoToControl "性别"
ElseIf IsNull(Me![送货地址]) Then
MsgBox "请输入送货地址", 48, "提示"
DoCmd.GoToControl "送货地址"
ElseIf IsNull(Me![联系电话]) Then
MsgBox "请输入联系电话", 48, "提示"
DoCmd.GoToControl "联系电话"
Else
x = MsgBox("确定输入上述信息", 33, "提示")
If x = 1 Then
sql = "INSERT INTO KH(客户编号,姓,名,性别,家庭住址,送货地址,邮政编码,联系电话,附录) VALUES ('&Me![客户编号]&','&Me![姓]&','&Me![名]&','&Me![性别]&','&Me![家庭住址]&','&Me![送货地址]&','&Me![邮政编码]&','&Me![联系电话]&','&Me![附录]&')"
DoCmd.RunSQL sql
Else
DoCmd.GoToControl "附录"
End If
End If
End Sub
程序一执行 ACCESS就弹出个对话框 提示我 您正准备追加1行。 点 “是” 记录没办法插进去 点“否” 提示 这个RUNSQL操作被取消。 这什么意思啊?
作者: qq623325 发布时间: 2011-12-06
作者: Veron_04 发布时间: 2011-12-06
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28