quequ'un connaitrait il une méthode pour éviter d'avoir une erreur quand, dans une zone de texte reliée à une table, on saisit une apostrophe ?
J'ai essayé avec les double " mais ça me génère des erreurs ailleurs
voilà le code:
Dim bd As database
Dim nomtable As String, tableP As DAO.Recordset
Set bd = CurrentDb
If testChamps Then
Set tableP = bd.OpenRecordset("SELECT nom, prenom FROM T_personnel WHERE code = '" & readID & "'" )
nomtable = "T_observations_" + readID
bd.Execute ("INSERT INTO " & nomtable & " (nom, codeProjet, dateEmission, designation) VALUES ('" & tableP!nom & " " & tableP!prenom & "', '" & readCodeADetailler & "', '" & Date & "', '" & Me.TexteDesignation & "' ;" )
nomtable = "T_projets_" + readID
bd.Execute ("UPDATE " & nomtable & " SET modifié = -1 WHERE proCode = '" & readCodeADetailler & "' ;" )
tableP.Close
End If
bd.Close