Discussion :

[the_qd]

Bonjour à tous,

Je débute en ACCESS et il faut dire que je rame sévère avec VBA et les requêtes SQL.

J'ai une table t_devis avec les champs suivants :
id devis : numéro auto
no_devis : numérique entier long
ref_id_client : numérique entier long
date_devis : date/heure date allégé ex 21.02.2018

J'essaie d'ajouter une ligne avec ce code

Code :

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

1
2
DoCmd.RunSQL "INSERT INTO t_devis(no_devis,ref_id_client,date_devis)" & _
" VALUES (20180215135432,1,21.08.2108);"

Mais je me retrouve avec un message d'erreur de conversion de type

J'ai essayé plusieurs versions mais je ne vois pas comment faire juste et malgré de multiples recherches sur le net, je ne trouve pas comment faire passer cette instruction...

Et d'ailleurs si vous avez un bon site qui explique les bases de VBA qui gère SQL dans Access c'est volontiers.

Je vous remercie pour votre réponse

[Ben404]

Bonjour, si tu veux être moins perdu, au lieu d'apprendre deux langage en même temps (VBA + SQL) je te conseil de en premier temps te pencher sur le SQL et ensuite de partir sur le VBA. Parce que si tes connaissances sont de 0 dans les deux langage tu va ramer ^^

En plus tu t'attaque directement aux dates ça va être tendu ^^
Les dates sont a déclarer en format bien spécifique et tous mes meme partout.

[EDIT] quelqu’un a répondu mieux que moi :3
Dans ton code tu fais des erreurs de concaténation je pense que ça devrait plutôt donné un truc comme ça :

Code :

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

DoCmd.RunSQL "INSERT INTO t_devis(no_devis,ref_id_client,date_devis) VALUES (' & 20180215135432 & ',' & 1 & ',& #21.08.2108# &)"

Les balises # sont les balises utiliser pour la date dans SQL mais je te dit les dates dans les BDD c'est le pire ^^'
Ah si pense a bien retirer le point virgule a la fin de l'instruction SQL quand tu le met dans le VBA il aime pas trop.
[/EDIT]

[tee_grandbois]

Bonjour,
1) il y a dépassement de capacité pour le N° de devis, il faut revoir la composition de ce champ car un entier long a comme plage de valeurs: -2 147 483 648 à +2 147 483 647 soit 10 chiffres et ton n° devis en contient 14: 20 180 215 135 432.
2) pour la date, tu utilises le séparateur de décimales de VBA: le point. Essaie de mettre ta date entre quotes et de remplacer les points par des slashs :

Code :

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

DoCmd.RunSQL "INSERT INTO t_devis(no_devis,ref_id_client,date_devis) VALUES(1234567890,1,'21/08/2108');"

pense a bien retirer le point virgule a la fin de l'instruction SQL quand tu le met dans le VBA il aime pas trop.

à Ben404 : je ne pense pas que cette affirmation soit vraie, tu peux le mettre ou pas, Access la rajoutera au moment de l'exécution si elle est manquante.

[the_qd]

Bonjour,

Merci pour votre aide.

J'ai essayé vos versions mais cela ne fonctionne pas.

J'ai même simplifié par :

Code :

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

 DoCmd.RunSQL "INSERT INTO t_devis(no_devis) VALUES(1234567890);"

mais je me retrouve toujours avec ce message d'erreur



Ci-dessous ma table


Quelle est donc mon erreur?

Merci d'avance

P.S. je pratique le VBA dans excel et le SQL avec PHP mais sous ACCESS j'ai l'impression que tout est plus compliqué pour faire une simple chose

[tee_grandbois]

Bonjour,

Je débute en ACCESS et il faut dire que je rame sévère avec VBA et les requêtes SQL.

P.S. je pratique le VBA dans excel et le SQL avec PHP mais sous ACCESS j'ai l'impression que tout est plus compliqué pour faire une simple chose

Si tu débutes, c'est normal que cela semble compliqué.
Le message indique un violation de clé : est ce que le champ no_devis est indexé sans doublons ?

[jimbolion]

Bonjour,


Vérifier aussi que ref_id_client en tant que clé étrangère soit présente si celle-ci a été définie dans les relations.

Code sql :

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

DoCmd.RunSQL "INSERT INTO t_devis(no_devis,ref_id_client) VALUES (20180215135432,1)"

Cldt

[tee_grandbois]

autre chose : si tu veux garder les 14 chiffres du champ no_devis, utilises le type Texte plutôt que Entier Long.

[the_qd]

Merci Jimbolion c'était bien à cause de la relation que ça ne fonctionnait pas...

Et merci également à tous les autres pour votre aide.