Mise en forme conditionnelle vba et sql

Bonjour à tous,

Je cherche à mettre un champ de sous form en couleur rouge quand le résultat d'une requête sql, conditionnée par certains champs du sous form, est nul.

Je me suis inspiré du tuto de Christophe Warin ( sous réserve d'avoir tout compris...:roll:)

Voici mon code ( module et sur gotfocus):

Code:

---

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

Function Est_sans_AVS() As Boolean Dim a As Integer a = SQL 'On va chercher si il existe un enregistrement dans la table qui correspond à l'élève et l'année scolaire sélectionnés dans le sous form   SQL = "SELECT Table_affect_AVS.id_affect_AVS FROM Table_affect_AVS WHERE (((Table_affect_AVS.id_eleve)=" & id_eleve & ") AND ((Table_affect_AVS.id_annee_scolaire)=" & id_annee_scolaire & "));" Est_sans_AVS = (a = Null) ' on définit la fonction réalisée quant le résultat de la recherche est nul   End Function   Private Sub prenom_eleve_GotFocus() prenom_eleve.FormatConditions.Add acExpression, , "Est_sans_AVS(a)=true" 'Quand a(sql) est recherche infructueuse prenom.eleve.FormatConditions.Item(0).ForeColor = vbRed 'police du champ se met en rouge End Sub

---

Un grand merci d'avance à celui ou celle qui viendra me donner un petit coup de pouce...

PS: j'ai probablement commis des erreurs grossières, n'hésitez pas à me le dire... comme tout grand débutant j'ai besoin de vos lumières.;)

Salut,

Pourquoi ne pas définir les critères de ta mise en forme conditionnelle manuellement:

Tu sélectionnes les zones de texte à colorier, puis tu définis les critères pour colorier:

Menu Format puis Mise en forme conditionnelle...

Condition1

Expression...Est_sans_AVS([id_eleve],[id_annee_scolaire])=true
...

Avec la fonction modifiée: utilisant un recordset pour tester si la requête source est vide:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Function Est_sans_AVS(id_eleve,id_annee_scolaire) As Boolean Dim SQL As String Dim rst As DAO.RecordSet ' Le recordSet. 'On va chercher si il existe un enregistrement dans la table qui correspond à l'élève et l'année scolaire sélectionnés dans le sous form   SQL = "SELECT Table_affect_AVS.id_affect_AVS FROM Table_affect_AVS WHERE (((Table_affect_AVS.id_eleve)=" & id_eleve & ") AND ((Table_affect_AVS.id_annee_scolaire)=" & id_annee_scolaire & "));"   Set rst=currentdb.OpenRecordSet(SQL)   Est_sans_AVS = (rst.eof) ' on définit la fonction réalisée quant le résultat de la recherche est nul   rst.close set rst=nothing   End Function

---

A+

Denis

Bonjour Denis,

Merci pour ce coup de main... ceci dit la boite de dialogue de la MFC me dit que l'expression n'est pas correcte... je ne comprends pas pourquoi la focntion "Est_sans_AVS" n'est pas reconnue alors que le module est modifié en prenant en compte tes modifs ( copier/coller).

Sébastien

Re,

Il faut que ta fonction Est_sans_AVS soit déclarée dans un module indépendant.

De plus dans l'expression de la mfc,

il faut que les champs [id_eleve] et[id_annee_scolaire] (dans un formulaire on parle plutôt de zones de texte) soient présents sur ton formulaire.

A+

Bonjour Denis,

Merci pour ces précisions.
Concernant le module, il est indépendant me semble-t-il ( catégorie Divers), nommé Module_MFC_affect_avs.

Concernant les zones de texte du sous form:
-elles sont bien présentes dans le sous form ( invisibles ) et constituent les deux critères de la clause Where du sql contenu dans la fonction.

A+

Salut Seb,

Essaie avec un ; en les 2 paramètres:

Condition1

Expression...Est_sans_AVS([id_eleve];[id_annee_scolaire])=true

A+

Salut Denis,

";" ajouté, sur activation sous form message d'erreur: 2424, la ligne du sql est en jaune dans la fonction... au survol de la souris sur la ligne: infobulle SQL=""

A priori un problème sur la syntaxe sql ou un champ ?

Re,

Donc, le problème vient de là dans la fonction:

Code:

---

SQL = "SELECT Table_affect_AVS.id_affect_AVS FROM Table_affect_AVS WHERE (((Table_affect_AVS.id_eleve)=" & id_eleve & ") AND ((Table_affect_AVS.id_annee_scolaire)=" & id_annee_scolaire & "));"

---

ça doit venir des paramètres id_eleve et id_annee_scolaire:

Sont-ils tous les deux numériques ?

Teste le contenu de ces valeurs dans la fenêtre d'exécution:

Code:

---

1 2	? id_eleve ? id_annee_scolaire

---

A+

Oui, ils sont bien numériques, ceux sont les index ( num_auto) des tables Table_eleve et Table_annee_scolaire.

En revanche ils sont renseignés dans le sous form à partir de ZL sur du form principal qui filtrent une requête dénommée R_affect_AVS_info.
Du coup les zones de textes concernées sont vides à l'ouverture du form princ et le sous form se remplit sur MAJ des ZL de tri de la requête.

Pour le test en exécution VB sur "enter" : retour à la ligne sans message ...

Salut Seb,

Pour éviter les valeurs nulles utilise la fonction nz sur les 2 paramètres:

Condition1

Expression...Est_sans_AVS(nz([id_eleve];0);nz([id_annee_scolaire];0))=true


A+

Salut Denis,

Ah oui c'est vrai, il faut utiliser la fonction nz pour les retours de valeurs nulles ( absentes) . Merci pour ton précieux coup de mains, cela fonctionne très bien.:ccool:

Kénavo.

Bonjour,

Je cherche maintenant à "rafraichir" la MFC quand le résultat de la fonction basée sur le recordset n'est plus censé être null car un enregistrement a été effectué dans la table que le SQL du recordset parcourre.

J'ai pu observer qu' après fermeture et ouverture du sous form qui contient les contrôles soumis à la MFC, la fonction a été rappelée. J'ai essayé de faire un Requery sur current form de l'autre sous formulaire qui permet de garnir la table en données mais en vain...

J'ai cru comprendre qu'on ne peut garder un recordset ouvert quand on alimente la table qu'il interroge... excluant de fait la mise en oeuvre d'un balayage de la table par une boucle type do while.

Bref, je suis dans le bouillard... si l'un d'entre vous pouvait me donner une piste.

En vous remerciant,

PS: j'ai palié au pb temporairement avec un Me requery sur le sous form (current) contenant la MFC et du coup la MAJ se fait sur changement d'enregistrement, mais je préfèrerais une autre solution.