Discussion :

[Jean-Luc80]

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 :

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
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

[Jean-Philippe André]

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à

[Jean-Luc80]

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

Code :

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

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

[Kloun]

Ca serait pas plutôt :

Code :

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

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

ou

Code :

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

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

[Jean-Luc80]

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

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
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 :

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

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

[GillesDeVuif]

((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 :

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

"(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 :

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
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.

[Kloun]

NAtionalité étant une chaine :

Code :

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

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