Access 2003完整教程:Visual Basic 代码疑难解答

运行代码时,Microsoft Access 显示了我不希望出现的消息。

要在运行Microsoft Visual Basic代码时暂停显示警告信息和其他消息,可使用SetWarnings方法来执行 SetWarnings 操作。使用SetWarnings方法还可以重新显示消息。

使用某一 Find 方法时过程产生了意外的结果

由于以下的原因,FindFirstFindLastFindNextFindPrevious方法可能会产生意外的结果:

如果FindRecord方法的 onlycurrentfield 参数设为 acCurrent,则使用FindRecordFindNext方法可能会导致意外的结果。使用FindRecordFindNext方法之前,应使用GoToControl方法将焦点移到要查找的数据所在的控件上。

使用 IsLoaded 函数时出现“过程或函数未定义”的消息。

IsLoaded 函数是罗斯文示例数据库中附带的示例“函数”过程,而非 Microsoft Visual Basic 的内置函数。若要在自己的数据库中使用 IsLoaded 函数,必须将其复制到自己的数据库中。

  1. 打开罗斯文示例数据库

    操作方法:

    1. 在“帮助”菜单上,指向“示例数据库”,然后单击要打开的数据库。
    2. 如果该数据库当前尚未安装,请单击“是”立即安装。

    注释如果在指向“示例数据库”时未出现数据库列表,可以通过在 Windows 控制面板中单击“添加/删除程序”并运行 Office 安装程序来安装。

  2. 在罗斯文示例数据库的“数据库”窗口中,单击“对象”下的“模块”

  3. 选择“实用函数”,然后单击“数据库”窗口工具栏上的“设计”。

  4. 突出显示并复制该函数。

  5. 关闭罗斯文示例数据库

  6. 在您的数据库的“数据库”窗口中,单击“对象”下的“模块”,然后单击“数据库”窗口工具栏上的“新建”。

  7. 将代码粘贴到模块中。

  8. 关闭并保存新模块。

在代码中引用一个表的字段时出现“没有找到方法或数据成员”的消息。

如果在直接引用表中的字段时使用.(英文点号)运算符而不是!运算符,Microsoft Access 就显示该信息。例如,下列Microsoft Visual Basic代码块的最后一行代码就会导致该错误:

Dim dbsCurrent As Database
Dim tblTest As TableDef
Dim fldTest As Field
Set dbsCurrent = CurrentDb
Set tblTest = dbsCurrent.TableDefs("Categories")
Set fldTest = tblTest.CategoryID

要改正这个错误,只需把.(英文点号)运算符改为!运算符,或将字段当作“字段”集合的元素来引用即可。下面两组代码均是正确的,其中第一组代码的执行速度更快:

Set fldTest = tblTest!CategoryID
Set fldTest = tblTest.Fields("CategoryID")

上页:Access 2003完整教程:试图以代码方式引用表字段时,得到“未找到方法或数据成员”消息。 下页:Access 2003完整教程:改进 Access 数据库的性能

Access 2003完整教程:Visual Basic 代码疑难解答

Access 2003完整教程:改进 Access 数据库的性能Access 2003完整教程:排序疑难解答 (MDB)
Access 2003完整教程:自定义交叉表查询Access 2003完整教程:控件的疑难解答
Access 2003完整教程:有关筛选的疑难解答 (ADP)Access 2003完整教程:HTML 格式文件疑难解答
Access 2003完整教程:共享数据库疑难解答 (MDB)Access 2003完整教程:宏疑难解答
Access 2003完整教程:报表的疑难解答Access 2003完整教程:导入和链接的疑难解答
Access 2003完整教程:安全机制疑难解答 (MDB)Access 2003完整教程:Visual Basic 代码安全机制疑难解答 (MDB)
Access 2003完整教程:表达式疑难解答Access 2003完整教程:密码疑难解答 (MDB)
Access 2003完整教程:Access 项目疑难解答 (ADP)Access 2003完整教程:查询疑难解答 (ADP)
Access 2003完整教程:复制、转换和链接到 SQL Server 数据库时的疑难解答 (ADP)Access 2003完整教程:键、关系和索引疑难解答 (ADP)
Access 2003完整教程:表和列疑难解答 (ADP)Access 2003完整教程:“升迁向导”疑难解答
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号