+ -
当前位置:首页 → 问答吧 → 求大神帮忙解决问题

求大神帮忙解决问题

时间: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操作被取消。 这什么意思啊?

作者: qq623325   发布时间: 2011-12-06

作者: Veron_04   发布时间: 2011-12-06

热门下载

更多