Need a little help with Allen Browne code

[NewtoIT]

I am new to code and saw some of Allen Browne's codes. 1 looks very useful to me, http://allenbrowne.com/func-06.html. Having trouble calling it in the immediate window.


Using Windows 7 64 bit, MS Access 2010, db name is INVLine and table name is also INVLine.
Questions are: 1) What do I need to change in his code (if anything) to make it run. 2) What do I type in the immediate window to call it?
I tried ?Call TableInfo (INVLine) and got "Compile Error :Expected Compression:"

[pbaldy]

Not sure you can call it that way. Try this behind a button on a test form:

TableInfo "INVLine"

[NewtoIT]

Thanks pbaldy, but please elaborate a little. On the on click, as an event procedure? Remember, I am new to VBA code (but eager to learn).

[pbaldy]

Yes, like:

http://www.baldyweb.com/FirstVBA.htm

[June7]

The function is in a general module?

Don't use the Call keyword and tablename must be given as a string.

Try in the immediate window:
?TableInfo("INVline")

Behind a button Click, I would change TableInfo to a Sub instead of Function as it doesn't return anything.

[NewtoIT]

I tried that and it doesn't work...at least not the ways I know how to write it.
Private Sub Command0_Click()
TableInfo "INVLine"
End Sub

Allen's page says that it works in the Immediate window so I'm confused.

[pbaldy]

I tested behind a button and it worked fine. Allen says the output is to the Immediate window, not to call it from there. See attached.

[NewtoIT]

It must be me then. I copied Allen's code into a module and named it TableInfo. I then created a form (Form1) and a button (command0) with the on click event of:

Option Compare Database
Option Explicit
Private Sub Command0_Click()
TableInfo "INVLINE"
End Sub

When I click that button on Form1 I get: "Compile Error :Expected Compression:"
What the heck am I doing wrong?

[pbaldy]

Does the code compile before you try to run it? Did you copy Allen's code into a standard module intact (all of it)?

[pbaldy]

What a minute; you didn't name the module the same as the function did you? Can't do that, though that's not the error I would have expected.

[NewtoIT]

Yes I did. I deleted that module and created a new one (Module1) and now I click the button and nothing happens.

[pbaldy]

Can you post the db here?

[June7]

Check the button's OnClick event property. Is it set to [Event Procedure]? Double click the ellipses (...) and that will take you to the VBA procedure. Is the code there? Set a breakpoint and step debug. Review tutorial on debugging at the link at bottom of my post.

[NewtoIT]

It was a 1 GB db so I had to do some work to make it small enough. See attached.

[pbaldy]

Worked for me: