Office中国论坛/Access中国论坛

标题: 为什么老提示错误 [打印本页]

作者: xito762000 时间: 2003-1-22 16:13
标题: 为什么老提示错误
Option Compare Database

Private Dbm As Database
Private TblA As Recordset
Private Chl As String

Private Sub Form_Load()
[B] 'DAO3.6 object libary 引用已建立[/B]
Set Dbm = CurrentDb
'[B]调试的时候，Dbm总是为Nothing???[/B]

[B]'为什么下面一句执行，老是提示类型不匹配？？？？[/B]
[U]Set TblA = Dbm.OpenRecordset("st_base", 2)[/U]

Form.Caption = "EX-6-3-2范例"

txt01 = 0
Chl = Chr(10) + Chr(13)

End Sub[em06][em06][em06][em06][em06][em06]

[此贴子已经被作者于2003-1-22 8:12:31编辑过]

作者: zhengjialon 时间: 2003-1-22 16:20
没错呀？一切正常。

作者: cattjiu 时间: 2003-1-22 16:20

Private Sub Form_Load()
Private Dbm As Database
Private TblA As Recordset
Private Chl As String

[此贴子已经被cattjiu于2003-1-22 8:19:59编辑过]

作者: xito762000 时间: 2003-1-22 16:36
按Cattjiu版主，提示"编译错，Sub或Function的属性无效"，就将Private改为Dim,还是到
Set TblA = Dbm.OpenRecordset("st_base", 2)时，提示类型不匹配？？？？
（另外我将定义变量写在通用中，是因为其他控件还要用）
帮帮我，谢谢！

作者: yorkjun 时间: 2003-1-22 16:38
你看一下是不是同时还引用了ADO，如果是的话，取消ADO引用，并把DAO 3.6的引用优先级提前（在引用对话框边上有上下箭头）。我也碰到过，希望对你有帮助。

作者: xito762000 时间: 2003-1-23 01:36
这是我做程序的具体情况（附件）：
[upload=doc]http://www.office-cn.net/vvb/uploadimages/200312217352893461.doc[/img]

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