Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access tester un formulaire ouvert

tester un formulaire ouvert

2 réponses
Avatar
Nathalie Lebas
Bonjour,

Je cherche à tester si un formulaire est ouvert ou non afin de le mettre à
jour ou non par requery. Pour cela, j'utilise :
Dim nomform As AccessObject
Set nomform = CurrentProject.AllForms(Commandes)
If nomform.IsLoaded Then
Forms!Commandes.Requery
End If
avec Commandes le nom de mon formualire à tester ouvert ou non.
Mais cela ne fonctionnne pas. Aucun message n'est envoyé par contre si le
formulaire Commandes est ouvert, il n'est pas mis à jour.
Pouvez-vous me dire comment puis-je faire ?
Merci
--
Nathalie
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Raymond [mvp]
Bonjour.

tu peux faire:

If CurrentProject.AllForms!Commandes.IsLoaded Then
Forms!Commandes.Requery
End If

quoi que je préfère:
If CurrentProject.AllForms("Commandes").IsLoaded Then
Forms("Commandes").Requery
End If

si Commandes n'existe pas, il y aura une erreur système que tu pourrais
supprimer par On Error Resume Next.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Nathalie Lebas" a écrit dans le
message de news:
| Bonjour,
|
| Je cherche à tester si un formulaire est ouvert ou non afin de le mettre à
| jour ou non par requery. Pour cela, j'utilise :
| Dim nomform As AccessObject
| Set nomform = CurrentProject.AllForms(Commandes)
| If nomform.IsLoaded Then
| Forms!Commandes.Requery
| End If
| avec Commandes le nom de mon formualire à tester ouvert ou non.
| Mais cela ne fonctionnne pas. Aucun message n'est envoyé par contre si le
| formulaire Commandes est ouvert, il n'est pas mis à jour.
| Pouvez-vous me dire comment puis-je faire ?
| Merci
| --
| Nathalie
Avatar
Nathalie Lebas
Bonsoir,
Merci pour ta réponse.
Cela marche super.
Une fois de plus merci !

--
Nathalie



Bonjour.

tu peux faire:

If CurrentProject.AllForms!Commandes.IsLoaded Then
Forms!Commandes.Requery
End If

quoi que je préfère:
If CurrentProject.AllForms("Commandes").IsLoaded Then
Forms("Commandes").Requery
End If

si Commandes n'existe pas, il y aura une erreur système que tu pourrais
supprimer par On Error Resume Next.

--
@+
Raymond Access MVP http://www.OfficeSystemAccess.com/
http://officesystem.access.over-blog.com/
http://officesystem.access.free.fr/wiki/
Pour débuter sur le forum: http://www.mpfa.info/

Venez découvrir Open XML, le nouveau format de fichier de la suite Office !
http://www.comscamp.com/Tracker/Redirect.ashx?linkidÿ71c7f3-78e8-4371-abaf-b73c259e58db


"Nathalie Lebas" a écrit dans le
message de news:
| Bonjour,
|
| Je cherche à tester si un formulaire est ouvert ou non afin de le mettre à
| jour ou non par requery. Pour cela, j'utilise :
| Dim nomform As AccessObject
| Set nomform = CurrentProject.AllForms(Commandes)
| If nomform.IsLoaded Then
| Forms!Commandes.Requery
| End If
| avec Commandes le nom de mon formualire à tester ouvert ou non.
| Mais cela ne fonctionnne pas. Aucun message n'est envoyé par contre si le
| formulaire Commandes est ouvert, il n'est pas mis à jour.
| Pouvez-vous me dire comment puis-je faire ?
| Merci
| --
| Nathalie