Compile Errors - Is it possible to ignore them?

[Shane O]

Hi, and sorry for the long question..

My issue is that I need a number of applications to work in Windows XP (Office 2003, and an internal program), and also be able to work in Windows 7 (Office 2010, and an updated internal program). - I need each application (Excel/Access Macro) as a single file, and I need each file to work, regardless of what OS/office/application version the user has.

I already implemented code to add/remove the appropriote references (based on GUID), as well as code to determine the Office version (If a user has Office 2010, they also have Windows 7 and the updated program, while if a user has Office 2003, they have XP and the old program).

--

The issue I have right now is: I have two modules - One module that works in Windows XP with the old program, and one module that works in Windows 7 with the new program.

If I add them both to the macro, I get compile errors and am unable to even run the macro (my initial goal was to basically do an 'if WinXP then use old module, if Win7 then use new module).

I know the best solution to this is to use a seperate workbook and read from there - this is not possible with the way our security is set up.

The solution needs to be within one Excel workbook.

--

So - basically, is there a way to somehow ignore these compile errors? or to (with code) comment out or delete a module (perhaps on workbook open?) Maybe there's an even simpler solution..

Is there some way I can combine both modules into a class module, and only use the parts I require based on Office version?

[mohd9876]

you can use something like this:

Please Login or Register  to view this content.

[Shane O]

you can use something like this:

Please Login or Register  to view this content.

Thanks for the response,

While this works for subs and functions - it doesn't work for private/public variables defined outside of subs/functions. (In this case , objects).

Is there any way to define an object (private/public) inside a sub/function? Or is there a way I can use something similar to the #If.. #End If ?
Or is there - in fact - an even simpler solution?

[royUK]

What objects do you mean?

[Shane O]

What objects do you mean?

Objects that are used to connect with the other program... so, in Windows XP:

Please Login or Register  to view this content.

And in Windows 7:

Please Login or Register  to view this content.

[mohd9876]

As far as I know you can use #If.. outside subs and functions

[Shane O]

As far as I know you can use #If.. outside subs and functions

Looks like you're right, however you still can't declare variables within an if, unfortunately

[mohd9876]

well fortunately you are wrong about this, you can declare variables within a #If

[Shane O]

well fortunately you are wrong about this, you can declare variables within a #If

Hmm, didn't know that, but you're right you can declare variables within an #IF, thanks!

I can't seem to get this to work:

Please Login or Register  to view this content.

It keeps saying "Invalid use of object" and highlighting DualWindows

[mohd9876]

actually no it won't because you have some compiler constants that you are limited to.
you could do this:

[code]
#If VBA7 Then
Private objSystem As Attachmate_Reflection_Objects_Framework.ApplicationObject
#Else
Private objSystem As ExtraSystem
#End If

[Shane O]

actually no it won't because you have some compiler constants that you are limited to.
you could do this:

[code]
#If VBA7 Then
Private objSystem As Attachmate_Reflection_Objects_Framework.ApplicationObject
#Else
Private objSystem As ExtraSystem
#End If

Thanks a bunch! This looks like it's working!