Parametro Optional para un sub

Sencillamente lo declaras y si no tiene valor será cadena vacía

Sashka
MS MVP Access

"Serafin Salazar" escribió en el mensaje
news:O$dkBp9%

Hola!!!
Alguien sabe si se puede colocar una parametro opcional en un sub??

como seria... Gracias!!

pero me da esto:


Número de argumentos erróneo o asignación de propiedad no válida



"Sashka" escribió en el mensaje
news:eJiGC09%

Sencillamente lo declaras y si no tiene valor será cadena vacía

Sashka
MS MVP Access

"Serafin Salazar" escribió en el mensaje
news:O$dkBp9%
> Hola!!!
> Alguien sabe si se puede colocar una parametro opcional en un sub??
>
> como seria... Gracias!!
>
>

Pásale una variable... así cuando no tenga valor será cadena vacía,... creo
que antes no me dejé entender...
Lo que quiero decir es que pones el valor en la variable para pasarsela
pero que aunque se trate de un numérico... será cadena vacía...

Sashka
MS MVP Access

"Serafin Salazar" escribió en el mensaje
news:OOwCS39%

pero me da esto:


Número de argumentos erróneo o asignación de propiedad no válida



"Sashka" escribió en el mensaje
news:eJiGC09%
> Sencillamente lo declaras y si no tiene valor será cadena vacía
>
> Sashka
> MS MVP Access
>
> "Serafin Salazar" escribió en el mensaje
> news:O$dkBp9%
> > Hola!!!
> > Alguien sabe si se puede colocar una parametro opcional en un sub??
> >
> > como seria... Gracias!!
> >
> >
>
>

VBScript no permite parametros opcionales en los Sub o Functions.
Sin embargo se puede simular un parametro opcional usando arreglos (array).

Aqui te pongo un ejemplo tomado de www.4gusysfromrolla.com:


Sub mySubRoutine(rArgs)

'Declare local variables
Dim v1,v2,v3,v4

'Initialize the local variables (assign
'them all to empty strings
v1 = "" : v2 = "" : v3 = "" : v4 = ""

Select Case UBound(rArgs)
Case 0
v1 = rArgs(0)
Case 1
v1 = rArgs(0)
v2 = rArgs(1)
Case 2
v1 = rArgs(0)
v2 = rArgs(1)
v3 = rArgs(2)
Case 3
v1 = rArgs(0)
v2 = rArgs(1)
v3 = rArgs(2)
v4 = rArgs(3)
End Select

Response.Write "v1 = " & v1 & "<br>"
Response.Write "v2 = " & v2 & "<br>"
Response.Write "v3 = " & v3 & "<br>"
Response.Write "v4 = " & v4 & "<br>"

End Sub


Para llamar el Sub seria algo asi como:


'Creando el arreglo
Dim myArray

'Llamando el Sub con solo 2 argumentos
Redim myArray(1)
myArray(0) = Value1
myArray(1) = Value2

mySubroutine myArray



Saludos,
Erich

"Serafin Salazar" wrote in message
news:O$dkBp9%

Hola!!!
Alguien sabe si se puede colocar una parametro opcional en un sub??

como seria... Gracias!!