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窗体就提示错误

不行啊 主要还是我把它的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"

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

我不懂啊 ，请大家帮帮忙啊

我又看了，呵呵，没添加data控件
可现在又 If .BOF = False Then .MoveFirst
提示 91错误 对象变量或with块变量错误

看了 有啊