Error in code

[SHIPP]

I have the following code supplied to me by Dirk Goldgar.

With cnt
For intDocX = .Documents.Count - 1 To 0 Step -1
appAccess.DoCmd.DeleteObject iObjectType, Documents(intDocX).Name
Next intDocX
End With

It won't compile. I am getting an error on the third line.

Documents(intDocX).name

The word Documents is highlighted and it says sub not defined. Does anybody
know the reason?

 

[Alex Dybenko]

try to add a dot:
..Documents(intDocX).name

 

[L. R. Hurtado]

The probably reason why yuur code is not compiling and giving you such error
message should be because there is a missed function called Documents which
you don't have in your code. Check with your code provider for that function.

 

[SHIPP]

Nope that didn't work.

try to add a dot:
..Documents(intDocX).name

 

[SHIPP]

Documents is an Access key word. Any additional help would be appreciated.

 

[Dirk Goldgar]

Nope that didn't work.

You had no dot; Alex posted it with two dots (obviously accidentally).
The code I actually posted had one dot:

appAccess.DoCmd.DeleteObject iObjectType, .Documents(intDocX).Name

And I assure you it works in my tests.

 

[Alex Dybenko]

Hi Dirk,
hmm, can't understand where from second dot came, i posted only one:

"try to add a dot:
..Documents(intDocX).name"

 

[SHIPP]

It worked great. Thanks a lot for all your help.

You had no dot; Alex posted it with two dots (obviously accidentally).
The code I actually posted had one dot:

appAccess.DoCmd.DeleteObject iObjectType, .Documents(intDocX).Name

And I assure you it works in my tests.

--
Dirk Goldgar, MS Access MVP
www.datagnostics.com

(please reply to the newsgroup)

 

[Dirk Goldgar]

Hi Dirk,
hmm, can't understand where from second dot came, i posted only one:

"try to add a dot:
.Documents(intDocX).name"

Hmm, I see that you're right. But your quoted text in SHIPP's message
has an extra dot. How odd.