A97权限帮助示例无法编译 [英] A97 permissions help example does not compile
问题描述
在此A97示例的编译时显示无效的限定符错误
来自权限属性帮助的
。 strContainerName
分配线有什么问题？ （第6行）
Sub SetDocPermissions（docUnknown As Document）
Dim strContainerName As String
''将UserName属性设置为有效现有的组帐户。
docUnknown.UserName ="营销商"
''获取Container属性的价值。
strContainerName = docUnknown.Container。姓名
选择案例strContainerName
案例表格
''设置表格文件对象的权限。
docUnknown.Permissions = docUnknown.Permissions或_
acSecFrmRptWriteDef
案例报告
''设置报告文档对象的权限。 />
docUnknown.Permissions = docUnknown.Permissions或_
acSecFrmRptExecute
Case" Scripts"
''设置权限脚本文档对象。
docUnknown.Permissions = docUnknown.Permissions或_
acSecMacWriteDef
案例" Modules"
''设置模块文档对象的权限。
docUnknown.Permissions = docUnknown.Permissions或_
acSecModReadDef
Case Else
退出Sub
结束选择
结束子
Invalid qualifier error displays at compile time on this A97 example
from Permissions Property HELP. What''s wrong with the strContainerName
assignment line? (6th line)
Sub SetDocPermissions(docUnknown As Document)
Dim strContainerName As String
'' Set UserName property to valid existing group account.
docUnknown.UserName = "Marketers"
'' Get value of Container property.
strContainerName = docUnknown.Container.Name
Select Case strContainerName
Case "Forms"
'' Set permissions for Form Document object.
docUnknown.Permissions = docUnknown.Permissions Or _
acSecFrmRptWriteDef
Case "Reports"
'' Set permissions for Report Document object.
docUnknown.Permissions = docUnknown.Permissions Or _
acSecFrmRptExecute
Case "Scripts"
'' Set permissions for Script Document object.
docUnknown.Permissions = docUnknown.Permissions Or _
acSecMacWriteDef
Case "Modules"
'' Set permissions for Module Document object.
docUnknown.Permissions = docUnknown.Permissions Or _
acSecModReadDef
Case Else
Exit Sub
End Select
End Sub
推荐答案
MLH写道：
MLH wrote:
strContainerName
分配线有什么问题？ （第6行）
What''s wrong with the strContainerName
assignment line? (6th line)
这是一个印刷错误。 Container属性是一个字符串，而不是
对象，因此它没有Name属性。将该行代码更改为：
strContainerName = docUnknown.Container
-
通过 http://www.accessmonster.com
It''s a typographical error. The Container property is a string, not an
object, so it doesn''t have a Name property. Change that line of code to this:
strContainerName = docUnknown.Container
--
Message posted via http://www.accessmonster.com
" Granny Spitz via AccessMonster.com" < u26473 @ uwewrote
news：67d345dfca650 @ uwe：
"Granny Spitz via AccessMonster.com" <u26473@uwewrote in
news:67d345dfca650@uwe:
MLH写道：
MLH wrote:
> strContainerName
分配线有什么问题？ （第6行）
>What''s wrong with the strContainerName
assignment line? (6th line)
这是一个印刷错误。 Container属性是一个字符串，而不是对象的
，所以它没有Name属性。将该行
代码更改为：
strContainerName = docUnknown.Container
It''s a typographical error. The Container property is a string, not
an object, so it doesn''t have a Name property. Change that line of
code to this:
strContainerName = docUnknown.Container
Dim c作为容器
Dim d As Document
设置c = DBEngine（0）（0）.Containers（Forms）
Debug .Print VarType（c）''9（对象）
设置d = c.Documents（0）
Debug.Print VarType（d.Container）''8（字符串）
哦，是的！
-
Lyle Fairfield
Dim c As Container
Dim d As Document
Set c = DBEngine(0)(0).Containers("Forms")
Debug.Print VarType(c) ''9 (object)
Set d = c.Documents(0)
Debug.Print VarType(d.Container) ''8 (string)
Ohhhh yeah!
--
Lyle Fairfield
你不是只爱微软。
-
特里Kreft
" Lyle Fairfield" < ly *********** @ aim.comwrote in message
news：Xn ******************* **************@216.221.8 1.119 ...
Don''t you just love Microsoft.
--
Terry Kreft
"Lyle Fairfield" <ly***********@aim.comwrote in message
news:Xn*********************************@216.221.8 1.119...
" Granny Spitz via AccessMonster.com" < u26473 @ uwewrote
news：67d345dfca650 @ uwe：
"Granny Spitz via AccessMonster.com" <u26473@uwewrote in
news:67d345dfca650@uwe:
MLH写道：
MLH wrote:
strContainerName
分配线有什么问题？ （第6行）
What''s wrong with the strContainerName
assignment line? (6th line)
这是一个印刷错误。 Container属性是一个字符串，而不是对象的
，所以它没有Name属性。将这行
代码更改为：
strContainerName = docUnknown.Container
It''s a typographical error. The Container property is a string, not
an object, so it doesn''t have a Name property. Change that line of
code to this:
strContainerName = docUnknown.Container
Dim c作为容器
Dim d As Document
设置c = DBEngine（0）（0）.Containers（Forms）
Debug .Print VarType（c）''9（对象）
设置d = c.Documents（0）
Debug.Print VarType（d.Container）''8（
哦，是啊！
-
Lyle Fairfield
Dim c As Container
Dim d As Document
Set c = DBEngine(0)(0).Containers("Forms")
Debug.Print VarType(c) ''9 (object)
Set d = c.Documents(0)
Debug.Print VarType(d.Container) ''8 (string)
Ohhhh yeah!
--
Lyle Fairfield
这篇关于A97权限帮助示例无法编译的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
