如何隐藏ACCESS XP指定程序图标的数据库窗口

huanghai

如题

tmtony

与数据库窗口有何区别？

huanghai

就是数据库窗口

tmtony

把下面代码放在窗体中
DoCmd.SelectObject acForm, "你的窗体名", True

DoCmd.RunCommand acCmdWindowHide

huanghai

测试通过，谢谢！

huanghai

测试通过，谢谢！

binbow_z

自从有了RUMCOMMAND后,总版主的程序代码是越来越短了

NWTF

DoCmd.SelectObject acForm, "你的窗体名", True
DoCmd.RunCommand acCmdWindowHide




数据库窗体的名称是什么？




哪位给一段完整的代码呵，比如下面




Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.




    Dim dbs As Database
    Dim rst As Recordset





On Error GoTo Form_Open_Err




    ' Minimize the database window.
    DoCmd.SelectObject acForm, "Switchboard", True
    DoCmd.Minimize




    ' Make sure we have company information
    DoCmd.Hourglass False
    Set dbs = CurrentDb()
    Set rst = dbs.OpenRecordset("我的公司信息")
    If rst.RecordCount = 0 Then
      rst.AddNew
      rst![地址] = Null
      rst.Update
      MsgBox "在使用此应用程序之前，您需要输入您的公司名称，地址和相关信息。"
    '''  DoCmd.OpenForm "我的公司信息", , , , , acDialog
    End If
    rst.Close
    dbs.Close




    ' Move to the switchboard page that is marked as the default.
    Me.Filter = "[ItemNumber] = 0 AND [Argument] = 'Default' "
    Me.FilterOn = True
   




   
Form_Open_Exit:
    Exit Sub




Form_Open_Err:
    MsgBox Err.Description
    Resume Form_Open_Exit
   
End Sub

NWTF

DoCmd.SelectObject acForm, "Current", True
DoCmd.RunCommand acCmdWindowHide总是提示不能找到您在object name参数中引用的窗体“Current”？

zhycfb2006

你们说的是进入登陆窗体前的那个大大的Accsee窗体吗？