Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"Doudou" | Comment lister les états présent dans un base |
Tu ne donne pas ta version d'Access...
Regarde la collection AllReports
Sub AllReports() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject ' Search for open AccessObject objects in AllReports collection. For Each obj In dbs.AllReports If obj.IsLoaded = True Then ' Print name of obj. Debug.Print obj.Name End If Next obj End Sub
"Doudou"
| Comment lister les états présent dans un base
|
Tu ne donne pas ta version d'Access...
Regarde la collection AllReports
Sub AllReports()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllReports collection.
For Each obj In dbs.AllReports
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
"Doudou" | Comment lister les états présent dans un base |
Tu ne donne pas ta version d'Access...
Regarde la collection AllReports
Sub AllReports() Dim obj As AccessObject, dbs As Object Set dbs = Application.CurrentProject ' Search for open AccessObject objects in AllReports collection. For Each obj In dbs.AllReports If obj.IsLoaded = True Then ' Print name of obj. Debug.Print obj.Name End If Next obj End Sub