Requete parametrée avec zone de liste

Bonjour Vince,

Voilà, je savais que c'était possible puisque j'ai fait la manoeuvre
sous VB6, alors il ne me manquait que quelques petites instructions.

Donc :

Une table T_Pays et une T_Demande
Une requête R_Pays

Selon mes méthodes, je créerais un requête sur la table T_Demande
de façon a avoir tous les enregistrements de la table.
Une requête sur la table T_Pays pour avoir tous les pays
Une requête dur la table T_Demande avec critere sur le pays

D'ou :

Table : T_Pays , T_Demande

Requête : R_Pays , R_Pays_Specifique

Maintenant, tu accroche une liste déroulante du formulaire
sur la requête R_Pays

Dans le formulaire, sur l'évènement AfterUpdate de la liste déroulante,
tu place le code :

//**************************************************
Private Sub Liste_Pays_AfterUpdate() 'Liste déroulante

Dim Chaine As String
Dim Critere As String
Dim var_Pays As String

On Error GoTo Liste_Pays_Err

var_Pays = Forms![Formulaire Pays].[Liste_Pays]
Chaine = "Select * from [T_Pays] where [Pays] = "
Critere = Chaine & """" & var_Pays & """"

If (ChangeRequeteDef("R_Pays_Specifique", Critere)) Then
Set Ensemble = CurrentDb.OpenRecordset("R_Pays_Specifique")
Ensemble.MoveLast
Ensemble.MoveFirst
ZoneDeTexte.Value = Ensemble.RecordCount
Ensemble.Close
End If

Liste_Pays_Exit:
Exit Sub

Liste_Pays_Err:
MsgBox Error$
Resume Liste_Pays_Exit

End Sub

-----------------------------------
'Ici la fonction qui modifie la requète.
'Il serait souhaitable de placer cette fonction
' dans un module de façon à ce qu'elle soit accessible
' de partout.

Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean

Dim Definition As Variant

If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
ChangeRequeteDef = False
Else
Set Definition = CurrentDb.QueryDefs(ChaineRequete)
Definition.SQL = ChaineSQL
Definition.Close
RefreshDatabaseWindow
ChangeRequeteDef = True
End If

End Function

Est-ce clair pour toi ?

Lupin

Salut,

Je ne sais si tu sauras adapter, mais voici un exemple tiré de ma
BD de ma vidéothèque. En fait je modifie la requête par
programmation suite à un chaix dans un liste déroulante.

Il te faut d'abord avoir une requète existante.
//**************************************************
Private Sub Liste_Cassette_AfterUpdate()

Dim Chaine As String
Dim Critere As String
Dim CassetteVidéo As String

On Error GoTo Liste_Cassette_Err

'Ici je capture la valeur de la liste déroulante.

CassetteVidéo = Forms![Formulaire Table Vidéo].[Liste Cassette]
'Ici je crée une nouvelle requète SQL
Chaine = "Select * from [Table Vidéo] where [Cassette] = "
'Ici j'inclus le critère dans la requète
Critere = Chaine & """" & CassetteVidéo & """"

'Ici, j'appelle une fonction qui va modifier la requète originale.
If (ChangeRequeteDef("Requête Liste Spécifique Cassette", Critere)) Then
'Ici je fais ouvrir le formulaire qui prend sa source de la requète.
DoCmd.OpenForm "Formulaire Liste Spécifique Cassette", acNormal, "", "[Cassette]", , acNormal
End If

Liste_Cassette_Exit:
Exit Sub

Liste_Cassette_Err:
MsgBox Error$
Resume Liste_Cassette_Exit

End Sub

-----------------------------------
'Ici la fonction qui modifie la requète.

Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean

Dim Definition As Variant

If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
ChangeRequeteDef = False
Else
Set Definition = CurrentDb.QueryDefs(ChaineRequete)
Definition.SQL = ChaineSQL
Definition.Close
RefreshDatabaseWindow
ChangeRequeteDef = True
End If

End Function

En espérant que tu y trouve ton bonheur !

Lupin

Je te remercie beaucoup , je vais essayer de comprendre et d'adapter tout ca ce matin

Merci encore
Cordialement
vince

rebonjour,

es ce que tu pourrai me donner plus d'indication car j'y arrive pa
Disons que j'ai un formulaire (F_Pays), avec une table T_pays et a l'interieur Pays et codepays
Dans mon formulaire j'ai ma liste deroulante (Liste_Pays) et la zon text (Resultat)

Comment je m'en sors? Je remplace :
-Formulaire Table Vidéo = Nom du formulaire
-Liste Cassette =? Liste_Pays ?? ou nom de la zone text
-Cassette= Pays ?
-Table Vidéo= T_pays

merci d'avance
Vince

Salut Vince,

Bon si je comprends bien, ton formulaire est accroché sur une
table. Personnellement je te recommande de toujours accrocher
un formulaire sur une requête et la requête sur la table.

Ceci dit, tu crée une requête qui va sélectionner un enregistrement
en placant un critère coresspondant au champs de la liste déroulante.

Tu ouvre la requète et tu passes en mode SQL, tu auras donc
ainsi une chaine SQL.

Ça devrait donner quelque chose comme :

SELECT *
FROM [T_Pays]
WHERE ((([T_Pays].Pays)="CANADA"));

Maintenant, il faut reconstruire le chaine SQL en incorporant
la variable qui provient de la liste déroulante.

Var_Pays = Forms![F_Pays].[Liste_Pays]
Chaine = "Select * from [T_Pays] where [Pays] = "
Critere = Chaine & """" & Var_Pays & """"

d'où : Critere = "Select * from [T_Pays] where [Pays] = " & """" & Var_Pays & """"

Maintenant, que faire avec le résultat ? A quoi sert cette requête?

If (ChangeRequeteDef("Requete_Liste_Pays", Critere)) Then

???

End If

Bon, y comprend tu quelque choses ???

Lupin

bonjour, arsen lupin

je te remercie d'avoir répondu à mon problème.

ALors j'ai essayer la fonction " inStr(x;text, car_rech; compare) sur ma requête sans résultat.
mais qu'a cela ne tienne, je vais essayer de le faire en VBA aprés avoir prit connaissance du bouquin.
Si je n'y parviens pas, je me permettrai de reprendre contact avec toi.

Encore merci
Best78

Yes!

Merci, de ton aide.
j'y suis arrivé, dans" ACCESS" difficile, mais c'est fait.
En réalité, le terme COMPARE est à mettre dans la ligne, critères de la requête et non dans l'expression en elle même.

ouff, j'ai eu du mal.
merci, si j'ai d'autres problèmes, je viendrait te revoir.
+ +
°
~

Cordialement, best78
PS: je vais essayer de me mettre au VBA. Comme tu es de la partie, je viendrai te voir sur le forum. Bein entendu si cela ne t'ennui pas.

bjr,
g commencer aujourd'hui en vb et je ne c pas a quoi sert la public function
la réponse fonction publique ne m'intéresse pas bien entendu!
je voudrais une veritabl explication!
merci d'avance