Ayuda con access y vba!
Hola! Tengo varios formularios y cuando se abre uno de ellos quiero que me compruebe si esta abieto otro que tengo porque si es así realizaría una función. ¿Me puedes ayudar? Muchas gracias
1 Respuesta
Respuesta de juanito01
1
Public Function esta_cargado(s As String) As Boolean
Dim obj As AccessObject, dbs As Object
esta_cargado = False
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True And obj.Name = s Then
esta_cargado = True
Exit Function
End If
Next obj
End Function
Dim obj As AccessObject, dbs As Object
esta_cargado = False
Set dbs = Application.CurrentProject
For Each obj In dbs.AllForms
If obj.IsLoaded = True And obj.Name = s Then
esta_cargado = True
Exit Function
End If
Next obj
End Function
