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 Affichage d'un formulaire sur mesure!!

Affichage d'un formulaire sur mesure!!

3 réponses
Avatar
hasardeux
Bonour,

J'ai un code affect=E9 =E0 un bouton de commande et qui me=20
permet entre autres de lancer un formulaire F bas=E9 sur une=20
requ=EAte R.

Je voudrais que lorsque ce formulaire ne contient aucune=20
information (c'est =E7 dire que la requ=EAte source est vide),=20
le code n'affiche pas ce formulaire.


Merci
Signaler un problème avec ce contenu

3 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
André AVONS
Salut
Dans l'evevement sur ouverture du form
tu mets
If Me.RecordsetClone.RecordCount < 1 Then
DoCmd.Close
'Ou
'Cancel = true
End If

--
@+
André

Quelques liens avec des exemples, des utilitaires et des compléments pour
Access
http://access.seneque.free.fr/
http://www.self-access.com/
http://www.mvps.org/accessfr/
http://mypage.bluewin.ch/w.stucki/
"hasardeux" a écrit dans le message de
news:084801c34aba$c4d56e00$
Bonour,

J'ai un code affecté à un bouton de commande et qui me
permet entre autres de lancer un formulaire F basé sur une
requête R.

Je voudrais que lorsque ce formulaire ne contient aucune
information (c'est ç dire que la requête source est vide),
le code n'affiche pas ce formulaire.


Merci
Avatar
3stone
Salut,

hasardeux
J'ai un code affecté à un bouton de commande et qui me
permet entre autres de lancer un formulaire F basé sur une
requête R.

Je voudrais que lorsque ce formulaire ne contient aucune
information (c'est ç dire que la requête source est vide),
le code n'affiche pas ce formulaire.



Compte le nombre d'enregistrement que te renvoie la requête, avant d'ouvrir le formulaire...

If DCount("*","NomRequête") > 0 then
'// ouverture
DoCmd.Openform "MonForm"...
else
'// Message éventuel
MsgBox "Il n'y a pas de données..."
end if



--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/
--------------------------------------
Avatar
Xavier HUE
Bonjour hasardeux,

2 solutions:

1) Laisser le formulaire s'ouvrir et le refermer si pas
d'enregistrement
Dans l'évènement sur chargement du formulaire

If Me.RecordsetClone.BOF Then
DoCmd.close acForm, Me.Name, acSavePrompt
End If

2) Controler AVANT d'ouvrir le formulaire

If CDount
("ZoneàComter", "SourceDeDonnées", "TesCritèresDeSélection"
) >0 then
DoCmd.OpenForm ...
End If

Cordialement.

PS: Enlever blurg dans l'adresse mail.

-----Message d'origine-----
Bonour,

J'ai un code affecté à un bouton de commande et qui me
permet entre autres de lancer un formulaire F basé sur
une

requête R.

Je voudrais que lorsque ce formulaire ne contient aucune
information (c'est ç dire que la requête source est
vide),

le code n'affiche pas ce formulaire.


Merci
.