ACCESS et APOSTROPHES
Résolu
dabigben
Messages postés
1913
Date d'inscription
Statut
Membre
Dernière intervention
-
dabigben Messages postés 1913 Date d'inscription Statut Membre Dernière intervention -
dabigben Messages postés 1913 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un petit souci sous access :
dans un formulaire de recherche, j'ai mis un menu déroulant lié à une requête, l'utilisateur séléctionne et clik sur "rechercher". Le problème c'est que quand l'utilisateur sélectionne un nom qui possede un apostrophe, quand il clik sur "rechercher" access envoie un message du genre "erreur de syntaxe...". Sur un forum j'ai trouver un message d'un gars qui assure avoir trouver la solution a ce probleme d'apostrophe, grace a ce code :
Public Function Convert_String(Chaine As Variant) As String
'Fonction de remplacement de ' en '' dans une chaine de type String ...
Dim ChaineTmp As String
Dim nIndex As Integer
Dim c As String
For nIndex = 0 To Len(Chaine)
'Récupère chaque caractère pour analyse
c = Mid(Chaine, nIndex, 1)
If c = "'" Then
'Ajoute deux fois l'apostrophe
ChaineTmp = ChaineTmp & c & c
Else
'Ne change rien
ChaineTmp = ChaineTmp & c
End If
Next
'Envoie le résultat
Convert_String = ChaineTmp
End Function
Mais je ne sais pas du tout ou le mettre, ce bout de code. J'ai essayé de le mettre tout en haut du code du formulaire mais ça marche po!! Vous pouvez m'aider? vous pouvez m'aider! Alors aidez moi!!!!
merci!
j'ai un petit souci sous access :
dans un formulaire de recherche, j'ai mis un menu déroulant lié à une requête, l'utilisateur séléctionne et clik sur "rechercher". Le problème c'est que quand l'utilisateur sélectionne un nom qui possede un apostrophe, quand il clik sur "rechercher" access envoie un message du genre "erreur de syntaxe...". Sur un forum j'ai trouver un message d'un gars qui assure avoir trouver la solution a ce probleme d'apostrophe, grace a ce code :
Public Function Convert_String(Chaine As Variant) As String
'Fonction de remplacement de ' en '' dans une chaine de type String ...
Dim ChaineTmp As String
Dim nIndex As Integer
Dim c As String
For nIndex = 0 To Len(Chaine)
'Récupère chaque caractère pour analyse
c = Mid(Chaine, nIndex, 1)
If c = "'" Then
'Ajoute deux fois l'apostrophe
ChaineTmp = ChaineTmp & c & c
Else
'Ne change rien
ChaineTmp = ChaineTmp & c
End If
Next
'Envoie le résultat
Convert_String = ChaineTmp
End Function
Mais je ne sais pas du tout ou le mettre, ce bout de code. J'ai essayé de le mettre tout en haut du code du formulaire mais ça marche po!! Vous pouvez m'aider? vous pouvez m'aider! Alors aidez moi!!!!
merci!
A voir également:
- ACCESS et APOSTROPHES
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit - Forum Access
- Exemple base de données Access de gestion ✓ - Forum Logiciels
- Quick acces ✓ - Forum Windows
1 réponse
c'est bon!!
un petit bout de code a suffit :
Private Sub rech_struct2_Click()
On Error GoTo Err_rech_struct2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_recherche2"
[Liste53].Value = Replace([Liste53], "'", "''") (<-- ce bout de code a rajouter et c'est bon)
stLinkCriteria = "[STRUCTURE]=" & "'" & Me![Liste53] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_rech_struct2_Click:
Exit Sub
Err_rech_struct2_Click:
MsgBox Err.Description
Resume Exit_rech_struct2_Click
End Sub
un petit bout de code a suffit :
Private Sub rech_struct2_Click()
On Error GoTo Err_rech_struct2_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "F_recherche2"
[Liste53].Value = Replace([Liste53], "'", "''") (<-- ce bout de code a rajouter et c'est bon)
stLinkCriteria = "[STRUCTURE]=" & "'" & Me![Liste53] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_rech_struct2_Click:
Exit Sub
Err_rech_struct2_Click:
MsgBox Err.Description
Resume Exit_rech_struct2_Click
End Sub