Private Sub MDIForm_Load()
 Data1.DatabaseName = App.Path & "\Kfgl.MDB"     '自动识别数据库路径
End Sub
Private Sub MDIForm_Activate()     '设置操作员权限
 With Data1.Recordset
 If .BOF = False Then .MoveFirst
 .FindFirst "操作员 like " + Chr(34) + Chr(34) + ""
 If .NoMatch Then
 Else
  main.zjyj.Enabled = .Fields("追加押金")
  main.zsdj.Enabled = .Fields("住宿登记")
  main.tf.Enabled = .Fields("退宿登记")
  main.tfdj.Enabled = .Fields("调房登记")
  main.kfsz.Enabled = .Fields("客房管理")
  main.kfcx.Enabled = .Fields("客房查询")
  main.ftck.Enabled = .Fields("房态查看")
  main.zscx.Enabled = .Fields("住宿查询")
  main.tfcx.Enabled = .Fields("退宿查询")
  main.sftx.Enabled = .Fields("宿费提醒")
  main.xstj.Enabled = .Fields("客房销售统计")
  main.czysz.Enabled = .Fields("操作员设置")
  main.ma.Enabled = .Fields("密码设置")
  main.csh.Enabled = .Fields("初始化")
  main.qxsz.Enabled = .Fields("权限设置")
 End If
 End With
 End Sub

提示有错误，怎么改啊，我急用哦！！

[[it] 本帖最后由 doudoulong 于 2008-5-9 20:35 编辑 [/it]]

问题要描述清楚。
什么错误？提示了哪句有错误？

提示说424错误 要求对象
Data1.DatabaseName = App.Path & "\Kfgl.MDB"  
错误

这个程序本来是在form窗体编的，换成mdiform窗体就提示错误

msgbox(App.Path & "\Kfgl.MDB")
看看路径对不对，我的印象中，  App.Path 本身就有“\”，你看看是不是\多了？
改成App.Path & "Kfgl.MDB"试下
我不确定哈

不行啊 主要还是我把它的form窗体编的，换成mdiform窗体了，难道mdiform中不应该这样写吗，哪如何弄拉．我看人家原来那个能用，但我需要把它的窗体换了．

程序均需要一个启动窗体！
在工程的属性里设置。

怎么设置哦！！教教我吧，谢谢拉

原来是这个,能用
Private Sub Form_Load()
Data1.DatabaseName = App.Path & "\Kfgl.MDB"     '自动识别数据库路径
End Sub
Private Sub Form_Activate()     '设置操作员权限
With Data1.Recordset
If .BOF = False Then .MoveFirst
.FindFirst "操作员 like " + Chr(34) + Chr(34) + ""
If .NoMatch Then
Else
  main.zjyj.Enabled = .Fields("追加押金")
  main.zsdj.Enabled = .Fields("住宿登记")
  main.tf.Enabled = .Fields("退宿登记")
  main.tfdj.Enabled = .Fields("调房登记")
  main.kfsz.Enabled = .Fields("客房管理")
  main.kfcx.Enabled = .Fields("客房查询")
  main.ftck.Enabled = .Fields("房态查看")
  main.zscx.Enabled = .Fields("住宿查询")
  main.tfcx.Enabled = .Fields("退宿查询")
  main.sftx.Enabled = .Fields("宿费提醒")
  main.xstj.Enabled = .Fields("客房销售统计")
  main.czysz.Enabled = .Fields("操作员设置")
  main.ma.Enabled = .Fields("密码设置")
  main.csh.Enabled = .Fields("初始化")
  main.qxsz.Enabled = .Fields("权限设置")
End If
End With
End Sub

我想改成Private Sub MDIForm_Load()和Private Sub MDIForm_Activate()啊 ,我把它移到相应的里面就出错啊 424错误 要求对象 黄色光标指向  Data1.DatabaseName = App.Path & "\Kfgl.MDB"

若我想改,如何改呢??大家帮帮忙吧!!谢谢啊

MDIForm窗体里有 Data1控件吗？“我把它移到相应的里面”能这样移吗？