Office中国论坛/Access中国论坛

标题: 如何隐藏ACCESS XP指定程序图标的数据库窗口 [打印本页]

作者: huanghai 时间: 2002-4-17 22:45
标题: 如何隐藏ACCESS XP指定程序图标的数据库窗口
如题

作者: tmtony 时间: 2002-4-17 22:57
与数据库窗口有何区别？

作者: huanghai 时间: 2002-4-17 23:18
就是数据库窗口

作者: tmtony 时间: 2002-4-18 01:38
把下面代码放在窗体中
DoCmd.SelectObject acForm, "你的窗体名", True

DoCmd.RunCommand acCmdWindowHide

作者: huanghai 时间: 2002-4-18 02:12
测试通过，谢谢！

作者: binbow_z 时间: 2002-4-19 05:26
自从有了RUMCOMMAND后,总版主的程序代码是越来越短了

作者: NWTF 时间: 2006-11-27 01:41
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 时间: 2006-11-27 01:48
DoCmd.SelectObject acForm, "Current", True
DoCmd.RunCommand acCmdWindowHide总是提示不能找到您在object name参数中引用的窗体“Current”？

作者: zhycfb2006 时间: 2006-11-27 07:41
你们说的是进入登陆窗体前的那个大大的Accsee窗体吗？

作者: NWTF 时间: 2006-11-27 17:52
请大虾出手做个用下面代码隐藏数据库窗口的简单例子？

DoCmd.SelectObject acForm, "你的窗体名", True
DoCmd.RunCommand acCmdWindowHide数据库窗口

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