programacion - vba access pdf

Llamar a la función Access VBA desde Excel

Question

Estoy construyendo una hoja de trabajo de compensación. Las tablas y la información clave están en una base de datos de acceso, Compensation.accdb , que tiene una función para calcular la compensación en función del contrato del agente. Si el agente es un "REP", la función Access VBA realiza un cálculo y si el agente es un SRP, hace otro. Varios usuarios distintos desean llamar a esta función desde Excel (por cierto, MS Office 2013). La idea es que un usuario cambie o ingrese la cantidad en su hoja de cálculo y la hoja de cálculo llame a la función Compensation.accdb VBA. Compensation.accdb realiza el cálculo y transfiere el valor a la hoja de cálculo de origen.

Aquí está el código VBA Compensation.accdb :

Option Compare Database

Function AutoComp(WritingRepContract As String) As Integer ''Auto insurance
    ''Debug.Print WritingRepContract
    If WritingRepContract = "REP" Then
        AutoComp = 1 ''Compensation formula for Rep will go here
    End If

    If WritingRepContract = "SRP" Then
        AutoComp = 2 ''Compensation formula for Senior Rep will go here, etc.
    End If

End Function

Aquí está el código Excel VBA:

Public Sub Worksheet_Change(ByVal Target As Range) 
    ''Is there a better way than this???
    Dim WritingLevel As String
    If Target.Address = "$B$8" Then 
    ''This is the cell where one would enter Auto value.
        If Target.Value = 1 Then ''just a test to see if working
            WritingLevel = "REP"
        Else
            WritingLevel = "SRP"
        End If
        CallAutoComp (WritingLevel)
    End If

End Sub

Sub CallAutoComp(WritingLevel)
    Dim appAccess As Access.Application
    Dim test As Integer

    Set appAccess = New Access.Application
    Debug.Print appAccess.Eval("AutoComp(WritingLevel)") 
    ''A test to see what is happening
    With appAccess
        .OpenCurrentDatabase "C:/Mypath/Compensation.ACCDB"
        .Visible = False '' Useful for debugging when true
        .Eval ("AutoComp(WritingLevel)")
    End With
    test = appAccess.Eval("AutoComp(WritingLevel)")
    With appAccess
        .CloseCurrentDatabase
        .Quit
    End With

End Sub

Cuando cambio el valor en B8 obtengo esto:

Error en tiempo de ejecución 2425: la expresión que ingresó tiene un nombre de función que Microsoft Access no puede encontrar.

No le gustan las siguientes declaraciones (el mismo error 2425 para las tres declaraciones):

Debug.Print statement
.Eval ("AutoComp(WritingLevel))") statement
test = appAccess.Eval("AutoComp(WritingLevel)")

He intentado varias versiones de comillas simples y dobles y "&" alrededor de WritingLevel sin éxito.

No estoy seguro de si este es el mejor enfoque. Esta es la primera vez que intento cruzar plataformas como esta, pero sería una gran ayuda para mucha gente si pudiera obtener una respuesta a este problema. Sería genial si pudiera llamar a la función de una manera más fácil, como lo hace para las funciones internas de Excel. He buscado días con diferentes versiones de mi cadena de búsqueda sin éxito.

Cuando reemplazo AutoComp(WritingLevel) con AutoComp(SRP) o AutoComp(REP) funciona bien.

Answer 1

Intenta usar Application.Run en su lugar. Algo como:

Application.Run ("AutoComp", WritingLevel)

He hecho algo similar, pero no exactamente como lo que estás haciendo. En mi caso, el nombre de la función era una variable y el valor que se le pasó fue una constante, pero teóricamente mi código debería funcionar.

Answer 2

También parece que la función AccessDB no puede asignar un valor de retorno a sí misma si el argumento no es "REP" o "SRP".
Puede querer agregar: AutoComp = (-1) al comienzo de la función.