Esta función se utiliza cuando utilizamos parámetros opcionales en una función o procedimiento, y nosotros, dentro del mismo queremos saber y averiguar si se han enviado los parámetros opcionales
El uso de IsMissing muy simple. Esta función retorna el valor True si NO se ha enviado el parámetro que queremos comprobar, y devuelve False si el parámetro ha sido enviado:
por ejemplo , colocar dos CommandButton
Private Sub Mostrar_Dato(Optional Nombre As Variant)
' Si IsMissing devuelve Verdadero, es por que no se envíó
If IsMissing(Nombre) = True Then
MsgBox " NO Se ha enviado el parámetro NOMBRE ", vbInformation
Else
MsgBox " Se ha enviado el parámetro NOMBRE ", vbInformation
End If
End Sub
'Acá No se envía el parámetro
Private Sub Command1_Click()
Mostrar_Dato
End Sub
'Acá Si se envía el parámetro
Private Sub Command2_Click()
Mostrar_Dato "María"
End Sub
No hay comentarios:
Publicar un comentario