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
Tout fonctionne si l'acteur s'appelle par exemple Jean Gabin
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
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 ?
Partager