Soucis de réglages dans une requete

**Jsiorat** · 07/05/2023, 20h40

Bonjour à toutes et tous

Je ne parviens pas a déterminer la cause de l'err 2134 dans requête :
(Requête tirée d'un exemple "Argentek" de Loufab !)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Function fInsereOperation(vcompte As Long, vIdTiers As Long, _
                                 vIdCategorie As Long, vdate As Date, vCredit As Currency, _
                                 vDebit As Currency, vDescription As String, vMemo As String, vPointe As Boolean) As Variant ' , vPointe As Boolean)
 
vlSql = "INSERT INTO TOperation (" & "[IdCompte]=" & vcompte & "," & "[IdTiers]=" & vIdTiers & "," & "[IdCategorie]=" & vIdCategorie & "," & _
                     "[DateOpe]=" & "#" & vdate & "#" & "," & "[Credit]=" & vCredit & "," & "[Debit]=" & vDebit & "," & "[Description]=" & "'" & vDescription & "'," & _
                     "[Memo]=" & "'" & vMemo & "'," & "[Pointe]=" & vPointe & ";)"
    Debug.Print vlSql
 
    currentDB.Execute vlSql
 
End Function

L'erreur 2134 : Erreur de syntax dans la requête

réponse dans la fenêtre d'exécution :

