[A97] : Requête Ajout selon une combobox et une textbox

**JeremieT** · 02/10/2006, 16h47

Bonjour à tous,

Je souhaite ajouter dans une table 1 enregistrements contenant des infos sur un article.
Pour ce faire j'ai crée un formulaire contenant 1 combobox et 1 textbox.
Les données de la combobox sont issues d'une autre table et dans la textbox j'ai un numérique/octet.

Voici donc la procédure que j'ai crée :

Code :

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

1
2
3
4
5
6
7
Private Sub cmdCreaArt_Click()
Dim oDB As DAO.Database
Set oDB = CurrentDb
    oDB.Execute "INSERT INTO tblDataArticle(CCArticle, Version)" & _
                    " SELECT Table.Artcc, " & Me.txtCreaArt.Value & "" & _
                        " WHERE (Table.Artcc = " & Me.cboCreaArt.Value & ")"
End Sub

Malheureusement je tombe en erreur 3075 Erreur de syntaxe (opérateur absent" dans l'expression '2468 WHERE (Table.Artcc = 3247)'

Les controles sont donc bien reconnues mais impossible de savoir ce qu'il manque.

Merci d'avance pour votre aide.
@+

**soltani1** · 03/10/2006, 08h24

Bonjour,

il manque le from matable après le Select.

A+

**JeremieT** · 03/10/2006, 09h14

Envoyé par soltani1

il manque le from matable après le Select.

Bonjour Soltani, Bonjour à tous,

Si je mets un

Code :

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

FROM Table

derrière le

Code :

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

" SELECT Table.Artcc

je tombe en 3346 : Le nombre de valeur de la requête doit coïncider avec le nombre de champs destination.

Si je le mets après le

Code :

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

" SELECT Table.Artcc, " & Me.txtCreaArt.Value & "

la procédure s'éxécute jusqu'au bout mais rien n'a été crée dans la table...!

Merci d'avance.

**soltani1** · 03/10/2006, 09h20

Bonjour,

Essaie

Code :

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

1
2
3
INSERT INTO tblDataArticle(CCArticle, Version)" & _
                    " SELECT Table.Artcc, " & Me.txtCreaArt.Value & "" & _
                    " FROM  Table WHERE (Table.Artcc = " & Me.cboCreaArt.Value & ")"

A+

**JeremieT** · 03/10/2006, 10h14

Re,

J'ai fait l'essai, j'ai la même chose que le 2ème cas :
La procédure s'éxécute jusqu'au bout mais rien n'a été crée dans la table...!

Merci

**soltani1** · 03/10/2006, 10h36

Bonjour,

en principe la requête est bonne essaie

Code :

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

1
2
" SELECT Table.Artcc, " & Me.txtCreaArt.Value & "" & _
                        " WHERE (Table.Artcc = " & Me.cboCreaArt.Value & ")"

pour voir s'il renvoie des enregistrements.

A+

**JeremieT** · 03/10/2006, 10h45

Re,

J'ai tester ta syntaxe, il me renvoi en erreur de syntaxe (opérateur absent) comme j'ai au départ de ce post.

Merci

**soltani1** · 03/10/2006, 12h58

Bonjour,

Code :

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

1
2
" SELECT Table.Artcc, " & Me.txtCreaArt.Value & _
                        " WHERE Table.Artcc = " & Me.cboCreaArt.Value

txtCreaArt et cboCreaArt sont de quel type?

A+

**JeremieT** · 03/10/2006, 14h17

Envoyé par soltani1

txtCreaArt et cboCreaArt sont de quel type?

Re,

-> cboCreaArt Zone de Liste modifiable basée sur le champ d'une table en Numérique Entier Long.
Pas de soucis sur les champs de la table source et de la destinataire.

-> txtCreaArt Zone de Texte

Merci

**soltani1** · 03/10/2006, 14h25

Bonjour,

si tu fais un select seulement
" SELECT Table.Artcc, " & Me.txtCreaArt.Value & _
" WHERE Table.Artcc = " & Me.cboCreaArt.Value

y a t-il des enregistrements renvoyés?
fait un debug.print

A+

**JeremieT** · 03/10/2006, 14h56

Envoyé par soltani1

y a t-il des enregistrements renvoyés?

Re,

Non je tombe en erreur avant ! Voir l'impr. écran, j'ai tjs cette erreur d'opérateur ! Je dois oublier qq chose mais je ne vois pas quoi !

Merci.

P.S. Sur l'image vous avez ARTST à la place de Table mais c'est normal ;-)

