[求助]这个自定义函数该怎样写?

rogertian

我想自定义一个函数,目的是为了判断某个窗体中的NEW按钮是否可用.即Forms!FTYINPUT!NEW.Enabled = False
因为要在所有的窗口中调用,因此想定义一个函数.但如何定义才能达到我的目的?

就是Forms!FTYINPUT!NEW.Enabled这部分我想用一个变量来表达.这个变量如何定义?

[此贴子已经被作者于2004-2-12 13:07:54编辑过]

zhengjialon

Forms(窗体名变量).NEW.Enabled
这样要保证每个被调用的窗体上都要有NEW这个命令按钮。

rogertian

真的非常感谢.如果你不教我,我要在每个窗体上加代码了.还有个问题请教,下面的我定义的.
Public Function right()
    PRG = "ftyinput"  FTYINPUT是传过来的打开的窗体名,我在是这个窗体中CALL RIGHT的.
    OPENV = DLookup("OPENV", "RI", "RG='" & PRG & "'")
    NEWV = DLookup("NEWV", "RI", "PRG='" & PRG & "'")
    SAVEV = DLookup("SAVEV", "PRI", "PRG='" & PRG & "'")
    EDITV = DLookup("EDITV", "PRI", "PRG='" & PRG & "'")
    DELETEV = DLookup("DELETEV", "PRI", "PRG='" & PRG & "'")
   
    If OPENV = 0 Then
    MsgBox "You are not right!", vbInformation, "Warring"
    DoCmd.CLOSE这里我的本意是如果打开窗体的权限为假,则关掉打开的窗口FTYINPUT,但是这里因为不能用EXIT SUB 命令.因此程序转回到FTYINPUT继续执行.有什么办法关掉FTYINPUT这个窗体,
    Else
   
    If NEWV = -1 Then
    Forms(PRG).NEW.Enabled = True
    Else
    Forms(PRG).NEW.Enabled = False
    End If
   
    If SAVEV = -1 Then
    Forms(PRG).SAVE.Enabled = True
    Else
    Forms(PRG).SAVE.Enabled = False
    End If
   
    If EDITV = -1 Then
    Forms(PRG).EDIT.Enabled = True
    Else
    Forms(PRG).EDIT.Enabled = False
    End If
   
    If DELETEV = -1 Then
    Forms(PRG).DELETE.Enabled = True
    Else
    Forms(PRG).DELETE.Enabled = False
    End If
   
    End If
   
End Function

zhengjialon

这样不行，你应该有一个判断权限的函数，返回值要么是TRUE要么是FALSE，这样在窗体的OPEN事件过程中做判断，是TRUE就继续打开，否则就让CANCEL=-1，不打开窗体。

rogertian

这样啊.谢谢你..
看样子我只好在窗体中多做一次判断了..

非常感谢..