Discussion :

[Jean-Luc80]

Bonjour
J'ai cette routine pour afficher des informations biographiques d'acteurs quand la souris passe sur leur photo affichée dans un form access

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
Private Sub ExifData(pFile As String)
Dim orst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
    Dim Nom As String
    ' Ouvre le fichier image
    clex.OpenFile pFile
    ' Enlève "C:\photoacteur\" au nom de fichier
             Nom = Mid(pFile, 16)
    ' Enlève ".jpg" du nom de fichier pour faire correspondre le nom de fichier avec celui de l'acteur présent dans la table Acteurs
             EDescription = Left(Nom, InStr(Nom, ".") - 1)
             Set orst = oDb.OpenRecordset("select code,mort,naissance from acteurs where code='" & Me.EDescription & "'", dbOpenDynaset)
             Naissance.Value = orst.Fields("Naissance").Value & " "
             Mort.Value = "-  " & orst.Fields("Mort").Value
             'Ferme le fichier
    clex.CloseFile
orst.Close
oDb.Close
Set orst = Nothing
Set oDb = Nothing
End Sub

Tout fonctionne si l'acteur s'appelle par exemple Jean Gabin
Mais si le nom est Jean d'Ys ça ne marche plus
J'ai essayé de retirer le carctère ' de ces noms et ça remarche
Comment puis-je formuler ma requête pour pouvoir laisser ce carctère dans mes noms ?

[ClaudeLELOUP]

Bonjour,

Code :

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

Set orst = oDb.OpenRecordset("select code,mort,naissance from acteurs where code='" & Me.EDescription & "'", dbOpenDynaset)

est en cause. Ecris comme ceci :

Code :

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

Set orst = oDb.OpenRecordset("select code,mort,naissance from acteurs where code=""" & Me.EDescription & """", dbOpenDynaset

Tu auras alors des problèmes si le nom de l'acteur contient un double-quote. C'est plus rare !

Edit. Quoique : Jean-Alexis Gabin Moncorgé dit "Jean GABIN"...

Idem pour ton champ EDescription et tous les cas où le texte est susceptible de contenir l'apostrophe.

[pier.antoine]

Bonjour

On peut employer aussi "chr(34)" :

Code :

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

1
2
3
 
 
Set orst = oDb.OpenRecordset("select code,mort,naissance from acteurs where code=" & chr(34) & Me.EDescription & chr(34), dbOpenDynaset

Edit :
NB : s'il faut des quotes - doubles quotes, ou chr(34) c'est que Me.EDescription est sans doute une chaîne.

Dans ce cas, peut-être que l'utilisation de l'opérateur "like " (au lieu de égal (=)) est plus appropriée.

Code :

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

1
2
3
 
 
Set orst = oDb.OpenRecordset("select code,mort,naissance from acteurs where code like " & chr(34) & Me.EDescription & chr(34), dbOpenDynaset

Pierre

[Jean-Luc80]

Merci de vos réponses rapides
Au final j'ai opté pour la deuxième méthode de Pierre c'est à dire:

Code :

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

Set orst = oDb.OpenRecordset("select code,mort,naissance from acteurs where code like " & chr(34) & Me.EDescription & chr(34), dbOpenDynaset)