如何直接打开access窗体而不显示access中的其他东西

olyolyoly

我现在已经设计好了表和窗体（access2007），想要实现一下功能：
能够点击某个图标之后直接打开我想进入的第一个窗体（比如管理员验证密码的窗体）

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

目前只能达到如下效果



我希望能达到如下效果

就是直接显示窗体


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

olyolyoly

自己先顶一下

gaoyh2008

在此窗體下加入以下代碼:
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