Discussion :

[smirold]

Bonjour à tous,

Je viens de débuter en Access et j'ai quelques petit soucis,
Voilà, j'ai un formulaire avec une zld qui modifie le critere d'affichage de ma requette d'1 seul champ.

voilà ce que cela donne en sql :

SELECT test.vlan, test.octet, test.ip, test.nom
FROM test
WHERE (((test.vlan)=[Formulaires]![Formulaire1]![Modifiable2]));

Ainsi lorsque je selectionne tel ou tel critere, il m'affiche bien à l'écran les enregistrements correpondant.

Mon problème c'est que j 'aimerais définir une variable "Tous" qui réunisse tous les criteres. Ou bien encore plus simple, lorsque "tous" est selectionné dans la zld, qu'il n'y est pas de critère défini, c'est à dire qu'il n'y est pas de "WHERE" défini dans le code ci dessus.

Voilà j'espère que j'ai été claire, si quelqu'un pouvait m'aider.

Merci d'avance....

[foste]

http://www.developpez.net/forums/vie...ighlight=foste

Carine

[Gandalf24]

Hug,
une maniere simple est que si rien n'est selectionné dans la liste

Code :

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

1
2
 
me.NomduCombo.listindex = -1

tu ne rajoutes pas la condition dans ta requete.
a+

[smirold]

Alors merci de m'avoir répondu aussi vite

Mais heu....... comme je disais je débute, alors j'avais déjà vu ce post carine mais je ne vois pas tres bien comment faire. Et mici à toi Gandalf mais je vois pas trop la subtilité de ce code...

Ensuite pour résoudre mon problème il faut que je définisse "tous" quelque part pour que lorsque celui-ci est sélectionné, la requette ne fasse pas appelle à la zone critère (WHERE (en SQL)). Tel que je l'avais défini dans mon précedent post.

WHERE (((test.vlan)=[Formulaires]![Formulaire1]![Modifiable2]));

Alors escusez moi pour ma question con mais là j'ai un peu de mal

Si vous pouviez m'expliquez en language pour NEUNEU

[foste]

De facon simple, tu ne peux pas ajouter "tous" a ta liste, donc le plus simple c'est que tous selectionne tous quand le champs est vide.

Donc sur ton bouton qui affiche la selection, tu tapes qq chose de ce genre

Code :

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

1
2
3
4
5
6
7
8
S = "" 
S=S & "SELECT test.vlan, test.octet, test.ip, test.nom"
S=S & " FROM test" 
If len(Me.Modifiable2) > 0 Then
    S=S & " WHERE ([test.vlan]=" & Me.Modifiable2)"
endif
S=S & ";" 
monsubreport.rowsource=S

Carine

[smirold]

re bonjour
merci pour ta reponse mais je bloque sur la derniere ligne, ca passe pas
alors je me suis douté qu'il fallait que je remplace par quelque chose mais là je vois pas :

Code :

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

monsubreport.rowsource=S

sinon est ce que ceci fonctionnerait :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Modifiable2_Click()
 
S = ""
S = S & "SELECT test.vlan, test.octet, test.ip, test.nom"
S = S & " FROM test"
If Len(Me.Modifiable2) > 1 Then
    S = S & "WHERE (((test.vlan)=[Formulaires]![Formulaire1]![Modifiable2]));"
End If
S = S & ";"
 
 
End Sub

alors bien sur je n'ai pas mis la derniere ligne je ne sais pas à quoi elle sert, mais dans l'état ca ne fonctionne pas.

Sinon j'essaye de m'y mettre assidument.......
si vous pouviez m'aider merci d'avance

[Tofalu]

La dernière ligne postée par foste sert à envoyer ta requête dans la propriété source de l'objet subreport. Tu adaptes avec la propriété du controle qui doit afficher le resultat de ta requête. Si c'est ton formulaire tu auras :

Code :

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

1
2
 
me.recordsource=s

Sinon, ton code est correct, manque juste ta dernière ligne.

[smirold]

Re à tous

voilà j'ai trouvé grace à vous voilà ce que donne le code :

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 Modifiable2_Click()
 
s = ""
s = s & "SELECT test.vlan, test.octet, test.ip, test.nom"
s = s & " FROM test"
If Len(Me.Modifiable2) > 1 Then
    s = s & " WHERE (test.vlan)= " & Modifiable2
End If
s = s & ";"
Requête2.Form.RecordSource = s
Requête2.LinkChildFields = ""
Requête2.Requery
End Sub