提示“用户定义类型未定义”

notedream · 发表于 2010-7-31 19:40

帮我看下以下的代码哪里错了。
点运行的时候.提示“用户定义类型未定义”
Private Sub UserForm_Initialize()
ComboBox1.AddItem "一月"
ComboBox1.AddItem "二月"
ComboBox1.AddItem "三月"
ComboBox1.AddItem "四月"
ComboBox1.AddItem "五月"
ComboBox1.AddItem "六月"
ComboBox1.AddItem "七月"
ComboBox1.AddItem "八月"
ComboBox1.AddItem "九月"
ComboBox1.AddItem "十月"
ComboBox1.AddItem "十一月"
ComboBox1.AddItem "十二月"
End Sub
Private Sub CommandButton1_Click()
On Error GoTo 100
'=====判断输入数据规范性====
If TextBox1.Text = "" Or TextBox2.Text = "" Then
      MsgBox "终端名称和预销量是必须输入的", 1 + 16, "出错提示"
      TextBox1.SetFocus
      Exit Sub
End If
'==============查找是否已经有相同工号记录=====================

Dim RS1 As Recordset
Dim DB1 As Database

Set DB1 = OpenDatabase(ThisWorkbook.Path & "\" & "Info.MDB")
Set RS1 = DB1.OpenRecordset(Name:="预销量", Type:=dbOpenDynaset)
With RS1
.FindFirst "终端名称='" & TextBox1.Value & "'"
      If Not .NoMatch Then
      MsgBox "终端名称 [ " & TextBox1.Value & " ] 的信息已存在，不能重复添加！", 1 + 16, "出错提示"
      DB1.Close
      Set RS1 = Nothing
      Set DB1 = Nothing
      Exit Sub
      Else
'=============如果未找到工号重复的情况，则新加记录
   .AddNew
      .Fields("终端名称").Value = Me.TextBox1.Value
      .Fields("月份").Value = Me.ComboBox1.Value
      .Fields("预销量").Value = Me.TextBox2.Value.Update
   ' RS1.FindFirst "姓名='" & TextBox2.Value & "'"
      MsgBox "增加 [ 终端名称：" & TextBox1.Value & " 预销量：" & TextBox2.Value & " ] 的信息成功！目前共有记录" & RS1.RecordCount & "条", 1 + 16, "添加成功"
      End If
End With
'=================添加记录结束============================

DB1.Close
Set RS1 = Nothing
Set DB1 = Nothing
Exit Sub       '正常执行结束，跳出 sub
100:
MsgBox "程序执行出错", 1 + 16, "系统提示"
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

zhw79 · 发表于 2010-7-31 19:51

看错误定位在哪里？
Dim RS1 As Recordset
Dim DB1 As Database
若是这里这引用Microsoft ActiveX Data Object 2.X

zhangjimfu · 发表于 2010-7-31 20:33

路过，学习！

notedream · 发表于 2010-7-31 20:24

这些代码我也是从另一个文件里拿过来用的，我刚刚去找了那个文件里所有的代码也没有发现任何有关Recordset的定义，如果我只想单独用这段代码，要如何修改才可以用的呢？

notedream · 发表于 2010-7-31 21:19

找到了。工程-->引用,选中"Microsoft DAO 3.6 Object Library"

		自动登录	找回密码
密码			免费注册

[原创] 提示“用户定义类型未定义”

回复 2楼 zhw79 的帖子