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
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
