[求助]如何用代码打开窗体

Jean1288

请教各位高手，我想用代码打开一个窗体，请问具体该怎么写，谢谢！（不需要其它条件，只是单纯打开窗体就可以）

[此贴子已经被作者于2007-4-19 16:45:58编辑过]

wuheng

docmd.OpenForm "窗体名称"

Jean1288

谢了，如果是在关闭原有窗体的基础上打开新窗体呢？麻烦了！

bergyan

在原有窗体的uload事件中可以

一点通

其实只要用按钮向导就可完成你的操作,这些代码不需要强记的

Jean1288

可是，在我的数据库登陆系统中，需要有一句：关闭原有窗体并打开新窗体的代码，我不知道该怎么写，各位帮帮忙吧！

bergyan

在原窗体的UnLoad事件中写代码Docmd.OpenForm "新窗体"..............

Jean1288

这是我“小窗体”窗体中的代码，我想在提示"你无权操作此窗口!"和"请先登陆!"后，关闭“小窗体”并打开“数据维护及查询”窗体，是像下面那样写吗，不好意思，我不太懂代码。

Private Sub Form_Load()

If login_successful = 1 Then
   If check_level(Me.Name, user_level) = 1 Then
     Else
     MsgBox "你无权操作此窗口!", vbOKOnly
     DoCmd.Close acForm, Me.Name

     UnLoad DoCmd.OpenForm "数据维护及查询"  
   End If
Else
     MsgBox "请先登陆!", vbOKOnly
     DoCmd.Close acForm, Me.Name

     UnLoad DoCmd.OpenForm "数据维护及查询"
End If
End Sub

[此贴子已经被作者于2007-4-20 9:41:55编辑过]

bergyan

不是。。要在小窗体的UnLoad事件中写这代码。。。意思是在小窗体卸载时触发

Private Sub Form_UnLoad()

docmd.openform "数据维护及查询"

end sub

Jean1288

可是，我想做到8楼那样的效果，不改变原有事件，只是修改代码，该怎样做呢，麻烦了！