Realizar proceso solo si un form esta abierto??

[twelve]

Hola que tal,,,


Usa: esta función


' Función para validar los formularios activos antes de salir de la aplicación
Public Function FormularioActivo(NmbFormulario As String) As Boolean
Dim Formulario As Form
For Each Formulario In Forms
If (UCase(Formulario.Name) = UCase(NmbFormulario)) Then
FormularioActivo = True
Exit For
End If
Next
End Function

'::::::::::::::::::::::::::::::::::::::::::::::::: ::::::::::::::::::::::::::::::::::::::::
Quedaria así en el evento a utilizar

If FormularioActivo("frmRegistrosVehiculos") Then
MensajeCerrar = "¿Cierre todos los formularios antes de salir."
Stylo = vbInformation + vbOKOnly
Title = "Mensaje del Sistema"
BoxCerrar = MsgBox(MensajeCerrar, Stylo, Title)
If BoxCerrar <> vbOKOnly Then
frmRegistrosVehiculos.Show
Exit Sub
End If