跳过Autoexec宏（自动执行宏）_access 宏-access菜单-access工具栏-access数据页

跳过Autoexec宏（自动执行宏）

时间：2004-11-23 21:58 来源：Accessfaq 作者：DevnbspA… 阅读：次

作    者：Dev Ashish
发布日期：2002年11月13日
摘    要：如果没有设置AllowBypassKey属性，那么通过编程方式在启动数据库时按住Shift键来自动避开数据库启动的自动代码。通过引用隐藏的access数据库实例来避开数据库的自动宏，你可以使用下面的函数fGetRefNoAutoexec。

正    文：

　　首先，祝贺

Dev Ashish于2002.11.11成功改版The access Web，使越来越多的access爱好者获得更大的帮助，在此，表示感谢。

　　常常，使用Autoexec宏来自动操作一个或多个ACCESS数据库，特别是如果开发者试图获Access对象模型(Access Object Model)，胜过使用Jet引擎(能通过DAO和ADO来获取的)。不管怎样，access不提供任何内置的方法来有条件避开这个Autoexec宏。如果数据库包括了这个宏，一打开就会运行。当未设置数据库的AllowBypassKey属性时，可以在启动数据库时按住Shift键来避开运行这个宏。

　　如果没有设置AllowBypassKey属性，那么通过编程方式在启动数据库时按住Shift键来自动避开数据库启动的自动代码。通过引用隐藏的access数据库实例来避开数据库的自动宏，你可以使用下面的函数fGetRefNoAutoexec。

'********* Code Start ***********
' This code was originally written by Dev Ashish.
' It is not to be altered or distributed,
' except as part of an application.
' You are free to use it in any application,
' provided the copyright notice is left unchanged.
'
' Code Courtesy of
' Dev Ashish

Private Declare Function SetKeyboardState _
    Lib "user32" _
    (lppbKeyState As Any) _
    As Long

Private Declare Function GetKeyboardState _
    Lib "user32" (pbKeyState As Any) _
    As Long

Private Declare Function GetWindowThreadProcessId _
    Lib "user32" _
    (ByVal hWnd As Long, _
    lpdwProcessId As Long) _
    As Long

Private Declare Function AttachThreadInput _
    Lib "user32" _
    (ByVal idAttach As Long, _
    ByVal idAttachTo As Long, _
    ByVal fAttach As Long) _
    As Long

Private Declare Function SetForegroundWindow _
    Lib "user32" _
    (ByVal hWnd As Long) _
    As Long

Private Declare Function SetFocusAPI _
    Lib "user32" Alias "SetFocus" _
    (ByVal hWnd As Long) _
    As Long

Private Const VK_SHIFT = &H10
Private Const VK_LSHIFT = &HA0
Private Const VK_RSHIFT = &HA1

Function fGetRefNoAutoexec( _
ByVal strMDBPath As String) _
As access.Application
On Error GoTo ErrHandler
Dim objAcc As access.Application
Dim TIdSrc As Long, TIdDest As Long
Dim abytCodesSrc(0 To 255) As Byte
Dim abytCodesDest(0 To 255) As Byte

    If (Len(Dir$(strMDBPath, vbNormal)) = 0) Then
        Err.Raise 53
    End If

    Set objAcc = New access.Application
    With objAcc
        .Visible = True

        ' attach to process
        TIdSrc = GetWindowThreadProcessId( _
                            Application.hWndaccessApp, ByVal 0)
        TIdDest = GetWindowThreadProcessId( _
                            .hWndaccessApp, ByVal 0)

        If CBool(AttachThreadInput(TIdSrc, TIdDest, True)) Then
            Call SetForegroundWindow(.hWndaccessApp)
            Call SetFocusAPI(.hWndaccessApp)

            ' 设置Shift状态
            Call GetKeyboardState(abytCodesSrc(0))
            Call GetKeyboardState(abytCodesDest(0))
            abytCodesDest(VK_SHIFT) = 128
            Call SetKeyboardState(abytCodesDest(0))

            ' 打开一个带有Autoexec宏的mdb
            Call .OpenCurrentDatabase(strMDBPath, False)

            ' 恢复键盘状态
            Call SetKeyboardState(abytCodesSrc(0))
        End If
        ' release
        Call AttachThreadInput(TIdSrc, TIdDest, False)
        Call SetForegroundWindow(Application.hWndaccessApp)
        Call SetFocusAPI(Application.hWndaccessApp)

    End With
    Set fGetRefNoAutoexec = objAcc
    Set objAcc = Nothing

    Exit Function
ErrHandler:
    If (TIdDest) Then Call AttachThreadInput(TIdSrc, TIdDest, False)
    Call SetForegroundWindow(Application.hWndaccessApp)
    With Err
        .Raise .Number, .Source, .Description, .HelpFile, .HelpContext
    End With
End Function
'********* Code End ***********

翻译: 朱亦文

来源于：MVPS: The access Web

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：关于数据访问页的一些资料
下一篇：Access创建宏