**soltani1** · 04/10/2006, 08h16

Bonjour,

il manque le From table

Code :

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

1
2
3
si tu fais un select seulement 
" SELECT Table.Artcc, " & Me.txtCreaArt.Value & _
" FROM TABLE WHERE Table.Artcc = " & Me.cboCreaArt.Value

Essaie cette requête sans le INSERT INTO pour voir s'il revoie des enregistrements.

A+

**JeremieT** · 04/10/2006, 08h51

Envoyé par soltani1

Bonjour,

il manque le From table

Code :

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

1
2
3
si tu fais un select seulement 
" SELECT Table.Artcc, " & Me.txtCreaArt.Value & _
" FROM TABLE WHERE Table.Artcc = " & Me.cboCreaArt.Value

Essaie cette requête sans le INSERT INTO pour voir s'il revoie des enregistrements.

A+

Bonjour,

Avec ta requête il me renvoie un "Type de données" incompatible dans l'expression du critère".

@+

**soltani1** · 04/10/2006, 08h55

Bonjour,

Type de données incompatibles c'est que les types sont différents.
Si un champ est de type caractère il faut que la valeur recherchée est de type caractère ...

A+

**JeremieT** · 04/10/2006, 10h10

Re,

Toutes mes données sont en théorie compatible car la combobox affiche du texte mais il s'agit d'une valeur numérique qui est stockée !
Le pb ne vient pas de la zone de texte car si je l'enlève l'insertion ne se fait pas non plus !

Merci

**soltani1** · 04/10/2006, 10h27

Bonjour,

Essaie de cette façon :

Code :

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

" SELECT Table.Artcc, 99 FROM TABLE WHERE Table.Artcc = 21555"

c'est un exemple pour voir sans les controles ce que la requête renvoie.

A+

**JeremieT** · 04/10/2006, 10h32

ça passe ss prob...

**soltani1** · 04/10/2006, 11h03

Bonjour,

Donc le problème c'est dans les types de données entre les champs et les contrôles du formulaires.

A+

**JeremieT** · 04/10/2006, 12h42

Envoyé par soltani1

Donc le problème c'est dans les types de données entre les champs et les contrôles du formulaires.

Re,

J'ai mis une image des propriétés des contrôles du formulaire ainsi que de la table source et de la table destinataire.
Si vous voyez une incohérence je suis preneur ;-)

Je rappelle le code utilisé initialement qui semble fonctionner mais qui n'a aucune incidence sur la table destinataire :-)

Code :

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

1
2
3
    oDB.Execute "INSERT INTO tblDataMoule(CCMoule, Version)" & _
                    " SELECT ARTST.Artcc, " & Me.txtCreaArtMoule.Value & "" & _
                        " FROM ARTST WHERE (ARTST.Artcc = " & Me.cboCreaArtMoule.Value & ")"

Merci à tous :-)

**soltani1** · 04/10/2006, 13h01

Bonjour,

Déclare 2 variables de type entier long et affecte :
Var1 = Me.txtCreaArtMoule.Value
Var2 = Me.cboCreaArtMoule.Value

dans la requête(fait un Select seuleument sans Insert pour voir le recodset s'il est vide ou il y a un message d'erreur)

Code :

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

1
2
"SELECT ARTST.Artcc, " & Var1 & "" & _
                        " FROM ARTST WHERE (ARTST.Artcc = " & Var2 & ")"

A+

[A97] : Requête Ajout selon une combobox et une textbox

IHM

Discussions similaires

Partager

Partager