INSERT INTO TOperation ([IdCompte]=1,[IdTiers]=33,[IdCategorie]=22,[DateOpe]=#07/05/2023#,[Credit]=0,[Debit]=100,[Description]='TRANSFERT ENTRE COMPTE',[Memo]='Ceci est un test',[Pointe]=Faux;)

est-ce que les valeur de [Credit] et [Débit] qui sont déclarées comme Currency ne devraient-elles pas être cernées par une coche "'" ?

Merci pour votre aide.

**tee_grandbois** · 07/05/2023, 21h37

bonsoir,

Code :

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

INSERT INTO TOperation ([IdCompte]=1,[IdTiers]=33,[IdCategorie]=22,[DateOpe]=#07/05/2023#,[Credit]=0,[Debit]=100,[Description]='TRANSFERT ENTRE COMPTE',[Memo]='Ceci est un test',[Pointe]=Faux;)

pas sûr que la syntaxe INSERT INTO fonctionne comme cela en tout cas pas sûr que loufab l'a écrit comme ça ...
serait plutôt:

Code :

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

INSERT INTO TOperation ([IdCompte], [IdTiers]) VALUES ('1','33')

est-ce que les valeur de [Credit] et [Débit] qui sont déclarées comme Currency ne devraient-elles pas être cernées par une coche "'" ?

oui, tu as raison, à ceci près que cela ne s'appelle pas coche mais apostrophe. Les montants pouvant contenir des décimales, le séparateur de champs et de valeurs (qui est la virgule), pourraient provoquer une erreur de syntaxe.
Attention quand même avec les champs texte ou mémo qui pourraient en contenir. Il est donc préférable de privilégier les guillemets ", qui doivent être doublées dans ce cas (puisque insérées dans les délimiteurs du texte SQL):

Code :

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

vlSql = "INSERT INTO TOperation ([IdCompte], [IdTiers]) VALUES (""" & vcompte  & """,""" & vIdTiers & """);"

Et si les champs texte et mémo contiennent également des guillemets, il faudra au préalable utiliser Replace pour mettre 2 guillemets à la place:

Code :

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

Replace(Mavariable,""","""")

pas simple le codage ...

**Jsiorat** · 08/05/2023, 07h17

Envoyé par tee_grandbois

bonsoir,

pas simple le codage ...

Bonjour et un grand merci pour ta réponse !
deux choses ...

1 - Effectivement, Loufab n'a pas écrit cette requête comme ça mais avec la mention VALUES ....
J'ai cru pouvoir simplifier en introduisant directement les Values dans la requête ... apparemment, j'ai eu tord et le tord tue !
Est-ce qu'il existe un tuto sur ce genre de requête avec la mention de Value ? je ne savait pas que ça existait !
J'imagine que la requête se divise en deux parties. une partie définition et une partie VALUES !

2 - tout aussi effectivement ... pas simple le codage surtout quand on a jamais fait d'études pour ça !
Mais avec l'assistance de tous ici sur ce site, je crois m'en sortir pas trop mal à 78 ans ! et y a encore du boulot ! Et le plaisir est là !

Merci encore pour ton aide.

**Jsiorat** · 08/05/2023, 07h43

Bonjour à tous,

Une info pour ceux qui ont certaines difficultés en programmation :
Je vais maintenant sur ChatGPT !
Vous posez une question le plus précis possible et vous obtenez ce type de résultat :
=========================================
La question
paramètres dans une requête "INSERT INTO" de Access 2019

La réponse :
Lorsque vous utilisez une requête "INSERT INTO" dans Microsoft Access 2019, vous devez spécifier plusieurs paramètres pour insérer des données dans une table. Voici les paramètres couramment utilisés dans une requête "INSERT INTO" :

Nom de la table : spécifie le nom de la table dans laquelle vous voulez insérer des données.

Noms de colonnes : spécifie les noms des colonnes dans la table dans lesquelles vous voulez insérer des données.

Valeurs : spécifie les valeurs que vous voulez insérer dans chaque colonne. Vous pouvez spécifier des valeurs littérales (comme des chaînes de caractères ou des nombres), des expressions, des fonctions ou des références à des champs d'autres tables ou requêtes.

Voici un exemple de syntaxe pour une requête "INSERT INTO" :

INSERT INTO nom_de_la_table (nom_colonne_1, nom_colonne_2, nom_colonne_3)
VALUES (valeur_1, valeur_2, valeur_3);

Dans cet exemple, "nom_de_la_table" est le nom de la table dans laquelle vous voulez insérer des données, "nom_colonne_1", "nom_colonne_2" et "nom_colonne_3" sont les noms des colonnes dans la table, et "valeur_1", "valeur_2" et "valeur_3" sont les valeurs que vous voulez insérer dans chaque colonne.
User

Question
avec l'utilisation de "REPLACE" quels sont les paramètres
ChatGPT

la réponse
Lorsque vous utilisez la fonction "REPLACE" dans Microsoft Access 2019, vous devez spécifier plusieurs paramètres pour effectuer la recherche et le remplacement de texte. Voici les paramètres couramment utilisés dans la fonction "REPLACE" :

Chaîne de texte : spécifie la chaîne de texte dans laquelle vous voulez effectuer la recherche et le remplacement.

Texte à remplacer : spécifie la chaîne de texte que vous voulez remplacer.

Nouveau texte : spécifie le nouveau texte que vous voulez utiliser pour remplacer la chaîne de texte.

[Start] : spécifie la position de départ à partir de laquelle vous voulez effectuer la recherche et le remplacement. Ce paramètre est facultatif. Si vous ne spécifiez pas ce paramètre, la recherche et le remplacement commenceront au début de la chaîne de texte.

[Count] : spécifie le nombre de fois que vous voulez remplacer la chaîne de texte. Ce paramètre est facultatif. Si vous ne spécifiez pas ce paramètre, la fonction "REPLACE" remplacera toutes les occurrences de la chaîne de texte.

Voici un exemple de syntaxe pour utiliser la fonction "REPLACE" :

REPLACE(chaine_de_texte, texte_a_remplacer, nouveau_texte, [Start], [Count])

Dans cet exemple, "chaine_de_texte" est la chaîne de texte dans laquelle vous voulez effectuer la recherche et le remplacement, "texte_a_remplacer" est la chaîne de texte que vous voulez remplacer, "nouveau_texte" est le nouveau texte que vous voulez utiliser pour remplacer la chaîne de texte, "[Start]" est la position de départ à partir de laquelle vous voulez effectuer la recherche et le remplacement (facultatif) et "[Count]" est le nombre de fois que vous voulez remplacer la chaîne de texte (facultatif).
==============================================

Je fais couramment appel à ChatGPT et je ne m'en sort pas trop mal !

**hyperion13** · 08/05/2023, 09h17

Salut
A propos de ChatGPT vous devriez lire les derniers articles consacrés à Geoffrey Hinton

**Jsiorat** · 08/05/2023, 09h48

Bonjour Hyperion,

OK, je lirais, plutôt que regarder certaines inepties de la TV !

Merci pour ta suggestion.

**tee_grandbois** · 08/05/2023, 10h13

bonjour,
je rappelle quand même qu'il existe une aide en ligne Microsoft, "Chatte, j'ai pété", se contente d'ailler pomper ce qui est déjà publié. Donc rien de bien nouveau dan le monde du web.
en tapant les bons mots-clé Replace Access ce n'est pas si compliqué.
pour le INSERT INTO ... VALUES, je l'ai déjà donné don mon premier post.

**Jsiorat** · 08/05/2023, 10h51

Merci pour cette réponse,

et je ne savais pas que l'humour faisait partie intégrante de la programmation en VBA !

Je vais donc me coucher ce soir un peu plus instruit !

**Jsiorat** · 08/05/2023, 11h23

J'ai besoin de votre aide pour cette fameuse requête après modification :
J'ai une erreur 3134 ERREUR DE SYNTAXE et j'ai cherché et malheureusement je n'ai pas trouvé !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Public Function fInsereOperation(vcompte As Long, vIdTiers As Long, _
                                 vIdCategorie As Long, vdate As Date, vCredit As Currency, _
                                 vDebit As Currency, vDescription As String, vMemo As String, vPointe As Boolean) As Variant ' , vPointe As Boolean)
    ' insere une operation
    Dim strSql As String
 
    strSql = "INSERT INTO Operations [([IdCompte],[IdTiers],[IdCategorie],[DateOpe],[Credit],[Debit],[Description],[Memo],[Pointe])]"
    strSql = strSql & " VALUES (" & vcompte & "," & vIdTiers & "," & vIdCategorie & ","
    strSql = strSql & "#" & vdate & "#," & "'" & Nz(vCredit, 0) & "'" & ", " & "'" & Nz(vDebit, 0) & "'" & ",'" & vDescription & "'," & "'" & vMemo & "'," & vPointe & ");"
 
    Debug.Print strSql
 
    currentDB.Execute strSql

Le debug.print donne ce résultat :

INSERT INTO Operations [([IdCompte],[IdTiers],[IdCategorie],[DateOpe],[Credit],[Debit],[Description],[Memo],[Pointe])] VALUES (1,33,22,#08/05/2023#,'0', '100','TRANSFERT ENTRE COMPTE','CECI EST UN TEST !',Faux);

Apparemment, tout semble être là ! et pourtant, il doit manquer quelque chose !

Si vous trouver l'erreur de syntaxe, je serai le plus heureux des petits programmeurs ! merci.

**hyperion13** · 08/05/2023, 15h43

re
probablement parce que les valeurs en débit/crédit sont encadrées par de simples quotes !
d'ailleurs pourquoi utiliser Currency alors que Double serait plus approprié !
Mais bon, fonctionne avec les 2 !

Code :

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

1
2
3
CurrentDb.Execute "INSERT INTO Operations ([IdCompte], [IdTiers], [IdCategorie],[DateOpe],[Credit1], [Debit1], [Description], [Memo], [Pointe])" _
& " VALUES (" & Me.vcompte & "," & Me.vIdTiers & "," & Me.vIdCategorie & "," _
& " #" & Me.vdate & "#, " & Nz(Me.vCredit, 0) & ", " & Nz(Me.vDebit, 0) & ", '" & Me.vDescription & "', '" & Me.vMemo & "', " & Me.vPointe & ")", dbFailOnError

**Jsiorat** · 08/05/2023, 17h29

Merci et je vais tenter la modif !

**Jsiorat** · 08/05/2023, 17h38

Envoyé par hyperion13

re
probablement parce que les valeurs en débit/crédit sont encadrées par de simples quotes !
d'ailleurs pourquoi utiliser Currency alors que Double serait plus approprié !

J'ai supprimé les quotes,changer la définition de Crédit et Débit en Double au lieu de Currency.

à l'exécution j'ai une erreur 3061 Trop peu de paramètres !

J'en perd mon latin ! (que je n'ai jamais appris d’ailleurs !)

Mon but avec cette requête est d'ajouter 1 et un seul enregistrement dans une table qui est déjà ouverte en local.
Est-ce qu'il existerait une autre façon de procéder pour ça ? sans avoir a fermer la table voire la BdD ?

**Jsiorat** · 08/05/2023, 18h43

CA Y EST ! Ça fonctionne ... mais pas avec ce système de requête !

Tout simplement en utilisant RecordsetClone !
Dire que ça fait près de 8 jours que je bosse sur cette requête !

Problème résolu !

**tee_grandbois** · 08/05/2023, 21h23

bonsoir,

J'ai supprimé les quotes,changer la définition de Crédit et Débit en Double au lieu de Currency.

désolé de contredire hyperion13 (que je salue au passage) mais le type Monétaire (ou Currency), comme son nom l'indique est le type le plus approprié pour les montants.
Concernant les apostrophes (quotes) et guillemets, j'ai quand même donné la réponse à ta question dès mon premier post:

Envoyé par Jsiorat

est-ce que les valeur de [Credit] et [Débit] qui sont déclarées comme Currency ne devraient-elles pas être cernées par une coche "'" ?

Envoyé par tee_grandbois

oui, tu as raison, à ceci près que cela ne s'appelle pas coche mais apostrophe. Les montants pouvant contenir des décimales, le séparateur de champs et de valeurs (qui est la virgule), pourraient provoquer une erreur de syntaxe.

**Jsiorat** · 09/05/2023, 06h57

Envoyé par tee_grandbois

bonsoir,
désolé de contredire hyperion13 (que je salue au passage) mais le type Monétaire (ou Currency), comme son nom l'indique est le type le plus approprié pour les montants.
Concernant les apostrophes (quotes) et guillemets, j'ai quand même donné la réponse à ta question dès mon premier post:

Bonjour,

J'avais tenu compte de ta réponse et malgré cela, j'avais quand une erreur : soit Err 3061 soit Err 3134.
Maintenant, comme je l'ai dis dans mon précédent post, j'ai résolu le problème en utilisant un RecordsetClone.
Et de plus, la solution m'a été soufflé par ChatGPT ! ce qui m'a bien aidé !

Bonne journée et à +

**tee_grandbois** · 09/05/2023, 12h42

bonjour,

J'avais tenu compte de ta réponse et malgré cela, j'avais quand une erreur : soit Err 3061 soit Err 3134.

oui mais, le fait d'ajouter des apostrophes ne peut pas être la cause des erreurs.
Et, outre le fait qu'hyperion13 t'a donné une réponse pas très juste au sujet des "simples quotes" autour des monétaires (ne pas en mettre aurait fonctionné uniquement si les montants étaient des entiers ou que le séparateur de décimales n'est pas la virgule), on remarque quelque chose dans le Debug:

Envoyé par Jsiorat

Le debug.print donne ce résultat :

INSERT INTO Operations [([IdCompte],[IdTiers],[IdCategorie],[DateOpe],[Credit],[Debit],[Description],[Memo],[Pointe])] VALUES (1,33,22,#08/05/2023#,'0', '100','TRANSFERT ENTRE COMPTE','CECI EST UN TEST !',Faux);

Apparemment, tout semble être là ! et pourtant, il doit manquer quelque chose !

ou tout simplement quelque chose en trop comme des crochet qui ne devraient y pas être...

Personnellement, je mets tout entre apostrophes (ou quotes, si tu veux), même les dates mais sans les "#" (octotrophe)

Soucis de réglages dans une requete [AC-2019]

Access

Discussions similaires

Partager

Partager