J'ai une table avec une variable nommée Montant définie en format monétaire.
Si au moyen d'une requête je veux ajouter une valeur, par exemple 160,25, je
crée une requête de mise à jour dont le code SQL est :
UPDATE Tablex SET Tablex.Montant = [Montant]+160.25;
Tout marche bien
Maintenant je voudrais faire la même chose dans mon code, qui est donc le
suivant :
Dim Variable As Currency
Dim SQL As String
Dim Cnn As New ADODB.Connection
Set Cnn = CurrentProject.Connection
Variable = 160.25
SQL = "UPDATE Tablex SET Tablex.Montant = [Montant]+" & Variable & ";"
Cnn.Execute SQL, , adExecuteNoRecords
A l'exécution j'obtiens le message "Erreur de syntaxe dans l'instruction
UPDATE"
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Laurent DUB
SQL = "UPDATE Tablex SET Tablex.Montant = [Montant]+" & Variable
"AJADV" a écrit dans le message de news:
J'ai une table avec une variable nommée Montant définie en format monétaire. Si au moyen d'une requête je veux ajouter une valeur, par exemple 160,25, je crée une requête de mise à jour dont le code SQL est : UPDATE Tablex SET Tablex.Montant = [Montant]+160.25; Tout marche bien
Maintenant je voudrais faire la même chose dans mon code, qui est donc le suivant : Dim Variable As Currency Dim SQL As String Dim Cnn As New ADODB.Connection Set Cnn = CurrentProject.Connection Variable = 160.25 SQL = "UPDATE Tablex SET Tablex.Montant = [Montant]+" & Variable & ";" Cnn.Execute SQL, , adExecuteNoRecords
A l'exécution j'obtiens le message "Erreur de syntaxe dans l'instruction UPDATE"
Merci à qui pourra me dire où est le piège.
-- AJ
SQL = "UPDATE Tablex SET Tablex.Montant = [Montant]+" & Variable
"AJADV" <AJADV@discussions.microsoft.com> a écrit dans le message de news:
7121F1CE-F5CE-477E-AD32-B53A164561A7@microsoft.com...
J'ai une table avec une variable nommée Montant définie en format
monétaire.
Si au moyen d'une requête je veux ajouter une valeur, par exemple 160,25,
je
crée une requête de mise à jour dont le code SQL est :
UPDATE Tablex SET Tablex.Montant = [Montant]+160.25;
Tout marche bien
Maintenant je voudrais faire la même chose dans mon code, qui est donc le
suivant :
Dim Variable As Currency
Dim SQL As String
Dim Cnn As New ADODB.Connection
Set Cnn = CurrentProject.Connection
Variable = 160.25
SQL = "UPDATE Tablex SET Tablex.Montant = [Montant]+" & Variable & ";"
Cnn.Execute SQL, , adExecuteNoRecords
A l'exécution j'obtiens le message "Erreur de syntaxe dans l'instruction
UPDATE"
SQL = "UPDATE Tablex SET Tablex.Montant = [Montant]+" & Variable
"AJADV" a écrit dans le message de news:
J'ai une table avec une variable nommée Montant définie en format monétaire. Si au moyen d'une requête je veux ajouter une valeur, par exemple 160,25, je crée une requête de mise à jour dont le code SQL est : UPDATE Tablex SET Tablex.Montant = [Montant]+160.25; Tout marche bien
Maintenant je voudrais faire la même chose dans mon code, qui est donc le suivant : Dim Variable As Currency Dim SQL As String Dim Cnn As New ADODB.Connection Set Cnn = CurrentProject.Connection Variable = 160.25 SQL = "UPDATE Tablex SET Tablex.Montant = [Montant]+" & Variable & ";" Cnn.Execute SQL, , adExecuteNoRecords
A l'exécution j'obtiens le message "Erreur de syntaxe dans l'instruction UPDATE"