Discussion :

[redojackson]

Bonjour
Est-ce que quelqu'un ici peut m'aider? je suis perdu
J'ai crée un formulaire pour insérer des données texte dans une table
mon code est:

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
23
24
Private Sub AjouterFournisseur_Click()
Dim MonSQL As String
Dim Controle As Control
Dim f As Form
 
Set f = Forms!F_AjoutFournisseur
 
MonSQL = "INSERT INTO [T-Fournisseur] (Fournisseur, Pays, Adresse, Tel, [Site Web])"
MonSQL = MonSQL & "VALUES ('" & f!NomFournisseur & "', '" & f!Pays & "','" & f!Adresse & "','" & f!Tel & "', '" & f!Web & "')"
DoCmd.SetWarnings False
DoCmd.RunSQL MonSQL
DoCmd.SetWarnings True
 
MsgBox "La société " & f!NomFournisseur & " a bien été ajouté à votre liste de fournisseurs!", vbInformation, "Transfert réussi"
 
For Each Controle In f.Controls
    If Controle.ControlType = acTextBox Then
        Controle = Null
    End If
Next Controle
 
Me.NomFournisseur = Null
f!NomFournisseur.SetFocus
End Sub

Mon problème est lorsque j'ajoute un nom qui contient une apostrophe (exemple : "l'école de l'hermitage" VBA me renvoie un message d'erreur qui est le suivant:
Erreur d'exécution 3075, Erreur de syntaxe (opérateur absent) dans l'expression "l'école de l'hermitage"
Aidez-moi svp

[RobiPMS]

Bonjour.
Il Y a de nombreuses discussions dans le forum à ce sujet. Il faut remplacer les apostrophes par un signe qui ne pose pas problème. Par exemple, doubler l'apostrophe. Personnellement, je remplace par un underscore. Une discussion décrivant la solution : http://www.developpez.net/forums/d55...rophe-requete/.
Cordialement.

[VincentNguon]

+1 avec Robi.

Fonction Replace() pour insérer correctement puis re-fonction Replace() quand c'est inséré pour remettre le tout comme il faut.