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 Formulaire sur enregistrement non trouvé

Formulaire sur enregistrement non trouvé

13 réponses
Avatar
Drouet Guillaume
Bonjour comment faire pour renvoyer un formulaire lorsque
acces ne trouve pas d'enregistrement.
Par exemple qu'il affiche un formulaire type "pas
d'enregistrement trouve".
Merci de vos reponses
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
1 2
Avatar
Sweety
Ca par contre ça marche Eric :-)

"Eric" a écrit dans le message de
news:
Bonjour,

Copie de la réponse donnée à Sweety :

Sur ouverture du formulaire appelé, je mettrai:
Private Sub Form_Open(Cancel As Integer)
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Nobody", vbInformation
DoCmd.Close acForm, Me.Name
End If
End Sub

A+
Eric

"Guillaume" écrivait
news:214801c4a217$9c2d79b0$:

sur 2002 cela ne marche pas non plus j'ai un formulaire
vierge, en fait j'ai un formulaire ou j'indique mes
criteres de recherche, et cela me renvoie a un autre
formulaire (qui depand d'une requete) qui m'indique les
enregistrements trouvé
-----Message d'origine-----






Avatar
Gafish
Ok, j'ai vu dans ta base pourquoi le code que je t'ai proposé ne marchait
pas.
Tu as passé dans les propriétés de ton formulaire "Ajout autorisé" à non, ce
qui fait qu'il ne passe pas par l'état Me.NewRecord

Arnaud

"Gafish" a écrit dans le message de
news:
Essaie d'exporter juste ton form et ta requete dans une autre base pour me
l'envoyer.
Car je viens de reessayer avec une requete selection comme toi en source
de

mon form ca marche

"Sweety" <*enlevez_ceci* a écrit dans le message de
news:
La base est malheureusement assez lourde (6 Mo pour la partie
applicative


et
2.5 Mo pour les tables).
Mon form est lié à une requête sélection (recherche d'articles), donc si
j'ai bien compris, il s'agit d'afficher p.ex.un msgbox au cas ou la
requête

ne renvoie rien du tout...


"Gafish" a écrit dans le message de
news:%
question bête :) ton form est bien lié à une source de données, par
exemple

une table qui ne contient pas de données ?
Si oui, envoie moi ta base (si pas lourde) ou juste le form et sa
source



de
données par mail que je regarde.

"Sweety" <*enlevez_ceci* a écrit dans le message de
news:
Oui j'ai mis un msgbox au lieu du DoCmd....
(évènement sur chargement)

"Gafish" a écrit dans le message de
news:
J'ai retesté avant de poster sur un 2000 itou et ca passait bien.
Tu as essayé déja de mettre un msgbox dans le if Me.NewRecord voir
si




tu
passes dans le if ?

"Sweety" <*enlevez_ceci* a écrit dans le
message





de
news:%
Bonjour
Ca ne marche pas chez moi (rien ne se passe dans tous les cas)
avec





Access
2000

"Gafish" a écrit dans le message
de






news:
Bonjour,

Tu peux mettre le code suivant dans l'évenement load de ton
formulaire





If Me.NewRecord Then
DoCmd.Close
DoCmd.OpenForm "TonAutreForm"
End If

ici TonAutreForm est un formulaire qui affichera le texte que
tu







lui
auras
mis, pas exemple "PAs d'enregistrements".
Si tu ne veux pas fermer ton formulaire source, enleve la
ligne







DOCmd.Close

Arnaud

"Drouet Guillaume" a écrit dans le
message






de
news:147b01c4a20b$7d4413d0$
Bonjour comment faire pour renvoyer un formulaire lorsque
acces ne trouve pas d'enregistrement.
Par exemple qu'il affiche un formulaire type "pas
d'enregistrement trouve".
Merci de vos reponses






























Avatar
Sweety
Comme dit dans mon mail, j'avais omis cette propriété :-)
Merci pour ta collaboration ;-)

Michel

"Gafish" a écrit dans le message de
news:
Ok, j'ai vu dans ta base pourquoi le code que je t'ai proposé ne marchait
pas.
Tu as passé dans les propriétés de ton formulaire "Ajout autorisé" à non,
ce

qui fait qu'il ne passe pas par l'état Me.NewRecord

Arnaud

"Gafish" a écrit dans le message de
news:
Essaie d'exporter juste ton form et ta requete dans une autre base pour
me


l'envoyer.
Car je viens de reessayer avec une requete selection comme toi en source
de

mon form ca marche

"Sweety" <*enlevez_ceci* a écrit dans le message de
news:
La base est malheureusement assez lourde (6 Mo pour la partie
applicative


et
2.5 Mo pour les tables).
Mon form est lié à une requête sélection (recherche d'articles), donc
si



j'ai bien compris, il s'agit d'afficher p.ex.un msgbox au cas ou la
requête

ne renvoie rien du tout...


"Gafish" a écrit dans le message de
news:%
question bête :) ton form est bien lié à une source de données, par
exemple

une table qui ne contient pas de données ?
Si oui, envoie moi ta base (si pas lourde) ou juste le form et sa
source



de
données par mail que je regarde.

"Sweety" <*enlevez_ceci* a écrit dans le message
de




news:
Oui j'ai mis un msgbox au lieu du DoCmd....
(évènement sur chargement)

"Gafish" a écrit dans le message de
news:
J'ai retesté avant de poster sur un 2000 itou et ca passait
bien.






Tu as essayé déja de mettre un msgbox dans le if Me.NewRecord
voir






si
tu
passes dans le if ?

"Sweety" <*enlevez_ceci* a écrit dans le
message





de
news:%
Bonjour
Ca ne marche pas chez moi (rien ne se passe dans tous les cas)
avec





Access
2000

"Gafish" a écrit dans le message
de






news:
Bonjour,

Tu peux mettre le code suivant dans l'évenement load de ton
formulaire





If Me.NewRecord Then
DoCmd.Close
DoCmd.OpenForm "TonAutreForm"
End If

ici TonAutreForm est un formulaire qui affichera le texte
que








tu
lui
auras
mis, pas exemple "PAs d'enregistrements".
Si tu ne veux pas fermer ton formulaire source, enleve la
ligne







DOCmd.Close

Arnaud

"Drouet Guillaume" a écrit dans le
message






de
news:147b01c4a20b$7d4413d0$
Bonjour comment faire pour renvoyer un formulaire lorsque
acces ne trouve pas d'enregistrement.
Par exemple qu'il affiche un formulaire type "pas
d'enregistrement trouve".
Merci de vos reponses


































1 2