Discussion :

[marcbo]

Bonjour

Ma requête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim requete As String
 
        requete = "INSERT INTO Auteurs (auteur) VALUES" & " ('" & NouvelAuteur & "')"
        MsgBox requete
        DoCmd.SetWarnings False
        DoCmd.RunSQL requete

Fonctionne pour un auteur sans apostrophe (Flaubert) par exemple, mais par pour D’Urfé, sans doute à cause de l’apostrophe.

Je bute depuis longtemps sur ce problème ; quelqu’un a-t-il une solution à me proposer ?

Bonne fin de journée et merci à tous.

[pottiez]

Salut,
il faut que tu double ton apostrophe et cela fonctionnera.

[marcbo]

Bonsoir,

J’ai tenté de suivre votre conseil ; la macro suivante fonctionne pour Voltaire, mais pas pour « D''Alembert » :

Cette entrée déclenche un message « Erreur d’exécution « 2237 »
Le texte entré n’est pas un élément de la liste.

Pourtant la requête d’insertion s’exécute, la table Auteurs est complétée.

Voici le texte de la macro :

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 Modifiable117_Change()
Auteur = Modifiable117.Text
If Auteur = "(Nouvel auteur)" Then
NouvelAuteur = InputBox("Nouvel Auteur; Entrez le nom et le prénom entre parenthèses")
    message = "Ajouter " & NouvelAuteur & " à la base de données ""Auteurs"" ?"
    retour = MsgBox(message, vbYesNo & vbExclamation, "Confirmation de l'ajout")
    If retour = 1 Then
        Dim requete As String
        requete = "INSERT INTO Auteurs (auteur) VALUES" & "('" & NouvelAuteur & "')"
        MsgBox requete
        DoCmd.SetWarnings False
        DoCmd.RunSQL requete
        Modifiable117.Requery
        Modifiable117.Text = NouvelAuteur
        Auteur.Value = NouvelAuteur
        DoCmd.SetWarnings True
    Else
        Exit Sub
    End If
End If
End Sub

Si quelqu’un voit une solution à me problème, d’avance merci.
Merci aussi pour la rapidité de votre réponse et du temps déjà passé à tenter de m’aider.
Bonne soirée.

[Olivier Dufour]

Bonjour,


Comme indiqué par pottiez, vous devez dans votre variable "doubler" les apostrophes.

Je ne connais pas le langage que vous utilisez (VB ?), mais cela devrait ressembler à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim requete AS String
NouvelAuteur.replace("'","''")
requete = "INSERT INTO Auteurs (auteur) VALUES" & "('" & NouvelAuteur & "')"
MsgBox requete

Cdlt,
OD

[marcbo]

Bonsoir,

Un grande merci à tous, car je viens, grâce à vous, de trouver la solution à mon problème :

Il faut deux replace: l'un pour que la macro VB accepte le nom entré, l'autre pour qu'il soit reconnu comme membre de la liste.

On arrive donc au code:

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
22
Private Sub Modifiable117_Change()
Auteur = Modifiable117.Text
If Auteur = "(Nouvel auteur)" Then
NouvelAuteur = InputBox("Nouvel Auteur; Entrez le nom et le prénom entre parenthèses")
    message = "Ajouter " & NouvelAuteur & " à la base de données ""Auteurs"" ?"
    retour = MsgBox(message, vbYesNo & vbExclamation, "Confirmation de l'ajout")
    If retour = 1 Then
        Dim requete As String
        NouvelAuteur = Replace(NouvelAuteur, "'", "''")
        requete = "INSERT INTO Auteurs (auteur) VALUES" & "('" & NouvelAuteur & "')"
        DoCmd.SetWarnings False
        DoCmd.RunSQL requete
        NouvelAuteur = Replace(NouvelAuteur, "''", "'")
        Modifiable117.Requery
        Modifiable117.Text = NouvelAuteur
        Auteur.Value = NouvelAuteur
        DoCmd.SetWarnings True
    Else
        Exit Sub
    End If
End If
End Sub

Encore merci,
Bien cordialement.