ACCESS 代码收集

个人日记

 DoCmd.SetWarnings  False         ACCESS中关闭系统提示   使用 True (–1) 将允许显示系统消息，使用 False (0) 将禁止显示系统消息。

————————————————————————————————————————————
VBA 创建查询
Private Sub 创建白云石查询_Click()
Set qdf = CurrentDb.CreateQueryDef("qry白云石", "select * from 白云石")
Application.RefreshDatabaseWindow '刷新
MsgBox "创建成功！"

End Sub

 

Private Sub 删除白云石查询_Click()
DoCmd.DeleteObject acQuery, "qry白云石"
Application.RefreshDatabaseWindow '刷新
MsgBox "删除成功！"
End Sub


Private Sub 根据表名创建一个查询_Click()
Set qdf = CurrentDb.CreateQueryDef("" & "qry" & Me.txt表名 & "", "select * from " & Me.txt表名 & "")
Application.RefreshDatabaseWindow '刷新
MsgBox "创建成功！"
End Sub




Private Sub 删除此查询_Click()
DoCmd.DeleteObject acQuery, "" & "qry" & Me.txt表名 & ""
Application.RefreshDatabaseWindow '刷新
MsgBox "删除成功！"

End Sub


动态修改查询的 SQL语句：
    第一种方法:

            Dim qdfSQL As QueryDef 

            Set qdfSQL = CurrentDb.QueryDefs("已存在的查询名")
                 qdfSQL.Sql = "修改后SQL语句"　 
                 qdfSQL.Close 
            Set qdfSQL = Nothing 

第二种方法:
            CurrentDb.QueryDefs("已存在的查询").SQL = "SQL语句" 



窗体屏幕居中：
   下面的代码可以做到真正使窗体居中显示
 
Private Sub Form_Load()
DoCmd.Echo False
Dim x, y As Integer
DoCmd.Maximize
x = Me.WindowWidth
y = Me.WindowHeight
DoCmd.Restore
DoCmd.Echo True
Move (x - Me.WindowWidth) / 2, (y - Me.WindowHeight) / 2
End Sub 

ACCESS 启动时绕过 SHIFT 键控制；
        如果数据库具有多个用户，您可以阻止用户绕过启动选项。通过使用 Visual Basic for Applications (VBA) （Visual Basic for Applications (VBA)：Microsoft Visual Basic 的宏语言版本，用于编写基于 Microsoft Windows 的应用程序，内置于多个 Microsoft 程序中。） 代码将 AllowBypassKey 属性设置为“False”，从而禁用 Bypass (Shift) 键。

AllowBypassKey 属性使用以下设置。

设置说明
True启用 Shift 键以允许用户绕过启动属性和 AutoExec 宏。
False禁用 Shift 键以禁止用户绕过启动属性和 AutoExec 宏。

若要使用宏设置 AllowBypassKey 属性，您必须按如下方法创建此属性：

只有在下一次打开应用程序数据库时，AllowBypassKey 属性的设置才会生效。 
 

文章评论