Office中国论坛/Access中国论坛

标题: 如何执行以下程序 [打印本页]

作者: charlieyoung 时间: 2007-12-9 16:27
标题: 如何执行以下程序
请问case 4 应该如何修改

         Select Case rs("itemcmdtype")
            Case 1
                  DoCmd.OpenForm rs("itemcommand")
            Case 2
                  DoCmd.OpenReport rs("itemcommand"), acViewPreview
            Case 3
                  DoCmd.RunMacro rs("itemcommand")
            Case 4
               '该rs("itemcmdtype")定义为函数或程序
                  DoCmd.RunCommand rs("itemcmdtype")

            Case 7
                  DoCmd.close acForm, name
            Case 8
                  DoCmd.Quit acQuitSaveAll
         End Select

作者: charlieyoung 时间: 2007-12-9 21:47
Select Case rs("itemcmdtype")
            Case 1
                  DoCmd.OpenForm rs("itemcommand")
            Case 2
                  DoCmd.OpenReport rs("itemcommand"), acViewPreview
            Case 3
                  DoCmd.RunMacro rs("itemcommand")
            Case 4
                  'rs("itemcommand")=WelcomeToDblClick
                  DoCmd.RunCommand WelcomeToDblClick
                  'DoCmd.RunCommand rs("itemcommand")
            Case 7
                  DoCmd.close acForm, name
            Case 8
                  DoCmd.Quit acQuitSaveAll
         End Select
      Else
---------------------------------
Private Function WelcomeToDblClick()
'DoCmd.OpenForm "frmLogin", , , , , acDialog
End Function

如何修改,程序出警告

作者: tmtony 时间: 2007-12-10 02:08
eval( 函数名)

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