bonjour, cette procédure ajoute un champ a ma tbl, mais quesque je dois
rajoutez pour pouvoir ajouter deux champs a ma tbl ?
Private Sub libéllé_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo +
vbQuestion) = vbYes Then
CurrentDb.Execute "INSERT INTO [tbl liste des tiers](tiers) " &
"SELECT """ & NewData & """ ;"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me!tiers.Undo
End If
End Sub
merci
--
Roger
http://le-meruvien.skynetblogs.be/
http://passionanimaux.skyblogs.be/
"Le meruvien" | bonjour, cette procédure ajoute un champ a ma tbl,
Non... elle ajoute un enregistrement ;-)
| mais quesque je dois | rajoutez pour pouvoir ajouter deux champs a ma tbl ? | Private Sub libéllé_NotInList(NewData As String, Response As Integer) | If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + | vbQuestion) = vbYes Then | CurrentDb.Execute "INSERT INTO [tbl liste des tiers](tiers) " & | "SELECT """ & NewData & """ ;" | Response = acDataErrAdded | Else | Response = acDataErrContinue | Me!tiers.Undo | End If | End Sub
Tu souhaites renseigner la valeur de 2 champs ?
Si la valeur est fixe ou connue dans le formulaire, il suffit de renseigner ce second champ
"Insert Into [tbl liste des tiers] (tiers, pouet) " & "Select """ & NewData & """, 36 ");"
sinon, ouvrir un petit formulaire qui permet de compléter...
"Le meruvien"
| bonjour, cette procédure ajoute un champ a ma tbl,
Non... elle ajoute un enregistrement ;-)
| mais quesque je dois
| rajoutez pour pouvoir ajouter deux champs a ma tbl ?
| Private Sub libéllé_NotInList(NewData As String, Response As Integer)
| If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo +
| vbQuestion) = vbYes Then
| CurrentDb.Execute "INSERT INTO [tbl liste des tiers](tiers) " &
| "SELECT """ & NewData & """ ;"
| Response = acDataErrAdded
| Else
| Response = acDataErrContinue
| Me!tiers.Undo
| End If
| End Sub
Tu souhaites renseigner la valeur de 2 champs ?
Si la valeur est fixe ou connue dans le formulaire, il suffit de renseigner
ce second champ
"Insert Into [tbl liste des tiers] (tiers, pouet) " &
"Select """ & NewData & """, 36 ");"
sinon, ouvrir un petit formulaire qui permet de compléter...
"Le meruvien" | bonjour, cette procédure ajoute un champ a ma tbl,
Non... elle ajoute un enregistrement ;-)
| mais quesque je dois | rajoutez pour pouvoir ajouter deux champs a ma tbl ? | Private Sub libéllé_NotInList(NewData As String, Response As Integer) | If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + | vbQuestion) = vbYes Then | CurrentDb.Execute "INSERT INTO [tbl liste des tiers](tiers) " & | "SELECT """ & NewData & """ ;" | Response = acDataErrAdded | Else | Response = acDataErrContinue | Me!tiers.Undo | End If | End Sub
Tu souhaites renseigner la valeur de 2 champs ?
Si la valeur est fixe ou connue dans le formulaire, il suffit de renseigner ce second champ
"Insert Into [tbl liste des tiers] (tiers, pouet) " & "Select """ & NewData & """, 36 ");"
sinon, ouvrir un petit formulaire qui permet de compléter...
Salut pierre, ben ça marche pas, si je met ta formule avec NewData & """, 36 ");" J'ai erreur de syntax dans l'expression 36, et si je met: CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """" là il me dis : le montant de valeur de la requette doit coincider avec le nombre de champs destinataire!
"3stone" a écrit dans le message de news:
Salut,
"Le meruvien" | bonjour, cette procédure ajoute un champ a ma tbl,
Non... elle ajoute un enregistrement ;-)
| mais quesque je dois | rajoutez pour pouvoir ajouter deux champs a ma tbl ? | Private Sub libéllé_NotInList(NewData As String, Response As Integer) | If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + | vbQuestion) = vbYes Then | CurrentDb.Execute "INSERT INTO [tbl liste des tiers](tiers) " & | "SELECT """ & NewData & """ ;" | Response = acDataErrAdded | Else | Response = acDataErrContinue | Me!tiers.Undo | End If | End Sub
Tu souhaites renseigner la valeur de 2 champs ?
Si la valeur est fixe ou connue dans le formulaire, il suffit de renseigner ce second champ
"Insert Into [tbl liste des tiers] (tiers, pouet) " & "Select """ & NewData & """, 36 ");"
sinon, ouvrir un petit formulaire qui permet de compléter...
Salut pierre, ben ça marche pas, si je met ta formule avec NewData & """, 36
");" J'ai erreur de syntax dans l'expression 36, et si je met:
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " &
"SELECT """ & NewData & """"
là il me dis : le montant de valeur de la requette doit coincider avec le
nombre de champs destinataire!
"3stone" <home@sweet_home.be> a écrit dans le message de news:
u7yI5pcZIHA.1208@TK2MSFTNGP03.phx.gbl...
Salut,
"Le meruvien"
| bonjour, cette procédure ajoute un champ a ma tbl,
Non... elle ajoute un enregistrement ;-)
| mais quesque je dois
| rajoutez pour pouvoir ajouter deux champs a ma tbl ?
| Private Sub libéllé_NotInList(NewData As String, Response As Integer)
| If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo
+
| vbQuestion) = vbYes Then
| CurrentDb.Execute "INSERT INTO [tbl liste des tiers](tiers) " &
| "SELECT """ & NewData & """ ;"
| Response = acDataErrAdded
| Else
| Response = acDataErrContinue
| Me!tiers.Undo
| End If
| End Sub
Tu souhaites renseigner la valeur de 2 champs ?
Si la valeur est fixe ou connue dans le formulaire, il suffit de
renseigner
ce second champ
"Insert Into [tbl liste des tiers] (tiers, pouet) " &
"Select """ & NewData & """, 36 ");"
sinon, ouvrir un petit formulaire qui permet de compléter...
Salut pierre, ben ça marche pas, si je met ta formule avec NewData & """, 36 ");" J'ai erreur de syntax dans l'expression 36, et si je met: CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """" là il me dis : le montant de valeur de la requette doit coincider avec le nombre de champs destinataire!
"3stone" a écrit dans le message de news:
Salut,
"Le meruvien" | bonjour, cette procédure ajoute un champ a ma tbl,
Non... elle ajoute un enregistrement ;-)
| mais quesque je dois | rajoutez pour pouvoir ajouter deux champs a ma tbl ? | Private Sub libéllé_NotInList(NewData As String, Response As Integer) | If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + | vbQuestion) = vbYes Then | CurrentDb.Execute "INSERT INTO [tbl liste des tiers](tiers) " & | "SELECT """ & NewData & """ ;" | Response = acDataErrAdded | Else | Response = acDataErrContinue | Me!tiers.Undo | End If | End Sub
Tu souhaites renseigner la valeur de 2 champs ?
Si la valeur est fixe ou connue dans le formulaire, il suffit de renseigner ce second champ
"Insert Into [tbl liste des tiers] (tiers, pouet) " & "Select """ & NewData & """, 36 ");"
sinon, ouvrir un petit formulaire qui permet de compléter...
"Le meruvien" | ben ça marche pas, si je met ta formule avec NewData & """, 36 | ");" J'ai erreur de syntax dans l'expression 36, et si je met:
Roger, c'est juste un exemple... au lieu de 36, j'aurai pu mettre 'toto' Il faut évidement adapter au niveau des guillemets selon que le champ est numérique ou alfa.
"Le meruvien"
| ben ça marche pas, si je met ta formule avec NewData & """, 36
| ");" J'ai erreur de syntax dans l'expression 36, et si je met:
Roger, c'est juste un exemple...
au lieu de 36, j'aurai pu mettre 'toto'
Il faut évidement adapter au niveau des guillemets selon que
le champ est numérique ou alfa.
"Le meruvien" | ben ça marche pas, si je met ta formule avec NewData & """, 36 | ");" J'ai erreur de syntax dans l'expression 36, et si je met:
Roger, c'est juste un exemple... au lieu de 36, j'aurai pu mettre 'toto' Il faut évidement adapter au niveau des guillemets selon que le champ est numérique ou alfa.
Voila, comme c'est de l'alpha, j'ai mis des guillemets, mais y a toujours une erreur! CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT " '" & NewData & " '", 36 ");" je veut donc ajouter dans la table [codes postaux] dans les champs [ville] et [code_post) une ville et son CP.
"3stone" a écrit dans le message de news: %
re,
"Le meruvien" | ben ça marche pas, si je met ta formule avec NewData & """, 36 | ");" J'ai erreur de syntax dans l'expression 36, et si je met:
Roger, c'est juste un exemple... au lieu de 36, j'aurai pu mettre 'toto' Il faut évidement adapter au niveau des guillemets selon que le champ est numérique ou alfa.
Voila, comme c'est de l'alpha, j'ai mis des guillemets, mais y a toujours
une erreur!
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " &
"SELECT " '" & NewData & " '", 36 ");"
je veut donc ajouter dans la table [codes postaux] dans les champs [ville]
et [code_post) une ville et son CP.
"3stone" <home@sweet_home.be> a écrit dans le message de news:
%23jJod3mZIHA.5980@TK2MSFTNGP04.phx.gbl...
re,
"Le meruvien"
| ben ça marche pas, si je met ta formule avec NewData & """, 36
| ");" J'ai erreur de syntax dans l'expression 36, et si je met:
Roger, c'est juste un exemple...
au lieu de 36, j'aurai pu mettre 'toto'
Il faut évidement adapter au niveau des guillemets selon que
le champ est numérique ou alfa.
Voila, comme c'est de l'alpha, j'ai mis des guillemets, mais y a toujours une erreur! CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT " '" & NewData & " '", 36 ");" je veut donc ajouter dans la table [codes postaux] dans les champs [ville] et [code_post) une ville et son CP.
"3stone" a écrit dans le message de news: %
re,
"Le meruvien" | ben ça marche pas, si je met ta formule avec NewData & """, 36 | ");" J'ai erreur de syntax dans l'expression 36, et si je met:
Roger, c'est juste un exemple... au lieu de 36, j'aurai pu mettre 'toto' Il faut évidement adapter au niveau des guillemets selon que le champ est numérique ou alfa.
J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est pas dans la liste!
Dim dbs As Database Dim rcst As DAO.Recordset If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) SELECT [ville], [code_post]FROM [codes postaux];" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If
"Le meruvien" a écrit dans le message de news: 47a5d07a$0$11184$
Voila, comme c'est de l'alpha, j'ai mis des guillemets, mais y a toujours une erreur! CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT " '" & NewData & " '", 36 ");" je veut donc ajouter dans la table [codes postaux] dans les champs [ville] et [code_post) une ville et son CP.
"3stone" a écrit dans le message de news: %
re,
"Le meruvien" | ben ça marche pas, si je met ta formule avec NewData & """, 36 | ");" J'ai erreur de syntax dans l'expression 36, et si je met:
Roger, c'est juste un exemple... au lieu de 36, j'aurai pu mettre 'toto' Il faut évidement adapter au niveau des guillemets selon que le champ est numérique ou alfa.
J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est
pas dans la liste!
Dim dbs As Database
Dim rcst As DAO.Recordset
If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo +
vbQuestion) = vbYes Then
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) SELECT
[ville], [code_post]FROM [codes postaux];"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me!ville.Undo
End If
"Le meruvien" <RVvdb.roger@free.fr> a écrit dans le message de news:
47a5d07a$0$11184$426a34cc@news.free.fr...
Voila, comme c'est de l'alpha, j'ai mis des guillemets, mais y a toujours
une erreur!
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " &
"SELECT " '" & NewData & " '", 36 ");"
je veut donc ajouter dans la table [codes postaux] dans les champs [ville]
et [code_post) une ville et son CP.
"3stone" <home@sweet_home.be> a écrit dans le message de news:
%23jJod3mZIHA.5980@TK2MSFTNGP04.phx.gbl...
re,
"Le meruvien"
| ben ça marche pas, si je met ta formule avec NewData & """, 36
| ");" J'ai erreur de syntax dans l'expression 36, et si je met:
Roger, c'est juste un exemple...
au lieu de 36, j'aurai pu mettre 'toto'
Il faut évidement adapter au niveau des guillemets selon que
le champ est numérique ou alfa.
J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est pas dans la liste!
Dim dbs As Database Dim rcst As DAO.Recordset If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) SELECT [ville], [code_post]FROM [codes postaux];" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If
"Le meruvien" a écrit dans le message de news: 47a5d07a$0$11184$
Voila, comme c'est de l'alpha, j'ai mis des guillemets, mais y a toujours une erreur! CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT " '" & NewData & " '", 36 ");" je veut donc ajouter dans la table [codes postaux] dans les champs [ville] et [code_post) une ville et son CP.
"3stone" a écrit dans le message de news: %
re,
"Le meruvien" | ben ça marche pas, si je met ta formule avec NewData & """, 36 | ");" J'ai erreur de syntax dans l'expression 36, et si je met:
Roger, c'est juste un exemple... au lieu de 36, j'aurai pu mettre 'toto' Il faut évidement adapter au niveau des guillemets selon que le champ est numérique ou alfa.
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure comme sur le site, et ça marche pas! Private Sub ville_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """ ;" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" a écrit dans le message de news:
re,
"Le meruvien" | J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est | pas dans la liste!
Pour la structure générale, regarde ici : http://www.3stone.be/access/articles.php?lng=fr&pgI
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure
comme sur le site, et ça marche pas!
Private Sub ville_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo +
vbQuestion) = vbYes Then
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " &
"SELECT """ & NewData & """ ;"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me!ville.Undo
End If
End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" <home@sweet_home.be> a écrit dans le message de news:
eePcnbsZIHA.4196@TK2MSFTNGP04.phx.gbl...
re,
"Le meruvien"
| J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie
n'est
| pas dans la liste!
Pour la structure générale, regarde ici :
http://www.3stone.be/access/articles.php?lng=fr&pgI
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure comme sur le site, et ça marche pas! Private Sub ville_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """ ;" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" a écrit dans le message de news:
re,
"Le meruvien" | J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est | pas dans la liste!
Pour la structure générale, regarde ici : http://www.3stone.be/access/articles.php?lng=fr&pgI
Un truc, avant de d'incorporer ta requête dans du vba (vu que visiblement il y a un souci) il serait préférable de tester ta requête toute seule en direct.
Théoriquement c'est du style : INSERT INTO TableDest ( Champ1, Champ2 ) SELECT Champ1, Champ2 FROM TableSrc;
PS:Il y a 2 champs en SOURCE et en destination.
"Le meruvien" a écrit dans le message de news:47a6b5a8$0$2746$
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure comme sur le site, et ça marche pas! Private Sub ville_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """ ;" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" a écrit dans le message de news:
re,
"Le meruvien" | J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est | pas dans la liste!
Pour la structure générale, regarde ici : http://www.3stone.be/access/articles.php?lng=fr&pgI
Un truc, avant de d'incorporer ta requête dans du vba (vu que visiblement
il y a un souci) il serait préférable de tester ta requête toute seule en direct.
Théoriquement c'est du style :
INSERT INTO TableDest ( Champ1, Champ2 )
SELECT Champ1, Champ2
FROM TableSrc;
PS:Il y a 2 champs en SOURCE et en destination.
"Le meruvien" <RVvdb.roger@free.fr> a écrit dans le message de news:47a6b5a8$0$2746$426a74cc@news.free.fr...
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure
comme sur le site, et ça marche pas!
Private Sub ville_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo +
vbQuestion) = vbYes Then
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " &
"SELECT """ & NewData & """ ;"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me!ville.Undo
End If
End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" <home@sweet_home.be> a écrit dans le message de news:
eePcnbsZIHA.4196@TK2MSFTNGP04.phx.gbl...
re,
"Le meruvien"
| J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie
n'est
| pas dans la liste!
Pour la structure générale, regarde ici :
http://www.3stone.be/access/articles.php?lng=fr&pgI
Un truc, avant de d'incorporer ta requête dans du vba (vu que visiblement il y a un souci) il serait préférable de tester ta requête toute seule en direct.
Théoriquement c'est du style : INSERT INTO TableDest ( Champ1, Champ2 ) SELECT Champ1, Champ2 FROM TableSrc;
PS:Il y a 2 champs en SOURCE et en destination.
"Le meruvien" a écrit dans le message de news:47a6b5a8$0$2746$
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure comme sur le site, et ça marche pas! Private Sub ville_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """ ;" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" a écrit dans le message de news:
re,
"Le meruvien" | J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est | pas dans la liste!
Pour la structure générale, regarde ici : http://www.3stone.be/access/articles.php?lng=fr&pgI
Bonjour michel, rien ne marche! J'ai mis: CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) SELECT (ville,code_post) FROM [codes postaux];" J'ai un mesage "erreur de syntaxe(virgule) dans l'expression (ville,code_post) et si je lance une requette d'ajout, il me dis que le texte entré n'est pas dans la liste !
"Michel_D" a écrit dans le message de news: fo6k88$t56$
Bonjour,
Un truc, avant de d'incorporer ta requête dans du vba (vu que visiblement il y a un souci) il serait préférable de tester ta requête toute seule en direct.
Théoriquement c'est du style : INSERT INTO TableDest ( Champ1, Champ2 ) SELECT Champ1, Champ2 FROM TableSrc;
PS:Il y a 2 champs en SOURCE et en destination.
"Le meruvien" a écrit dans le message de news:47a6b5a8$0$2746$
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure comme sur le site, et ça marche pas! Private Sub ville_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """ ;" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" a écrit dans le message de news:
re,
"Le meruvien" | J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est | pas dans la liste!
Pour la structure générale, regarde ici : http://www.3stone.be/access/articles.php?lng=fr&pgI
Bonjour michel, rien ne marche!
J'ai mis:
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) SELECT
(ville,code_post) FROM [codes postaux];"
J'ai un mesage "erreur de syntaxe(virgule) dans l'expression
(ville,code_post)
et si je lance une requette d'ajout, il me dis que le texte entré n'est pas
dans la liste !
"Michel_D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: fo6k88$t56$1@news.rd.francetelecom.fr...
Bonjour,
Un truc, avant de d'incorporer ta requête dans du vba (vu que visiblement
il y a un souci) il serait préférable de tester ta requête toute seule en
direct.
Théoriquement c'est du style :
INSERT INTO TableDest ( Champ1, Champ2 )
SELECT Champ1, Champ2
FROM TableSrc;
PS:Il y a 2 champs en SOURCE et en destination.
"Le meruvien" <RVvdb.roger@free.fr> a écrit dans le message de
news:47a6b5a8$0$2746$426a74cc@news.free.fr...
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la
procedure
comme sur le site, et ça marche pas!
Private Sub ville_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo +
vbQuestion) = vbYes Then
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " &
"SELECT """ & NewData & """ ;"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me!ville.Undo
End If
End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" <home@sweet_home.be> a écrit dans le message de news:
eePcnbsZIHA.4196@TK2MSFTNGP04.phx.gbl...
re,
"Le meruvien"
| J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie
n'est
| pas dans la liste!
Pour la structure générale, regarde ici :
http://www.3stone.be/access/articles.php?lng=fr&pgI
Bonjour michel, rien ne marche! J'ai mis: CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) SELECT (ville,code_post) FROM [codes postaux];" J'ai un mesage "erreur de syntaxe(virgule) dans l'expression (ville,code_post) et si je lance une requette d'ajout, il me dis que le texte entré n'est pas dans la liste !
"Michel_D" a écrit dans le message de news: fo6k88$t56$
Bonjour,
Un truc, avant de d'incorporer ta requête dans du vba (vu que visiblement il y a un souci) il serait préférable de tester ta requête toute seule en direct.
Théoriquement c'est du style : INSERT INTO TableDest ( Champ1, Champ2 ) SELECT Champ1, Champ2 FROM TableSrc;
PS:Il y a 2 champs en SOURCE et en destination.
"Le meruvien" a écrit dans le message de news:47a6b5a8$0$2746$
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure comme sur le site, et ça marche pas! Private Sub ville_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """ ;" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" a écrit dans le message de news:
re,
"Le meruvien" | J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est | pas dans la liste!
Pour la structure générale, regarde ici : http://www.3stone.be/access/articles.php?lng=fr&pgI
J'ai dit comme ci-dessous (c'est pas encore cela dans le select) :
INSERT INTO TableDest (Champ1, Champ2) SELECT Champ1, Champ2 FROM TableSrc;
"Le meruvien" a écrit dans le message de news:47a6e9ff$0$17615$
Bonjour michel, rien ne marche! J'ai mis: CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) SELECT (ville,code_post) FROM [codes postaux];" J'ai un mesage "erreur de syntaxe(virgule) dans l'expression (ville,code_post) et si je lance une requette d'ajout, il me dis que le texte entré n'est pas dans la liste !
"Michel_D" a écrit dans le message de news: fo6k88$t56$
Bonjour,
Un truc, avant de d'incorporer ta requête dans du vba (vu que visiblement il y a un souci) il serait préférable de tester ta requête toute seule en direct.
Théoriquement c'est du style : INSERT INTO TableDest ( Champ1, Champ2 ) SELECT Champ1, Champ2 FROM TableSrc;
PS:Il y a 2 champs en SOURCE et en destination.
"Le meruvien" a écrit dans le message de news:47a6b5a8$0$2746$
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure comme sur le site, et ça marche pas! Private Sub ville_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """ ;" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" a écrit dans le message de news:
re,
"Le meruvien" | J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est | pas dans la liste!
Pour la structure générale, regarde ici : http://www.3stone.be/access/articles.php?lng=fr&pgI
J'ai dit comme ci-dessous (c'est pas encore cela dans le select) :
INSERT INTO TableDest (Champ1, Champ2)
SELECT Champ1, Champ2
FROM TableSrc;
"Le meruvien" <RVvdb.roger@free.fr> a écrit dans le message de news:47a6e9ff$0$17615$426a74cc@news.free.fr...
Bonjour michel, rien ne marche!
J'ai mis:
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) SELECT
(ville,code_post) FROM [codes postaux];"
J'ai un mesage "erreur de syntaxe(virgule) dans l'expression
(ville,code_post)
et si je lance une requette d'ajout, il me dis que le texte entré n'est pas
dans la liste !
"Michel_D" <michel.NOSPAM@orange-ft.com.invalid> a écrit dans le message de
news: fo6k88$t56$1@news.rd.francetelecom.fr...
Bonjour,
Un truc, avant de d'incorporer ta requête dans du vba (vu que visiblement
il y a un souci) il serait préférable de tester ta requête toute seule en
direct.
Théoriquement c'est du style :
INSERT INTO TableDest ( Champ1, Champ2 )
SELECT Champ1, Champ2
FROM TableSrc;
PS:Il y a 2 champs en SOURCE et en destination.
"Le meruvien" <RVvdb.roger@free.fr> a écrit dans le message de
news:47a6b5a8$0$2746$426a74cc@news.free.fr...
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la
procedure
comme sur le site, et ça marche pas!
Private Sub ville_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo +
vbQuestion) = vbYes Then
CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " &
"SELECT """ & NewData & """ ;"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Me!ville.Undo
End If
End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" <home@sweet_home.be> a écrit dans le message de news:
eePcnbsZIHA.4196@TK2MSFTNGP04.phx.gbl...
re,
"Le meruvien"
| J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie
n'est
| pas dans la liste!
Pour la structure générale, regarde ici :
http://www.3stone.be/access/articles.php?lng=fr&pgI
J'ai dit comme ci-dessous (c'est pas encore cela dans le select) :
INSERT INTO TableDest (Champ1, Champ2) SELECT Champ1, Champ2 FROM TableSrc;
"Le meruvien" a écrit dans le message de news:47a6e9ff$0$17615$
Bonjour michel, rien ne marche! J'ai mis: CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) SELECT (ville,code_post) FROM [codes postaux];" J'ai un mesage "erreur de syntaxe(virgule) dans l'expression (ville,code_post) et si je lance une requette d'ajout, il me dis que le texte entré n'est pas dans la liste !
"Michel_D" a écrit dans le message de news: fo6k88$t56$
Bonjour,
Un truc, avant de d'incorporer ta requête dans du vba (vu que visiblement il y a un souci) il serait préférable de tester ta requête toute seule en direct.
Théoriquement c'est du style : INSERT INTO TableDest ( Champ1, Champ2 ) SELECT Champ1, Champ2 FROM TableSrc;
PS:Il y a 2 champs en SOURCE et en destination.
"Le meruvien" a écrit dans le message de news:47a6b5a8$0$2746$
Salut Pierre, tu vas dire que je suis ch..., mais j'ai copier la procedure comme sur le site, et ça marche pas! Private Sub ville_NotInList(NewData As String, Response As Integer) If MsgBox("Voulez-vous ajouter la valeur " & NewData & " ?", vbYesNo + vbQuestion) = vbYes Then CurrentDb.Execute "INSERT INTO [codes postaux](ville,code_post) " & "SELECT """ & NewData & """ ;" Response = acDataErrAdded Else Response = acDataErrContinue Me!ville.Undo End If End Sub
Peut tu me donner exactement la ligne que je dois mettre ?
"3stone" a écrit dans le message de news:
re,
"Le meruvien" | J'ai mis tout ça, y admet, mais me dis a la fin que la donnée saisie n'est | pas dans la liste!
Pour la structure générale, regarde ici : http://www.3stone.be/access/articles.php?lng=fr&pgI
