ACCESS et APOSTROPHES
Résolu/Fermé
dabigben
Messages postés
1914
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
13 octobre 2023
-
13 nov. 2008 à 15:14
dabigben Messages postés 1914 Date d'inscription vendredi 23 novembre 2007 Statut Membre Dernière intervention 13 octobre 2023 - 13 nov. 2008 à 16:05
dabigben Messages postés 1914 Date d'inscription vendredi 23 novembre 2007 Statut Membre Dernière intervention 13 octobre 2023 - 13 nov. 2008 à 16:05
A voir également:
- ACCESS et APOSTROPHES
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- Port access - Forum Réseau
- Recovery access - Télécharger - Récupération de données
- Controller access network - Télécharger - Contrôle parental
1 réponse
dabigben
Messages postés
1914
Date d'inscription
vendredi 23 novembre 2007
Statut
Membre
Dernière intervention
13 octobre 2023
179
13 nov. 2008 à 16:05
13 nov. 2008 à 16:05
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