如何执行以下程序

charlieyoung

请问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

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

eval( 函数名)