Discussion :

[froutloops62]

Voila je voudrai rendre automatique l'affichage dans un champ selon des critéres. selon 3 : Type, Taille, Couleur.

En fait l'affichage marche trés bien pour les 2 critéres Type et taille avec ce code :

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
 
Private Sub cmbType_AfterUpdate()
Call SubAfficherObjectif
End Sub
 
Private Sub txtTaille_AfterUpdate()
Call SubAfficherObjectif
End Sub
 
Private Sub SubAfficherObjectif()
If IsNull(Me.cmbType) Or IsNull(Me.txtTaille) Then
     Me.Objectif_Demandé = Null
Else
     Me.Objectif_Demandé = DLookup("nbreHoraire", "CadHoraire", " Type = """ & Me.cmbType & """ AND Taille = " & Me.txtTaille)
End If
End Sub

Mais pour le critére Couleur ça fonctionne pas, il m'affiche le résultat avant de selectionner ce critére même si je met un evenement afterUpdate.

Et si je veux modifier la SubAfficherObjectif pour ajouter Couleur j'ai des erreurs;

Comment dois je faire ???

[froutloops62]

Déjà peut on ajouter un critére dans

Code :

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

Me.Objectif_Demandé = DLookup("nbreHoraire", "CadHoraire", " Type = """ & Me.cmbType & """ AND Taille = " & Me.txtTaille)

et comment.

ça sera un critére de type text (Couleur) son nom Couleur

[froutloops62]

précisions :

Objectif demandé c'est mon champ qui afficher le resultat

nbrehoraire c'est le champ de ma table Cadhoraire qui contient le resultat

Type critére à liste deroulante

txtTaille critére à zone texte

Couleur sera un critére à liste déroulante.

[froutloops62]

ce code marche avec 2 critères :

Code :

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

Me.Objectif_Demandé = DLookup("nbreHoraire", "CadHoraire", " Type = """ & Me.cmbType & """ AND Taille = " & Me.txtTaille)

je ne connais pas la syntaxe pour ajouter un 3eme critère.

J'ai essayé ça :

Code :

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

Me.Objectif_Demandé = DLookup("nbreHoraire", "CadHoraire", " Type = """ & Me.cmbType & """ AND Taille = " & Me.txtTaille & """ Couleur = " & Me.Couleur)[/

mais il me met l'erreur

Code :

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

1
2
 Erreur d'excution '3075'
Erreur de syntaxe dans la chaîne dans l'expression 'Type = "A3 Recto" AND Taille = 0" AND Couleur = Black' (car black par défaut)

Il me faudrait juste la bonne syntaxe pour un 3eme critére

[Muhad'hib]

Salut,

Il semble te maquer le AND :

Code :

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

1
2
3
4
5
 
Me.Objectif_Demandé = DLookup("nbreHoraire", "CadHoraire", " Type = """ & Me.cmbType & """ AND Taille = " & Me.txtTaille & """ AND Couleur = """ & Me.Couleur & """") 'si Me.Couleur est de type text
 
 
Me.Objectif_Demandé = DLookup("nbreHoraire", "CadHoraire", " Type = """ & Me.cmbType & """ AND Taille = " & Me.txtTaille & """ AND Couleur = " & Me.Couleur & "") 'si Me.Couleur est de type numerique

A+

[froutloops62]

il me met erreur d'execution 3075
Erreur de Syntaxe (Opérateur Absent) dans l'expression 'Type = "A3 Recto" AND Taille = 0" AND Couleur = "vert".

[Muhad'hib]

Oui désolé, j'ai repris ce que tu avais fais en ajoutant seulement le 3ème critère (sans vérivier la synthaxe des 2 premiers) :

Code :

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

1
2
3
4
 
Me.Objectif_Demandé = DLookup("nbreHoraire", "CadHoraire", " Type = """ & Me.cmbType & """ AND Taille = """ & Me.txtTaille & """ AND Couleur = """ & Me.Couleur & """") 'si taille est de type text
 
Me.Objectif_Demandé = DLookup("nbreHoraire", "CadHoraire", " Type = """ & Me.cmbType & """ AND Taille = " & Me.txtTaille & " AND Couleur = """ & Me.Couleur & """") 'si taille est de type numerique

A+

[froutloops62]

Super merci beaucoup ça marche maintenant.

Encore merci @+