Discussion :

[jeje22]

Bonjour,

par défaut, j'ai mis un intitulé en non visible.
Je souhaite que celui-ci soit visible si ma requête vérifie une condition
J'ai essayé le code suivant mais access met "IF" et "Then" en rouge. De plus, ma requête est-elle correcte ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Info()
Dim sql18 As String
 
If
sql18 = "SELECT Compatibilité.ID_traitement, Compatibilité.ID_Compatibilité"
sql18 = sql18 & " FROM Compatibilité"
sql18 = sql18 & " WHERE ((Compatibilité.ID_Compatibilité) = 8) AND Compatibilité.ID_traitement = " & Me.Hyp_Trait_2
sql18 = sql18 & ";"
Then
 
Me.Texte_Info.Visible = True
End If

Merci pour votre aide.

J.

[lil404]

Je ne suis pas très sûre de ce que je dis, mais je crois qu'il faut d'abord faire un RecordSet pour effectuer la requête, puis faire un If sur le résultat du RecordSet ?

En tout cas, je crois bien que la syntaxe de ton If est incorrecte. Là, tu lui demande si "sql18" est égale à toutes ces expressions.

[ilank]

Bonjour,
essaie ceci

Code :

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

1
2
3
Private Sub Info()
Me.Texte_Info.Visible = Nz(DCount("*","Compatibilité","ID_Compatibilité=8 AND ID_Traitement=" &Me.Hyp_Trait_2),0)
End sub

[jeje22]

j'ai le mesage suivant :

Erreur de compilation
menbre de méthode ou de données introuvables

Petite précision,
je souhaite que le texte de mon 'intitulé' s'affiche uniquement si la requête retourne un résultat. Par conséquent, quand la requête ne retourne pas de résultats, l'intitulé reste invisible.

J.

[ilank]

Oui, jeje22
L'idée est que si ta requête renvoie un résultat c'est donc qu'il y a au moins un enregistrement qui correspond aux critères, donc en renvoyant le nombre d'enregistrement dans la propriété Visible du contrôle Text_Info, tu obtiens
0 => False le texte_info est non-visible
>0 => True le texte_info est visible

Code :

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

1
2
3
Private Sub Info()
Me.Texte_Info.Visible = DCount("*","Compatibilité","ID_Compatibilité=8 AND ID_Traitement=" & Me.Hyp_Trait_2)
End sub

Maintenant, je ne sais pas à partir de quelle version les méthodes DCount et Nz sont présentes sous Access. A part cela, les autres informations sont celles que tu as donnée.

[jeje22]

Merci ca fonctionne très bien.