提示:tellme当前提供程序不支持"索引"功能的界面

'根据参数打开对应的窗体/报表/函数
Public Sub OpenCmd(mdl As String)
On Error GoTo OC_Err

   Dim Rs As ADODB.Recordset, func As String
   Dim Stemps As String
   DoCmd.Hourglass False
   Set Rs = New ADODB.Recordset
   Stemps = "select * from tblZstmProgItem"
   Rs.Open Stemps, CurrentProject.Connection, adOpenStatic, adLockReadOnly
  
   Rs.Index = "ModuleID"

   Rs.Seek "=", mdl
  
   If DCount("func", "tblSysRightUserRight", "uname='" & LogUser & "' and func='" & mdl & "'") = 0 Then
      glMessageBox "你没有权限使用这个功能！"
      Exit Sub
   End If

   If Not IsNull(Rs!Form) Then

      gOpenForm Rs!FInModule, Rs!Form
      'DoCmd.OpenForm rs!Form
      Exit Sub
   Else
      glMessageBox "此功能不存在,或是演示版!"
      Exit Sub
   End If
   If Not IsNull(Rs!Qry) Then
      gOpenQuery Rs!FInModule, Rs!Qry
      'DoCmd.OpenQuery rs!Qry
      Exit Sub
    Else
      glMessageBox "此功能不存在,或是演示版!"
      Exit Sub
   End If

   If Not IsNull(Rs!func) Then
      func = Rs!func & "()"
      UnUsed = Eval(func)
      Exit Sub
    Else
      glMessageBox "此功能不存在,或是演示版!"
      Exit Sub
   End If
   Exit Sub
OC_Err:
   glMessageBox "tellme" & Err.Description
   Exit Sub
End Sub