Me vi en la necesidad de saber si un form esta abierto, asi que cree esta funcion para ello. Funcion 'Devuelve un valor booleano que indica si el form esta abierto Public Function EstaAbierto(ByVal Myform As Form) Dim objForm As Form Dim blnAbierto As Boolean = False blnAbierto = False For Each objForm In My.Application.OpenForms If (Trim(objForm.Name) = Trim(Myform.Name)) Then blnAbierto = True End If Next Return blnAbierto End Function Implementacion 'frmNuevaGuiaAerea es el nombre del form If EstaAbierto(frmNuevaGuiaAerea) Then txtGuiaAerea.Enabled = False Else txtGuiaAerea.Enabled = True End If En la condicion hago uso de la funcion que EstaAbierto, si duevuelve un valor true entonces se deshabilitara el control txtGuiaAerea, sino se activara. Este codigo es equivalente al anterior: txtGuiaAerea.Enabled =Not EstaAbierto(frmNuevaGu
Tres mundos distintos en una sola realidad.