Gérer une requête paramétrée dans un formulaire quand celle-ci ne retourne aucun enregistrement

Bonjour à tous

Je me tourne vers vous, car mes recherches sur Internet n’ont pas été fructueuses. La solution est peut-être évidente, mais je n’ai pas réussi à mettre le doigt dessus… Donc un grand merci à ceux qui partageront leurs solutions.

J’ai donc, dans un formulaire de consultation Clients, une requête paramétrée intégrée filtrée. Dans une zone de texte, j’ai organisé une recherche simultanée sur le CodeClient et le NomClient. Il y a aussi 3 filtres (1 par un groupe d’options, et 2 en dur). J’ai aussi 2 boutons (suivant et précédent) pour la navigation et un compteur d’enregistrement (du type 1/12 … c’est un exemple). Le tout avec un peu de VBA pour rafraichir les données.

Tout fonctionne très bien au niveau de la navigation, du filtrage et de la recherche. Mais si, dans ma zone de recherche, je mets un texte qui ne peut-être trouvé par la requête (donc avec zéro enregistrement retourné), tout ce qui se trouve dans la zone détail disparait (étiquettes, zones de texte, rectangles, sous-formulaire, …). Il ne reste visible que les éléments de l’en-tête et du pied du formulaire. Je suppose que c’est parce que la propriété du formulaire "Type Recordset" est en "Feuille de réponse dynamique" ????

Ma question est donc : Si la requête ne retourne aucun enregistrement, existe-t-il une méthode pour conserver visible les contrôles (vides de toute information bien sûr) dans la partie détail du formulaire, et si la requête retourne plusieurs enregistrements de pouvoir toujours naviguer dans les enregistrements sélectionnés ?

Je vous mets pour information ma requête de base, qui fonctionne dans mon formulaire ... sauf quand aucun enregistrement n'est retourné :(

Code:

---

1 2 3 4

SELECT T_Clients.CodeClient, T_Clients.NomClient, T_Clients.Encours, T_Clients.CoordValide, T_Clients.ClientActif FROM T_Clients WHERE (((T_Clients.CodeClient) Like "*" & [Formulaires]![F_Coordonées_Clients]![RechercheClient] & "*") AND ((T_Clients.Encours)>0) AND ((T_Clients.CoordValide)>=[Formulaires]![F_Coordonées_Clients]![Gp_CoordValid]) AND ((T_Clients.ClientActif)=Yes)) OR (((T_Clients.NomClient) Like "*" & [Formulaires]![F_Coordonées_Clients]![RechercheClient] & "*") AND ((T_Clients.Encours)>0) AND ((T_Clients.CoordValide)>=[Formulaires]![F_Coordonées_Clients]![Gp_CoordValid]) AND ((T_Clients.ClientActif)=Yes));

---

Encore merci d’avance.

Bonjour,

Comme ça, sans avoir beaucoup réfléchi, je me dis que c'est plutôt au niveau de ton formulaire/sous-formulaire/contrôles que tu devrais faire des modifs... Voir s'il n'y a pas un paramètre qui peut laisser apparent ce qui disparait...

Belle journée en tout cas! :-)

Citation:

---

Envoyé par Dermochelys

Bonjour,

Comme ça, sans avoir beaucoup réfléchi, je me dis que c'est plutôt au niveau de ton formulaire/sous-formulaire/contrôles que tu devrais faire des modifs... Voir s'il n'y a pas un paramètre qui peut laisser apparent ce qui disparait...

Belle journée en tout cas! :-)

---

Bonjour Dermochelys

Merci pour ta piste.

Perso, je pense que cela doit se jouer au niveau du formulaire.
J'ai mis dans la partie Détail des rectangles pour faire des fonds colorés sous les zones de texte ... Eux aussi disparaissent... et ils n'ont aucune liaison avec les données... Donc pour moi, le fait de n'avoir aucun enregistrement en retour nettoie complètement la partie "Détail".

Dans la feuille de propriété du formulaire, dans l'onglet "Données", j'ai testé les différents "Type Recordset" sans succès :(

J'ai remis "Oui" dans "Ajout autorisé", et là tout est présent, rien ne disparait et les zones de texte sont vierges d'information... mais je veux que ce formulaire soit uniquement pour de la consultation, et je ne veux pas créer de nouvel enregistrement... Je pourrais bidouiller du VBA pour verrouiller les Zones de textes (Si Compte("*")=0), mais je préfèrerai faire autrement.

Auriez-vous une autre piste ?
Encore merci.

Bonsoir à tous

Finalement, après avoir autorisé les ajouts, j'ai couper-coller ma requête interne au formulaire dans une requête externe pour pouvoir utiliser Dcount, et j'ai affecté ce code à ma zone RechercheClient.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub RechercheClient_AfterUpdate() DoCmd.ShowAllRecords If DCount("*", "R_Coordonnees_Clients") = 0 Then MsgBox "''" & Me.RechercheClient.Value & "'' n'a pas été trouvé. Il est soit" & vbCrLf & vbCrLf & _ "- Inexistant" & vbCrLf & _ "- L'encours est <= 0" & vbCrLf & _ "- Le client n'est plus Actif", vbOKOnly + vbExclamation, "Erreur recheche client" Me.RechercheClient.Value = "" DoCmd.ShowAllRecords End If Me.NumEnreg = 1 End Sub

---

Ergonomiquement ce n'est pas ce qu'il y a de mieux, mais esthétiquement c'est acceptable.
Je clôture donc le sujet en remerciant ceux qui se sont penchés dessus.

Bonjour Maglau,

Je trouve ta solution tout à fait acceptable :-) Content que tu aies trouvé une solution.

Belle journée