Ne pas afficher un formulaire si requete null

Tibo69 -
Tibog69 Messages postés 18 Statut Membre - 20 mai 2008 à 16:39

Bonjour,

J'ai un formulaire qui fait appel à une requête avec critères. Quand le critère est valide, tout fonctionne.
Cependant quand le critère n'est pas reconnu, le formulaire m'affiche une page vierge et je n'ai donc plus accès aux boutons de mon formulaire. Je suis obligé de passer en mode création pour pouvoir fermer mon formulaire.

Comment faire pour ne pas afficher ce fameux formulaire vide ? Et plutôt afficher un avertissement "critère non reconnu".

D'avance merci.

Afficher la suite

A voir également:

Stdocname
Whatsapp formulaire opposition - Guide
Formulaire de réclamation facebook compte désactivé - Guide
Afficher appdata - Guide
Formulaire de reclamation instagram - Guide
Afficher taille dossier windows - Guide

3 réponses

Réponse 1 / 3

kij_82 Messages postés 4260 Statut Contributeur 857

Bonjour,

Je ne sais pas comment tu as construit exactement ta page, mais si ta requête ne retourne aucun résultat, il faut que tu affiche le message d'erreur / d'avertissement au lieu d'afficher ton formulaire.
C'est tout, tu as déjà la solution, il ne te reste qu'à l'appliquer.

