设定指定窗体位置的代码?

明镜

通过第一个窗体的子窗体上的按纽打开第二个窗体后,第一个窗体就自动退到第二个窗体的后面,而第二个窗体就出现在最前面.这段代码如何写.请大家帮忙.谢谢了.

Grant

在窗体属性中,设置弹出模式或者打开窗体
或者用代码来实现
OpenForm 方法
参阅应用于示例特性在 Visual Basic 中，OpenForm 方法执行 OpenForm 操作。

expression.OpenForm(FormName, View, FilterName, WhereCondition, DataMode, WindowMode, OpenArgs)
expression      必需。返回“应用于”列表中的一个对象的表达式。

FormName     必需 Variant 型。字符串表达式，表示当前数据库中窗体的有效名称。如果在某类库数据库中执行包含 OpenForm 方法的 Visual Basic 代码，则 Microsoft Access 将先在该类库数据库中查找具有相同名称的窗体，然后再在当前数据库中查找。

View   可选 AcFormView。

AcFormView 可以是下列 AcFormView 常量之一：
acDesign
acFormDS
acFormPivotChart
acFormPivotTable
acNormal 默认。在“窗体”视图中打开窗体。
acPreview
如果将该参数留空，将假定为默认常量 (acNormal)。


FilterName     可选 Variant 型。字符串表达式，表示当前数据库中查询的有效名称。

WhereCondition     可选 Variant 型。字符串表达式，表示不包括词 WHERE 的有效 SQL WHERE 子句。

DataMode   可选 AcFormOpenDataMode。窗体的数据输入模式。它只应用于在“窗体”视图或“数据表”视图中打开的窗体。

AcFormOpenDataMode 可以是这些 AcFormOpenDataMode 常量之一：
acFormAdd 用户可以添加新记录，但是不能编辑现有记录。
acFormEdit 用户可以编辑现有记录和添加新记录。
acFormPropertySettings 默认
acFormReadOnly 用户只能查看记录。
如果将该参数留空（将假定为默认常量，即 acFormPropertySettings），则 Microsoft Access 将在由窗体的 AllowEdits、AllowDeletions、AllowAdditions 和 DataEntry 属性设置的数据模式中打开窗体。


WindowMode   可选，AcWindowMode。打开窗体时所采用的窗口模式。

AcWindowMode 可以是下列 AcWindowMode 常量之一：
acDialog 窗体的 Modal 和 PopUp 属性设为“是”。
acHidden 窗体隐藏。
acIcon 打开窗体并在 Windows 工具栏中最小化。
acWindowNormal 默认值 窗体采用它的属性所设置的模式
如果将该参数留空，将假定为默认常量 (acWindowNormal)。


OpenArgs     可选 Variant 型。字符串表达式，用于设置窗体的 OpenArgs 属性。而后该设置可用于窗体模块中的代码，例如 Open 事件过程。OpenArgs 属性也可以在宏和表达式中引用。

例如，假定打开的是一个客户列表的连续窗体。如果希望当窗体打开时焦点移到特定的客户记录上，则可以使用 openargs    参数指定客户名称，然后使用 FindRecord 方法，将焦点移到指定的客户名称的记录上。

该参数仅在 Visual Basic 中才可用。

明镜

版主写得看起来有些困难,我把例子传上来帮助改一下吧,谢谢了.要求在打开查询窗体,双击子窗体的记录打开录入窗体时,查询窗体退到最后面,使录入窗体到最前面,然后在录入窗体关掉后,查询窗体又回到前面.版主写得看起来有些困难,我把例子传上来请大家帮助改一下吧,谢谢了.要求在打开查询窗体,单击子窗体的记录打开录入窗体时,查询窗体退到最后面,使录入窗体到最前面,然后在录入窗体关掉后,查询窗体又回到前面.

Henry D. Sy

按钮在哪里？

Henry D. Sy

1. Private Sub Command2_Click()
   
2.     DoCmd.OpenForm "录入窗体", acNormal
   
3.     Me.Visible = False
   
4. End Sub

复制代码

1. Private Sub Form_Unload(Cancel As Integer)
   
2.     Forms!查询窗体.Visible = True
   
3. End Sub

复制代码

明镜

谢谢,这样就可以了