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 ?