Pour cela, contrôle la valeur de retour de l'exécution de ta requête SQL.
Au besoin tu peux poster ton code (entre balise de formatage s'il te plait) pour que l'on voit ce que tu as fais.

Tibo69

Comment l'appliquer? je ne connais pas du tout le SQL, j'effectue tout en mode création.

Réponse 2 / 3

kij_82 Messages postés 4260 Statut Contributeur 857

Je me suis peut-être mal expliqué.
Poste ton code ici pour que l'on voit ce que tu as fais.

Tibo69

Option Compare Database
Option Explicit

Private Sub Visualise_tous_les_partenaires_Click()
On Error GoTo Err_Visualise_tous_les_partenaires_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F saisie et visualisation des partenaires"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Visualise_tous_les_partenaires_Clic:
    Exit Sub

Err_Visualise_tous_les_partenaires_Click:
    MsgBox Err.Description
    Resume Exit_Visualise_tous_les_partenaires_Clic
    
End Sub
Private Sub Visualise_un_partenaire_Click()
On Error GoTo Err_Visualise_un_partenaire_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F les partenaire et leurs contact après interrogation"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Visualise_un_partenaire_Click:
    Exit Sub

Err_Visualise_un_partenaire_Click:
    MsgBox Err.Description
    Resume Exit_Visualise_un_partenaire_Click
    
End Sub
Private Sub Impression_de_tous_les_partenaires_Click()
On Error GoTo Err_Impression_de_tous_les_partenaires_Click

    Dim stDocName As String

    stDocName = "E partenaires avec contact"
    DoCmd.OpenReport stDocName, acNormal

Exit_Impression_de_tous_les_partenaires_:
    Exit Sub

Err_Impression_de_tous_les_partenaires_Click:
    MsgBox Err.Description
    Resume Exit_Impression_de_tous_les_partenaires_
    
End Sub
Private Sub chercher_un_nom_Click()
On Error GoTo Err_chercher_un_nom_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "chercher nom"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_chercher_un_nom_Click:
    Exit Sub

Err_chercher_un_nom_Click:
    MsgBox Err.Description
    Resume Exit_chercher_un_nom_Click
    
End Sub
Private Sub Commande17_Click()
On Error GoTo Err_Commande17_Click

    Dim stDocName As String

    stDocName = "E numéros téléphone TOUS Partenaires"
    DoCmd.OpenReport stDocName, acPreview

Exit_Commande17_Click:
    Exit Sub

Err_Commande17_Click:
    MsgBox Err.Description
    Resume Exit_Commande17_Click
    
End Sub
Private Sub Commande18_Click()
On Error GoTo Err_Commande18_Click

    Dim stDocName As String

    stDocName = "E numéro téléphone TOUS fournisseurs"
    DoCmd.OpenReport stDocName, acPreview

Exit_Commande18_Click:
    Exit Sub

Err_Commande18_Click:
    MsgBox Err.Description
    Resume Exit_Commande18_Click
    
End Sub
Private Sub Commande19_Click()
On Error GoTo Err_Commande19_Click


    DoCmd.Quit

Exit_Commande19_Click:
    Exit Sub

Err_Commande19_Click:
    MsgBox Err.Description
    Resume Exit_Commande19_Click
    
End Sub
Private Sub Commande21_Click()
On Error GoTo Err_Commande21_Click

    Dim stDocName As String

    stDocName = "R Interrogation du Nom du Contact"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande21_Click:
    Exit Sub

Err_Commande21_Click:
    MsgBox Err.Description
    Resume Exit_Commande21_Click
    
End Sub
Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F visualisation des partenaires"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande22_Click:
    Exit Sub

Err_Commande22_Click:
    MsgBox Err.Description
    Resume Exit_Commande22_Click
    
End Sub
Private Sub Commande23_Click()
On Error GoTo Err_Commande23_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F visualisation des partenaires"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande23_Click:
    Exit Sub

Err_Commande23_Click:
    MsgBox Err.Description
    Resume Exit_Commande23_Click
    
End Sub
Private Sub Commande24_Click()
On Error GoTo Err_Commande24_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F nouveau partenaire"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande24_Click:
    Exit Sub

Err_Commande24_Click:
    MsgBox Err.Description
    Resume Exit_Commande24_Click
    
End Sub
Private Sub Commande26_Click()
On Error GoTo Err_Commande26_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "partenaires"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande26_Click:
    Exit Sub

Err_Commande26_Click:
    MsgBox Err.Description
    Resume Exit_Commande26_Click
    
End Sub
Private Sub Commande29_Click()
On Error GoTo Err_Commande29_Click

    Dim stDocName As String

    stDocName = "R Interrogation de la référence de l'affaire"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande29_Click:
    Exit Sub

Err_Commande29_Click:
    MsgBox Err.Description
    Resume Exit_Commande29_Click
    
End Sub
Private Sub Commande31_Click()
On Error GoTo Err_Commande31_Click

    Dim stDocName As String

    stDocName = "R Interrogation de la référence de l'affaire"
    DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Commande31_Click:
    Exit Sub

Err_Commande31_Click:
    MsgBox Err.Description
    Resume Exit_Commande31_Click
    
End Sub
Private Sub Commande32_Click()
On Error GoTo Err_Commande32_Click


    DoCmd.Close

Exit_Commande32_Click:
    Exit Sub

Err_Commande32_Click:
    MsgBox Err.Description
    Resume Exit_Commande32_Click
    
End Sub
Private Sub Commande41_Click()
On Error GoTo Err_Commande41_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F les partenaire et leurs contact après interrogation"
    
    stLinkCriteria = "[Réf partenaire]=" & Me![Réf client]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande41_Click:
    Exit Sub

Err_Commande41_Click:
    MsgBox Err.Description
    Resume Exit_Commande41_Click
    
End Sub
Private Sub Commande42_Click()
On Error GoTo Err_Commande42_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F Affaire avec les partenaires"
    
    stLinkCriteria = "[Réf affaire]=" & "'" & Me![Réf affaire] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande42_Click:
    Exit Sub

Err_Commande42_Click:
    MsgBox Err.Description
    Resume Exit_Commande42_Click
    
End Sub
Private Sub Commande43_Click()
On Error GoTo Err_Commande43_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F Affaire avec les partenaires"
    
    stLinkCriteria = "[Réf affaire]=" & "'" & Me![Réf affaire] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande43_Click:
    Exit Sub

Err_Commande43_Click:
    MsgBox Err.Description
    Resume Exit_Commande43_Click
    
End Sub
Private Sub Commande44_Click()
On Error GoTo Err_Commande44_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "F Les affaires"
    
    stLinkCriteria = "[Réf affaire]=" & "'" & Me![Réf affaire] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande44_Click:
    Exit Sub

Err_Commande44_Click:
    MsgBox Err.Description
    Resume Exit_Commande44_Click
    
End Sub

Tibog69 Messages postés 18 Statut Membre

voila mon code SQL je crois:

SELECT [T Affaire avec les partenaires].[Réf affaire], [T Affaire avec les partenaires].[Réf client], [T partenaires].NOM, [T partenaires].Adresse, [T partenaires].CP, [T partenaires].Ville, [T partenaires].Pays, [T partenaires].Télephone, [T Affaire avec les partenaires].Objet, Right([Réf affaire],4) AS Expr1
FROM [T partenaires] LEFT JOIN [T Affaire avec les partenaires] ON [T partenaires].[Réf partenaire] = [T Affaire avec les partenaires].[Réf client]
WHERE (((Right([Réf affaire],4))=[Réf affaire (uniquement les chiffres)]))
ORDER BY [T Affaire avec les partenaires].[Réf affaire];

Réponse 3 / 3

kij_82 Messages postés 4260 Statut Contributeur 857

Arf, c'est quoi ce langage :s du VB c'est ça ? Je ne connais pas je ne vais pas pouvoir continuer à t'aider désolé.
Si un spécialiste de ce langage passe par là, de l'aide est la bienvenu.

Tibo69

oui c'est du VB
je te remercie d'avoir essayé.

Discussions similaires

probleme d'affichage des images sous word

Afficher toutes les lignes masquées excel

EXCEL ne pas afficher #VALEUR

Contact LEBONCOIN

contacter le bon coin

Ne pas afficher un formulaire si requete null

3 réponses

Votre réponse

Discussions similaires

Newsletters