Discussion :

[wushu29]

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...)

Voici mon code ( module et sur gotfocus):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[User]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wushu29]

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

[User]

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+

[wushu29]

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+

[User]

Salut Seb,

Essaie avec un ; en les 2 paramètres:

Condition1

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

A+