Office中国论坛/Access中国论坛

标题: 如何直接打开access窗体而不显示access中的其他东西 [打印本页]

作者: olyolyoly 时间: 2010-6-3 20:38
标题: 如何直接打开access窗体而不显示access中的其他东西
我现在已经设计好了表和窗体（access2007），想要实现一下功能：
能够点击某个图标之后直接打开我想进入的第一个窗体（比如管理员验证密码的窗体）

我已经试过了用宏加入autoexec的宏打开openform
以及加入vba程序
'Private Sub Form_Open(Cancel As Integer)
'DoCmd.SelectObject acForm, "管理员口令", True
'DoCmd.RunCommand acCmdWindowHide
'DoCmd.RunCommand acCmdAppMinimize
'End Sub
和设置access选项中的当前数据库的内容

目前只能达到如下效果
[attach]42349[/attach]

我希望能达到如下效果
[attach]42350[/attach]
就是直接显示窗体

希望哪位大虾能够指点！！！！！！！！！！！！多谢

作者: olyolyoly 时间: 2010-6-3 20:39
自己先顶一下

作者: gaoyh2008 时间: 2010-6-4 13:57
在此窗體下加入以下代碼:
Option Compare Database
Option Explicit
Private Declare Function MoveWindow Lib "USER32" (ByVal hwnd As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long
Private Declare Function ShowWindow Lib "USER32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Const SW_SHOWMAXIMIZED = 3
Private Const SW_SHOWNORMAL = 1

Private Sub Form_Load()
ShowWindow Application.hWndAccessApp, SW_SHOWNORMAL
MoveWindow Application.hWndAccessApp, -1000, 0, 400, 500, 1
End Sub

Private Sub Form_Unload(Cancel As Integer)
MoveWindow Application.hWndAccessApp, 0, 0, 1100, 750, 1
End Sub

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