Office中国论坛/Access中国论坛

标题: 窗体老出错，请各位高手帮看看！！！！ [打印本页]

作者: dbbygzy 时间: 2009-11-28 10:52
标题: 窗体老出错，请各位高手帮看看！！！！
我做的生产管理里一个添加项目窗体，老是提示“该定义的函数未定义”，请各位帮看看！！！

作者: koutx 时间: 2009-11-28 11:42
本帖最后由 koutx 于 2009-11-28 11:46 编辑

将以下拷贝后替换你原先的代码

编程就要细心再细心)
Private Sub Command16_Click()
  On Error GoTo Err_cmdAdd_Click
  Dim rs As New ADODB.Recordset

  Dim sql As String
  sql = "select * from 项目明细"
  rs.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
  'MsgBox rs.RecordCount
  If IsNull(Me.项目编号) Then
   MsgBox ("请输入项目编号!")
   Me.项目编号.SetFocus
  ElseIf IsNull(Me.生产数量) Then
   MsgBox ("请输入生产数量!")
  ElseIf IsNull(Me.预计产量) Then
   MsgBox ("请输入预计产量!")
  ElseIf IsNull(Me.原料成本) Then
   MsgBox ("请输入原料成本!")
  ElseIf IsNull(Me.制作成本) Then
   MsgBox ("请输入制作成本!")
  ElseIf IsNull(Me.人工成本) Then
   MsgBox ("请输入人工成本!")
  ElseIf IsNull(Me.毛利润) Then
   MsgBox ("请输入毛利润!")
  Else
   With rs

   .AddNew
   !项目编号 = Trim(Me.项目编号)
   !生产数量 = Trim(Me.生产数量)
   !预计产值 = Trim(Me.预计产量)
   !原料成本 = Trim(Me.原料成本)
   !制作成本 = Trim(Me.制作成本)
   !人工成本 = Trim(Me.人工成本)
   !毛利润 = Trim(Me.毛利润)
   .Update
  End With
  rs.Close

  MsgBox ("添加成功!")
  With Me
   .项目编号 = ""
   .生产数量 = ""
   .预计产量 = ""
   .原料成本 = ""
   .制作成本 = ""
   .人工成本 = ""
   .毛利润 = ""
End With
  End If

  Exit Sub
Err_cmdAdd_Click:
MsgBox Err.Description

End Sub

作者: dbbygzy 时间: 2009-11-28 17:29
谢谢koutx，已经弄好了，非常感谢！！！！！！！！！！

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