Formularios

Muchas veces necesitamos saber si el control ya existe en el formulario; ya sea para crearlo o para modificar sus propiedades.


Ver código ejemplo


'Este ejemplo llama a la función existe, para saber si puede modificar el control
      Sub Show ()
        if existe ("Pers_Control") then
            gForm.Controls("Pers_Control").text = ""
        end if
      end sub

Function existe (aControl)
     On Error Resume Next
     Set lcontrol = gForm.Controls(cstr(aControl))
          If lcontrol Is Nothing Then
             existe = false
          Else
             existe = true
         End If
End Function


Autor: Daniel Ernesto Lutz Llano