小编Mar*_*ier的帖子

我正在寻找一种可靠的方法来在OnLoad()事件期间最小化默认的MSAccess工具栏功能区.

我意识到可以完全隐藏工具栏,但这不是我想要做的 - 我只想最小化功能区:

DoCmd.ShowToolbar "Ribbon", acToolbarNo    'Hides the full toolbar
DoCmd.ShowToolbar "Ribbon", acToolbarYes   'Show

我尝试了几种方法,取得了不同的成功:

在Access 2010和2013(VB7)中:

CommandBars.ExecuteMso "MinimizeRibbon"

早期版本:

SendKeys "^{F1}", False

这两种方法似乎都在会话之间作为TOGGLE运行.有没有一种方法来确定当前状态,然后应用适当的代码？

我的用户使用Access:2007,2010,2013

谢谢你的任何建议!

标记

我希望将 TXT 文件中的行读取到数组结构中，以便在我正在使用的批处理文件中使用（读取当前硬编码的配置元素）。

一些注意事项/假设：

1. 与 .BAT 文件位于同一目录中的 .TXT 文件
2. 只有 2 列要解析，行数未知
3. Col1 & Col2 数据可以包含空格，但不能包含特殊字符
4. .TXT 文件的格式/分隔符可以是任何方便此任务的格式：例如：Col1 | Col2

我只是在寻找一些指示来让我开始。

谢谢！

标记

我将几个大表从 AccessDB 分离到后端数据库，没有出现任何问题。

接下来，我需要打开一个记录集来替换各种麻烦的字符。当表位于本地时，以下代码段工作正常，但 Access 现在抱怨该表已链接，但未提供详细信息。

Dim rs3 As DAO.Recordset

'Step thru the Item table fix ' & " characters
Set rs3 = db.OpenRecordset("Item", dbOpenTable)
Do While Not rs3.EOF
    strDesc = Replace(Nz(rs3!DESC), Chr(39), Chr(39) & Chr(39))
    strDesc = Replace(Nz(rs3!DESC), Chr(34), "")
    rs3.MoveNext
Loop
Set rs3 = Nothing

对于使用链接表完成此任务有什么建议吗？

我有一个带有几十个模块的Access应用程序.我一直在每个新模块中重新声明变量,减去需要全局范围的变量.我到处都使用Option Explicit.

问题:将公共局部变量声明为全局变量是不好的做法,即使范围只是本地的？我认为只是为了方便起见:

我在每个模块中声明的变量示例:

Dim strMsg as String
Dim strSQL as String
Dim N, N1, N2 as Integer
Dim db As Database

Set db = CurrentDb

任何指导或建议？