Ouverture requete en VBa

Bonjour
J'ai créé ce code pour pouvoir afficher des photos selon un critère donné par une liste déroulante
J'obtiens une erreur 13 incompatibilité de type sur la 7ème ligne
Set orst = CurrentDb.QueryDefs("NationActeur")
NationActeur est le nom de ma requete
Photo est le champ de la requete ou se trouve le nom de fichier
voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub Nationalité_AfterUpdate() Dim fic As String Dim oFSO As Scripting.FileSystemObject Set oFSO = New Scripting.FileSystemObject Dim oDb As DAO.QueryDef Dim orst As DAO.Recordset Set orst = CurrentDb.QueryDefs("NationActeur") With orst Do Until .EOF fic = orst("Photo") oFSO.CopyFile "C:\PhotoActeur\" & fic, "C:\NatioActeur\" & fic .MoveNext Loop End With orst.Close EDossier = "C:\NatioActeur" RepaintPhotos End Sub

---

Je ne vois pourtant pas d'erreur
Si quelqu'un peut me guider ....
Merci

salut,
peux-tu nous donner le contenu SQL de la requête en question, il est possible que l'incompatibilité de type soit à ce niveau là ;)

Salut
Merci de ta réponse
Voici le contenu SQL de la requête NationActeur

Code:

---

1 2 3

SELECT Acteurs.Photo, Acteurs.Nationalité, Acteurs.PrésencePhoto FROM Acteurs WHERE (((Acteurs.Nationalité)=Formulaires!PhotoActeurs!Nationalité) And ((Acteurs.PrésencePhoto)=-1));

---

Cette requête attaque la table Acteurs
Les champs photo et nationalité sont du texte
Le champ Présence Photo est une case à cocher (oui/non)

Au niveau du form PhotoActeurs, Nationalité est le nom de ma liste déroulante

Ca serait pas plutôt :

Code:

---

oRst = CurrentDB.OpenRecordset("...")

---

ou

Code:

---

oDB = CurrentDB.QueryDefs("...")

---

Bonsoir
Sur les conseils de Kloun j'ai modifié mon code que voici

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub Nationalité_AfterUpdate() NationalitéTxt.value = Nationalité.Column(0) Dim fic As String Dim oFSO As Scripting.FileSystemObject Set oFSO = New Scripting.FileSystemObject Dim oDb As DAO.QueryDef Dim orst As DAO.Recordset Set oDb = CurrentDb.QueryDefs("NationActeur") Set orst = CurrentDb.OpenRecordset("NationActeur") With orst Do Until .EOF fic = orst("Photo") oFSO.CopyFile "C:\PhotoActeur\" & fic, "C:\NatioActeur\" & fic .MoveNext Loop End With orst.Close EDossier = "C:\NatioActeur" RepaintPhotos End Sub

---

Maintenant j'ai l'erreur trop peu de paramètres , 1 attendu
J'en conclu que ça vient de la requête NationActeur dont voila le code

Code:

---

1 2	SELECT Acteurs.Photo, Acteurs.AbscencePhoto, Acteurs.Nationalité FROM Acteurs WHERE (((Acteurs.AbscencePhoto)=No) AND ((Acteurs.Nationalité)=[Formulaires]![Photos acteurs]![NationalitéTxt]));

---

Je me suis apperçu qu'en enlevant tout ce qui se trouve derrière Acteurs.Nationalité et en remplaçant par "Française" par exemple ça fonctionne

Donc c'est la récupération de la valeur de NationalitéTxt qui ne marche pas
Mais je ne vois pas pourquoi .
Alors j'ai encore besoin de votre aide !!
Merci d'avance

Citation:

---

Envoyé par Jean-Luc80

((Acteurs.Nationalité)=[Formulaires]![Photos acteurs]![NationalitéTxt]));

---

Bonjour.
Je comprends que le choix d'une valeur dans la liste déroulante Nationalité conditionne la clause where de ta requête NationActeur.
Si tel est le cas, on devrait retrouver l'appel de cette valeur dans ta requête comme par exemple :

Code:

---

"(Acteurs.Nationalité) = " & Me.ListeDéroulante.Column(n) & ";"

---

