no me deja pasar valores ByVal a una función

[Baldur]

Hola, tengo creada la siguiente función:

Código:

Private Sub puntoContrato(contrato As Variant, tipoCorreccion As String)

Y cuando le quiero pasar lo siguiente

Código:

puntoContrato(varCliente,"Escritura")

Me salta el siguiente mensaje:

Error de Compilación
Se esperaba: =

varCliente es el valor con el que va a operar y "Escritura" el tipo de operación tiene que hacer, Escritura, o "Lectura".

He probado con:

Código:

Private Sub puntoContrato(ByRef contrato As Variant, ByVal tipoCorreccion As String)

Pero me dice lo mismo.

Alguien me puede ayudar???
Gracias!

[Avellaneda]

Hola alejandro,

Al ser puntoContrato un procedimiento que no devuelve ningún valor tienes que llamarlo sin encerrar los parámetros entre paréntesis:

puntoContrato varCliente, "Escritura"

un saludo.

[Baldur]

ah, pues muchas gracias!
No sabía yo eso de los paréntesis.
Yo como para devolver valores siempre uso las FUNCTION en vez de las SUB...xD

[Foxi]

También puedes llamarle a la función con los paréntesis, pero incluyendo antes la call (te loaconsejo por propia experiencia para llamadas a procedimientos, me ha resultado siempre más fiable).

En tu caso:

Código:

Call puntoContrato(varCliente,"Escritura")

Saludos, Foxi.