VBA如何确定正在使用哪个应用程序

Question

I have a VBA function I use in MS Access and MS Excel. When used in MS Excel I use Application.Volatile but when it is placed or used in MS Access it will not compile. Is there a way to make this line interchangeable without having to delete it when placed in MS Access?

Thank you, Fred

Answer 1

You can ask for the name of the application:

If Application.Name = "Microsoft Access" then
   'Do Nothing ......Or whatever you need to do.

ElseIf Application.Name = "Microsoft Excel" then
    Application.Run "Application.Volatile"
End If

Answer 2

From Help.

Visual Basic for Applications Reference

CallByName Function

Executes a method of an object, or sets or returns a property of an object.

Syntax

CallByName(object, procname, calltype,[args()])

The CallByName function syntax has these named arguments:

Part Description 
object Required; Variant (Object). The name of the object on which the function will be executed. 
procname Required; Variant (String). A string expression containing the name of a property or method of the object. 
calltype Required; Constant. A constant of type vbCallType representing the type of procedure being called. 
args() Optional: Variant (Array). 

Remarks

The CallByName function is used to get or set a property, or invoke a method at run time using a string name.

In the following example, the first line uses CallByName to set the MousePointer property of a text box, the second line gets the value of the MousePointer property, and the third line invokes the Move method to move the text box:

CallByName Text1, "MousePointer", vbLet, vbCrosshair
Result = CallByName (Text1, "MousePointer", vbGet)
CallByName Text1, "Move", vbMethod, 100, 100

---

Send feedback to MSDN.Look here for MSDN Online resources.