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...
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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...
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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...
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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.
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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.
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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.
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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.
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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.
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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.
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pgI
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pgI
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pgI
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pgI
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pgI
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pgI
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pgI
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
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" target="_blank" class="text-blue hover:opacity-90 " style="word-break: break-all;" rel="noopener nofollow">http://www.3stone.be/access/articles.php?lng=fr&pgI
--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)