窗体老出错，请各位高手帮看看！！！！

dbbygzy

我做的生产管理里一个添加项目窗体，老是提示“该定义的函数未定义”，请各位帮看看！！！

koutx

将以下拷贝后替换你原先的代码编程就要细心再细心)
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

谢谢koutx，已经弄好了，非常感谢！！！！！！！！！！