Il pourrait être judicieux de renommer ton contrôle pour qu'il ne porte pas le même nom que le champ de ta table, et de manière générale pour t'y retrouver dans tes contrôles ( tuto incontournable de JP Ambrosino : http://argyronet.developpez.com/office/vba/convention/)

Concrètement, si je reprends ton dernier code modifié pour adaptation :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub Nationalité_AfterUpdate()   Dim fic, StrSQL As String Dim oFSO As Scripting.FileSystemObject Set oFSO = New Scripting.FileSystemObject Dim orst As DAO.Recordset   StrSQL = "SELECT Photo, AbsencePhoto, Nationalité FROM Acteurs " & _ "WHERE AbscencePhoto = No AND Nationalité = " & Me.Nationalité.Column(0) & ";"   Set orst = CurrentDb.OpenRecordset("StrSQL") With orst Do Until .EOF fic = orst("Photo") oFSO.CopyFile "C:\PhotoActeur\" & fic, "C:\NatioActeur\" & fic .MoveNext Loop End With   set Orst = Nothing EDossier = "C:\NatioActeur" RepaintPhotos   End Sub

---

Cordialement.

NAtionalité étant une chaine :

Code:

---

1 2 3 4

StrSQL = "SELECT Photo " & _ "FROM Acteurs " & _ "WHERE AbscencePhoto = No " & _ "AND Nationalité = '" & nz(Me.Nationalité.Column(0), "") & "'"

---

Bonjour
Merci de bien vouloir m'aider
J'ai testé le code précédent et maintenant j'ai une erreur comme quoi Microsoft Jet ne trouve pas la requête StrSQL
Ce qui me parait normal puisque cette requête n'existe pas dans ma base

J'ai donc essayé de refaire ma requête NationActeur en copiant le code SQL de Kloun et la j'ai une erreur comme quoi "nz(me.Nationalité.column(0))" n'est pas une expression valide ... etc ...

Je tourne en rond !!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Private Sub Nationalité_AfterUpdate()   Dim fic as string dim StrSQL As String Dim oFSO As Scripting.FileSystemObject Dim orst As DAO.Recordset   Set oFSO = New Scripting.FileSystemObject StrSQL = "SELECT Photo " & _ "FROM Acteurs " & _ "WHERE AbscencePhoto = No " & _ "AND Nationalité = '" & nz(Me.Nationalité.Column(0), "") & "'"   Set orst = CurrentDb.OpenRecordset(StrSQL) while not orst.eof fic = orst.fields("Photo").value oFSO.CopyFile "C:\PhotoActeur\" & fic, "C:\NatioActeur\" & fic orst.MoveNext wend set Orst = Nothing EDossier = "C:\NatioActeur" RepaintPhotos   End Sub

---

Va falloir apprendre le debug pas à pas.

Citation:

---

Envoyé par Jean-Luc80

J'ai testé le code précédent et maintenant j'ai une erreur comme quoi Microsoft Jet ne trouve pas la requête StrSQL
Ce qui me parait normal puisque cette requête n'existe pas dans ma base

---

Bonjour Jean-Luc80,
l'idée, modestement suggérée par le code fourni, est de t'affranchir d'une requête existante, en l'intégrant directement au code par le biais de la chaîne strSQL : au lieu d'appeler un nom de requête par l'OpenRecordSet, tu lui donnes directement la syntaxe de la requête elle-même; de fait, peu importe qu'elle existe.
Bon, les deux méthodes fonctionnent, à toi de voir celle qui te convient le mieux.

PS Merci à Kloun, va falloir que j'apprenne la relecture !

Bonsoir,

On peut fournir les paramètres de la requête avec la collection Parameters de l'objet QueryDef

Code:

---

1 2 3 4 5 6

Dim oQd As DAO.QueryDef Dim orst As DAO.Recordset Set oQd = CurrentDb.QueryDefs("NationActeur") ' Paramètre n°1 (index 0) oQd.Parameters(0) = Forms!PhotoActeurs!Nationalité Set orst = oQd.OpenRecordset()

---

A+

Bonsoir
J'ai finalement opté pour la solution de Kloun ( mais je garde en réserve les autres solutions au cas où !)
Ca fonctionne parfaitement
Donc merci à ceux qui ont bien voulu se pencher sur mon problème
En cas de besoin je sais qu'on peut compter sur ce forum ....
A bientôt