Office中国论坛/Access中国论坛

标题: 神呀！救救我吧 [打印本页]

作者: suntuyu 时间: 2003-7-15 01:51
标题: 神呀！救救我吧
谁能帮我解决问题：如何为不同的登陆用户指定打开不同的窗体？Action大哥说：autoEXEC宏里运行一个RUNCODE，在代码里用if(或SELECT CASE)有选择的运行：
if strUserName ="X" then
docmd.openform "frmName1"
elseif strUserName="y" then
docmd.openform "frmName2"
……
END IF
可我是个新手,做的不对，系统登陆时提示：
说我可能指定了一个不在当前对象中的控件，并且未指定正确的窗体或报表。
还说要应用其他窗体或报表的控件，在控件名称前要加上集合的名称，

作者: dsfq 时间: 2003-7-15 01:55
你把你做的东西传上来比较好

作者: suntuyu 时间: 2003-7-15 02:45

我在autoexec里调用了runcode，然后指定了我的函数名，在代码窗也作了：

Option Compare Database
Option Explicit

Function strUserName()

If strUserName = "销售部" Then
DoCmd.OpenForm "销售管理"
ElseIf strUserName = "经理" Then
DoCmd.OpenForm "主菜单2"
ElseIf strUserName = "库存部" Then
DoCmd.OpenForm "库存管理"
ElseIf strUserName = "财务部" Then
DoCmd.OpenForm "财务管理"
ElseIf strUserName = "人事部" Then
DoCmd.OpenForm "人事管理2"
ElseIf strUserName = "经理部" Then
DoCmd.OpenForm "办公管理"
ElseIf strUserName = "资产部" Then
DoCmd.OpenForm "资产管理"
End If

End Function

运行时没错误可是还是不行，因为进入的窗体还是最开始做的那个主菜单！！
请众位高手帮帮忙！！！！

作者: suntuyu 时间: 2003-7-15 07:06
那位大侠出手相救？？？

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