Office中国论坛/Access中国论坛

标题: 小白问题,麻烦大哥们看看!!为什么我回出现溢出堆栈空间的提示呢? [打印本页]

作者: xylain 时间: 2009-11-30 22:12
标题: 小白问题,麻烦大哥们看看!!为什么我回出现溢出堆栈空间的提示呢?
本帖最后由 xylain 于 2009-11-30 22:23 编辑

为什么我回出现溢出堆栈空间的提示呢?
附上代码
Private Sub add_Click()
On Error GoTo Err_add_Click

Dim sql As String
sql = "insert into 出车记录表(出车日期,出车时间,车牌号码,驾驶员,所属中心,用车人,用车事由,公里起数,公里止数,运行公里,加油量,油料价格,加油费,过路过桥费,其他费用,费用小计,备注) "
sql = sql & "values('" & Me.出车日期 & "','" & Me.出车时间 & "','" & Me.车牌号码 & "','" & Me.驾驶员 & "','" & Me.所属中心 & "','" & Me.用车人 & "','" & Me.用车事由 & "','" & Me.公里起数 & "','" & Me.公里止数 & "','" & Me.运行公里 & "','" & Me.加油量 & "','" & Me.油料价格 & "','" & Me.加油费 & "','" & Me.过路过桥费 & "','" & Me.其他费用 & "','" & Me.费用小计 & "','" & Me.备注 & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL sql
DoCmd.SetWarnings True
Call add_Click

Exit_add_Click:
Exit Sub
Err_add_Click:
MsgBox Err.Description
Resume Exit_add_Click

End Sub

作者: andymark 时间: 2009-11-30 22:19
你的类型全是文本?

作者: xylain 时间: 2009-11-30 22:22
本帖最后由 xylain 于 2009-11-30 22:24 编辑

不是呀!修改一下,麻烦再帮我看看!!

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