Office中国论坛/Access中国论坛

标题: 安全工作组中完全数据用户导出权限 [打印本页]

---

作者: zyz218    时间: 2011-4-14 22:46
标题: 安全工作组中完全数据用户导出权限
如题,此类用户不知为什么不可以导出数据(查询),管理员用户才可以,不知那里出问题了

---

作者: zyz218    时间: 2011-4-14 22:58


图片不会上传了,完全数据用户权限:读取设计\读取数据\更新数据\插入数据\删除数据

把修改设计与管理权限加上也不行,不知为什么

导出代码如下:
Private Sub cmdext_Click()
On Error GoTo Err_cmdext_Click
'这里将使用DAO来改变查询的SQL语句，必须先在“工具”→“引用”中选择
'Microsoft DAO 3.6 Object Library.
'＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
    Dim qdf As DAO.QueryDef
    Dim strSQL, strWhere As String
   
    strWhere = Me.sub_mov.Form.Filter
    If strWhere = "" Then
        strSQL = "select * from statu_mov"
    Else
        strSQL = "select * from statu_mov where " & strWhere
    End If
   
    Set qdf = CurrentDb.QueryDefs("ext_mov")
    qdf.SQL = strSQL
    qdf.Close
   
    Set qdf = Nothing
   
    DoCmd.OutputTo acOutputQuery, "ext_mov", acFormatXLS, , True
   
Exit_cmdext_Click:
    Exit Sub
Err_cmdext_Click:
    MsgBox Err.Description
    Resume Exit_cmdext_Click
   
End Sub

是不是除管理员用户外没有Set qdf = CurrentDb.QueryDefs("ext_mov")这句话的权力?那咋办

---

作者: zyz218    时间: 2011-4-15 12:53
没有办法了？？？自已顶一下！

---

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

Powered by Discuz! X3.3