求一VBA解决方法
我是个新手 请各位大侠帮小弟解决下问题
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![附录])"
Else
DoCmd.GoToControl "附录"
End If
End If
End Sub
为什么程序执行后 在我的KH表里找不到插入的信息呢？
各位大侠帮个忙啊！ 十分感谢。
[解决办法]
各位大侠 在线等呢 拜托来个人帮我解决下 谢谢啊
[解决办法]
各位大侠 在线等呢 拜托来个人帮我解决下 谢谢啊
