小白问题,麻烦大哥们看看!!为什么我回出现溢出堆栈空间的提示呢?

xylain

为什么我回出现溢出堆栈空间的提示呢?
附上代码
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

你的类型全是文本?

xylain

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