Bonjour
J'ai un formulaire de recherche qui me permet d'ouvrir un autre formulaire
trié sur les critères de recherches. Quand il y a des données, tout
fonctionne.
Ce que je veux faire, c'est quand il n'y a pas de données, un message
s'affiche disant qu'il n'y a pas de données et qu'il me ferme le formulaire
trié et rouvre le form de recherche.
Le pb c'est qu'il m'ouvre quand même le formulaire sans donnée. Voila la
fonction:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Form_Open_Err
If IsNull([N° Commande]) Then
Beep
MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée",
vbInformation, "Avertissement"
DoCmd.Close , "frm Resultats Commandes", acSaveNo
'Si OpenForm est actif, cela plante Access
'DoCmd.OpenForm "frm Recherche Commandes", acNormal, "", "", , acNormal
DoCmd.Close , acForm, "frm Resultats Commandes"
End If
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
Jessy Sempere [MVP]
Bonjour
Déjà est-ce que ton message s'affiche ?
Si oui, le mieux serait de ne pas fermer le formulaire où tu mets tes critère mais de décider de le fermer au moment de l'ouverture du 2ème :
Private Sub Form_Open(Cancel As Integer) If IsNull([N° Commande]) Then MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée", _ vbInformation, "Avertissement" cancel = true Else Docmd.close "frm Recherche Commandes" End If End Sub
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "the viper" a écrit dans le message news:
Bonjour J'ai un formulaire de recherche qui me permet d'ouvrir un autre formulaire trié sur les critères de recherches. Quand il y a des données, tout fonctionne. Ce que je veux faire, c'est quand il n'y a pas de données, un message s'affiche disant qu'il n'y a pas de données et qu'il me ferme le formulaire
trié et rouvre le form de recherche.
Le pb c'est qu'il m'ouvre quand même le formulaire sans donnée. Voila la fonction:
Private Sub Form_Open(Cancel As Integer) On Error GoTo Form_Open_Err
If IsNull([N° Commande]) Then Beep MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée", vbInformation, "Avertissement" DoCmd.Close , "frm Resultats Commandes", acSaveNo
Si oui, le mieux serait de ne pas fermer le formulaire où tu mets tes
critère mais
de décider de le fermer au moment de l'ouverture du 2ème :
Private Sub Form_Open(Cancel As Integer)
If IsNull([N° Commande]) Then
MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée",
_
vbInformation, "Avertissement"
cancel = true
Else
Docmd.close "frm Recherche Commandes"
End If
End Sub
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"the viper" <theviper@discussions.microsoft.com> a écrit dans le message
news: 05D47890-6308-4E53-9DA8-5E856A4C5394@microsoft.com...
Bonjour
J'ai un formulaire de recherche qui me permet d'ouvrir un autre formulaire
trié sur les critères de recherches. Quand il y a des données, tout
fonctionne.
Ce que je veux faire, c'est quand il n'y a pas de données, un message
s'affiche disant qu'il n'y a pas de données et qu'il me ferme le
formulaire
trié et rouvre le form de recherche.
Le pb c'est qu'il m'ouvre quand même le formulaire sans donnée. Voila la
fonction:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Form_Open_Err
If IsNull([N° Commande]) Then
Beep
MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée",
vbInformation, "Avertissement"
DoCmd.Close , "frm Resultats Commandes", acSaveNo
Si oui, le mieux serait de ne pas fermer le formulaire où tu mets tes critère mais de décider de le fermer au moment de l'ouverture du 2ème :
Private Sub Form_Open(Cancel As Integer) If IsNull([N° Commande]) Then MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée", _ vbInformation, "Avertissement" cancel = true Else Docmd.close "frm Recherche Commandes" End If End Sub
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "the viper" a écrit dans le message news:
Bonjour J'ai un formulaire de recherche qui me permet d'ouvrir un autre formulaire trié sur les critères de recherches. Quand il y a des données, tout fonctionne. Ce que je veux faire, c'est quand il n'y a pas de données, un message s'affiche disant qu'il n'y a pas de données et qu'il me ferme le formulaire
trié et rouvre le form de recherche.
Le pb c'est qu'il m'ouvre quand même le formulaire sans donnée. Voila la fonction:
Private Sub Form_Open(Cancel As Integer) On Error GoTo Form_Open_Err
If IsNull([N° Commande]) Then Beep MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée", vbInformation, "Avertissement" DoCmd.Close , "frm Resultats Commandes", acSaveNo
Cela m'a aidé à avancer. Il me reste juste à supprimer le message "L'action OpenForm a été annulée" à faire disparaitre.
Bonjour
Déjà est-ce que ton message s'affiche ?
Si oui, le mieux serait de ne pas fermer le formulaire où tu mets tes critère mais de décider de le fermer au moment de l'ouverture du 2ème :
Private Sub Form_Open(Cancel As Integer) If IsNull([N° Commande]) Then MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée", _ vbInformation, "Avertissement" cancel = true Else Docmd.close "frm Recherche Commandes" End If End Sub
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "the viper" a écrit dans le message news:
Bonjour J'ai un formulaire de recherche qui me permet d'ouvrir un autre formulaire trié sur les critères de recherches. Quand il y a des données, tout fonctionne. Ce que je veux faire, c'est quand il n'y a pas de données, un message s'affiche disant qu'il n'y a pas de données et qu'il me ferme le formulaire
trié et rouvre le form de recherche.
Le pb c'est qu'il m'ouvre quand même le formulaire sans donnée. Voila la fonction:
Private Sub Form_Open(Cancel As Integer) On Error GoTo Form_Open_Err
If IsNull([N° Commande]) Then Beep MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée", vbInformation, "Avertissement" DoCmd.Close , "frm Resultats Commandes", acSaveNo
Cela m'a aidé à avancer. Il me reste juste à supprimer le message "L'action
OpenForm a été annulée" à faire disparaitre.
Bonjour
Déjà est-ce que ton message s'affiche ?
Si oui, le mieux serait de ne pas fermer le formulaire où tu mets tes
critère mais
de décider de le fermer au moment de l'ouverture du 2ème :
Private Sub Form_Open(Cancel As Integer)
If IsNull([N° Commande]) Then
MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée",
_
vbInformation, "Avertissement"
cancel = true
Else
Docmd.close "frm Recherche Commandes"
End If
End Sub
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"the viper" <theviper@discussions.microsoft.com> a écrit dans le message
news: 05D47890-6308-4E53-9DA8-5E856A4C5394@microsoft.com...
Bonjour
J'ai un formulaire de recherche qui me permet d'ouvrir un autre formulaire
trié sur les critères de recherches. Quand il y a des données, tout
fonctionne.
Ce que je veux faire, c'est quand il n'y a pas de données, un message
s'affiche disant qu'il n'y a pas de données et qu'il me ferme le
formulaire
trié et rouvre le form de recherche.
Le pb c'est qu'il m'ouvre quand même le formulaire sans donnée. Voila la
fonction:
Private Sub Form_Open(Cancel As Integer)
On Error GoTo Form_Open_Err
If IsNull([N° Commande]) Then
Beep
MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée",
vbInformation, "Avertissement"
DoCmd.Close , "frm Resultats Commandes", acSaveNo
Cela m'a aidé à avancer. Il me reste juste à supprimer le message "L'action OpenForm a été annulée" à faire disparaitre.
Bonjour
Déjà est-ce que ton message s'affiche ?
Si oui, le mieux serait de ne pas fermer le formulaire où tu mets tes critère mais de décider de le fermer au moment de l'ouverture du 2ème :
Private Sub Form_Open(Cancel As Integer) If IsNull([N° Commande]) Then MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée", _ vbInformation, "Avertissement" cancel = true Else Docmd.close "frm Recherche Commandes" End If End Sub
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "the viper" a écrit dans le message news:
Bonjour J'ai un formulaire de recherche qui me permet d'ouvrir un autre formulaire trié sur les critères de recherches. Quand il y a des données, tout fonctionne. Ce que je veux faire, c'est quand il n'y a pas de données, un message s'affiche disant qu'il n'y a pas de données et qu'il me ferme le formulaire
trié et rouvre le form de recherche.
Le pb c'est qu'il m'ouvre quand même le formulaire sans donnée. Voila la fonction:
Private Sub Form_Open(Cancel As Integer) On Error GoTo Form_Open_Err
If IsNull([N° Commande]) Then Beep MsgBox "Il n'y a pas de Pièce correspondant à la demande spécifiée", vbInformation, "Avertissement" DoCmd.Close , "frm Resultats Commandes", acSaveNo