remplir une table à partir d'enregistrements sélectionnés dans une zone de liste
4 réponses
malongalaur
Bonjour,
pour remplir ma table je sélectionne des enregistrements dans une zone
de liste, une seconde zone de liste me montre les enregistrements que
je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel")
rs.AddNew
rs.Fields("NumArt") = Me!ListeArt.Column(0)
rs.Fields("Chapitre") = Me!ListeArt.Column(1)
rs.Fields("Chemin") = Me!ListeArt.Column(2)
rs.Update
rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ,
pourtant les champs de ma table d'arrivée sont du meme type que les
champs de ma liste.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"LaurentA"
pour remplir ma table je sélectionne des enregistrements dans une zone de liste, une seconde zone de liste me montre les enregistrements que je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database Dim rs As DAO.Recordset
Set dbs = CurrentDb Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel") rs.AddNew rs.Fields("NumArt") = Me!ListeArt.Column(0) rs.Fields("Chapitre") = Me!ListeArt.Column(1) rs.Fields("Chemin") = Me!ListeArt.Column(2) rs.Update rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ, pourtant les champs de ma table d'arrivée sont du meme type que les champs de ma liste.
Ce qui se retrouve dans ta liste de sélection est déjà dans une table, non ? Si oui, pourquoi le remettre dans une table...
Mais, le principe fonctionne, à condition que le nom des champs que tu cites soient correctement orthographier...
Ensuite, tu dis: "je sélectionne des enregistrements..." ta liste est en mode sélection multiple ou étendue ?? car dans ce cas, tu dois boucler sur les "selected"
Pour finir, n'oublie pas, après le rs.Close d'ajouter les
Set rs = Nothing Set dbs = Nothing
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"LaurentA"
pour remplir ma table je sélectionne des enregistrements dans une zone
de liste, une seconde zone de liste me montre les enregistrements que
je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel")
rs.AddNew
rs.Fields("NumArt") = Me!ListeArt.Column(0)
rs.Fields("Chapitre") = Me!ListeArt.Column(1)
rs.Fields("Chemin") = Me!ListeArt.Column(2)
rs.Update
rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ,
pourtant les champs de ma table d'arrivée sont du meme type que les
champs de ma liste.
Ce qui se retrouve dans ta liste de sélection est déjà dans une table, non ?
Si oui, pourquoi le remettre dans une table...
Mais, le principe fonctionne, à condition que le nom des champs
que tu cites soient correctement orthographier...
Ensuite, tu dis: "je sélectionne des enregistrements..."
ta liste est en mode sélection multiple ou étendue ??
car dans ce cas, tu dois boucler sur les "selected"
Pour finir, n'oublie pas, après le rs.Close d'ajouter les
Set rs = Nothing
Set dbs = Nothing
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
pour remplir ma table je sélectionne des enregistrements dans une zone de liste, une seconde zone de liste me montre les enregistrements que je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database Dim rs As DAO.Recordset
Set dbs = CurrentDb Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel") rs.AddNew rs.Fields("NumArt") = Me!ListeArt.Column(0) rs.Fields("Chapitre") = Me!ListeArt.Column(1) rs.Fields("Chemin") = Me!ListeArt.Column(2) rs.Update rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ, pourtant les champs de ma table d'arrivée sont du meme type que les champs de ma liste.
Ce qui se retrouve dans ta liste de sélection est déjà dans une table, non ? Si oui, pourquoi le remettre dans une table...
Mais, le principe fonctionne, à condition que le nom des champs que tu cites soient correctement orthographier...
Ensuite, tu dis: "je sélectionne des enregistrements..." ta liste est en mode sélection multiple ou étendue ?? car dans ce cas, tu dois boucler sur les "selected"
Pour finir, n'oublie pas, après le rs.Close d'ajouter les
Set rs = Nothing Set dbs = Nothing
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
malongalaur
On peut selectionner qu'un enregistrement à la fois, par contre qu'est ce que la différence entre multiple et etendue? Je sais que je peux utiliser ".selecteditems" et faire une boucle pour pouvoir sélectionner non pas une mais plusieurs lignes de ma zone de liste, mais je connais pas le principe "multiple ou étendue".
"3stone" wrote in message news:...
Salut,
"LaurentA"
pour remplir ma table je sélectionne des enregistrements dans une zone de liste, une seconde zone de liste me montre les enregistrements que je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database Dim rs As DAO.Recordset
Set dbs = CurrentDb Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel") rs.AddNew rs.Fields("NumArt") = Me!ListeArt.Column(0) rs.Fields("Chapitre") = Me!ListeArt.Column(1) rs.Fields("Chemin") = Me!ListeArt.Column(2) rs.Update rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ, pourtant les champs de ma table d'arrivée sont du meme type que les champs de ma liste.
Ce qui se retrouve dans ta liste de sélection est déjà dans une table, non ? Si oui, pourquoi le remettre dans une table...
Mais, le principe fonctionne, à condition que le nom des champs que tu cites soient correctement orthographier...
Ensuite, tu dis: "je sélectionne des enregistrements..." ta liste est en mode sélection multiple ou étendue ?? car dans ce cas, tu dois boucler sur les "selected"
Pour finir, n'oublie pas, après le rs.Close d'ajouter les
Set rs = Nothing Set dbs = Nothing
On peut selectionner qu'un enregistrement à la fois, par contre qu'est
ce que la différence entre multiple et etendue?
Je sais que je peux utiliser ".selecteditems" et faire une boucle
pour pouvoir sélectionner non pas une mais plusieurs lignes de ma zone
de liste, mais je connais pas le principe "multiple ou étendue".
"3stone" <threestone@cielreseau.be> wrote in message news:<uV6TvzTlEHA.3896@tk2msftngp13.phx.gbl>...
Salut,
"LaurentA"
pour remplir ma table je sélectionne des enregistrements dans une zone
de liste, une seconde zone de liste me montre les enregistrements que
je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel")
rs.AddNew
rs.Fields("NumArt") = Me!ListeArt.Column(0)
rs.Fields("Chapitre") = Me!ListeArt.Column(1)
rs.Fields("Chemin") = Me!ListeArt.Column(2)
rs.Update
rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ,
pourtant les champs de ma table d'arrivée sont du meme type que les
champs de ma liste.
Ce qui se retrouve dans ta liste de sélection est déjà dans une table, non ?
Si oui, pourquoi le remettre dans une table...
Mais, le principe fonctionne, à condition que le nom des champs
que tu cites soient correctement orthographier...
Ensuite, tu dis: "je sélectionne des enregistrements..."
ta liste est en mode sélection multiple ou étendue ??
car dans ce cas, tu dois boucler sur les "selected"
Pour finir, n'oublie pas, après le rs.Close d'ajouter les
On peut selectionner qu'un enregistrement à la fois, par contre qu'est ce que la différence entre multiple et etendue? Je sais que je peux utiliser ".selecteditems" et faire une boucle pour pouvoir sélectionner non pas une mais plusieurs lignes de ma zone de liste, mais je connais pas le principe "multiple ou étendue".
"3stone" wrote in message news:...
Salut,
"LaurentA"
pour remplir ma table je sélectionne des enregistrements dans une zone de liste, une seconde zone de liste me montre les enregistrements que je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database Dim rs As DAO.Recordset
Set dbs = CurrentDb Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel") rs.AddNew rs.Fields("NumArt") = Me!ListeArt.Column(0) rs.Fields("Chapitre") = Me!ListeArt.Column(1) rs.Fields("Chemin") = Me!ListeArt.Column(2) rs.Update rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ, pourtant les champs de ma table d'arrivée sont du meme type que les champs de ma liste.
Ce qui se retrouve dans ta liste de sélection est déjà dans une table, non ? Si oui, pourquoi le remettre dans une table...
Mais, le principe fonctionne, à condition que le nom des champs que tu cites soient correctement orthographier...
Ensuite, tu dis: "je sélectionne des enregistrements..." ta liste est en mode sélection multiple ou étendue ?? car dans ce cas, tu dois boucler sur les "selected"
Pour finir, n'oublie pas, après le rs.Close d'ajouter les
Set rs = Nothing Set dbs = Nothing
malongalaur
On peut selectionner qu'un enregistrement à la fois, par contre qu'est ce que la différence entre multiple et etendue? Je sais que je peux utiliser ".selecteditems" et faire une boucle pour pouvoir sélectionner non pas une mais plusieurs lignes de ma zone de liste, mais je connais pas le principe "multiple ou étendue".
"3stone" wrote in message news:...
Salut,
"LaurentA"
pour remplir ma table je sélectionne des enregistrements dans une zone de liste, une seconde zone de liste me montre les enregistrements que je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database Dim rs As DAO.Recordset
Set dbs = CurrentDb Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel") rs.AddNew rs.Fields("NumArt") = Me!ListeArt.Column(0) rs.Fields("Chapitre") = Me!ListeArt.Column(1) rs.Fields("Chemin") = Me!ListeArt.Column(2) rs.Update rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ, pourtant les champs de ma table d'arrivée sont du meme type que les champs de ma liste.
Ce qui se retrouve dans ta liste de sélection est déjà dans une table, non ? Si oui, pourquoi le remettre dans une table...
Mais, le principe fonctionne, à condition que le nom des champs que tu cites soient correctement orthographier...
Ensuite, tu dis: "je sélectionne des enregistrements..." ta liste est en mode sélection multiple ou étendue ?? car dans ce cas, tu dois boucler sur les "selected"
Pour finir, n'oublie pas, après le rs.Close d'ajouter les
Set rs = Nothing Set dbs = Nothing
On peut selectionner qu'un enregistrement à la fois, par contre qu'est
ce que la différence entre multiple et etendue?
Je sais que je peux utiliser ".selecteditems" et faire une boucle
pour pouvoir sélectionner non pas une mais plusieurs lignes de ma zone
de liste, mais je connais pas le principe "multiple ou étendue".
"3stone" <threestone@cielreseau.be> wrote in message news:<uV6TvzTlEHA.3896@tk2msftngp13.phx.gbl>...
Salut,
"LaurentA"
pour remplir ma table je sélectionne des enregistrements dans une zone
de liste, une seconde zone de liste me montre les enregistrements que
je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database
Dim rs As DAO.Recordset
Set dbs = CurrentDb
Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel")
rs.AddNew
rs.Fields("NumArt") = Me!ListeArt.Column(0)
rs.Fields("Chapitre") = Me!ListeArt.Column(1)
rs.Fields("Chemin") = Me!ListeArt.Column(2)
rs.Update
rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ,
pourtant les champs de ma table d'arrivée sont du meme type que les
champs de ma liste.
Ce qui se retrouve dans ta liste de sélection est déjà dans une table, non ?
Si oui, pourquoi le remettre dans une table...
Mais, le principe fonctionne, à condition que le nom des champs
que tu cites soient correctement orthographier...
Ensuite, tu dis: "je sélectionne des enregistrements..."
ta liste est en mode sélection multiple ou étendue ??
car dans ce cas, tu dois boucler sur les "selected"
Pour finir, n'oublie pas, après le rs.Close d'ajouter les
On peut selectionner qu'un enregistrement à la fois, par contre qu'est ce que la différence entre multiple et etendue? Je sais que je peux utiliser ".selecteditems" et faire une boucle pour pouvoir sélectionner non pas une mais plusieurs lignes de ma zone de liste, mais je connais pas le principe "multiple ou étendue".
"3stone" wrote in message news:...
Salut,
"LaurentA"
pour remplir ma table je sélectionne des enregistrements dans une zone de liste, une seconde zone de liste me montre les enregistrements que je rentre.
mon code donne ceci:
Private Sub ListeArt_DblClick(Cancel As Integer)
Dim dbs As DAO.Database Dim rs As DAO.Recordset
Set dbs = CurrentDb Set rs = dbs.OpenRecordset("Tab_Sommaire_actuel") rs.AddNew rs.Fields("NumArt") = Me!ListeArt.Column(0) rs.Fields("Chapitre") = Me!ListeArt.Column(1) rs.Fields("Chemin") = Me!ListeArt.Column(2) rs.Update rs.Close
Forms!FormEssai!Liste2.Requery
End Sub
Ca ne marche pas ca n'enregistre qu'un "0" dans le premier champ, pourtant les champs de ma table d'arrivée sont du meme type que les champs de ma liste.
Ce qui se retrouve dans ta liste de sélection est déjà dans une table, non ? Si oui, pourquoi le remettre dans une table...
Mais, le principe fonctionne, à condition que le nom des champs que tu cites soient correctement orthographier...
Ensuite, tu dis: "je sélectionne des enregistrements..." ta liste est en mode sélection multiple ou étendue ?? car dans ce cas, tu dois boucler sur les "selected"
Pour finir, n'oublie pas, après le rs.Close d'ajouter les
Set rs = Nothing Set dbs = Nothing
3stone
Salut,
"LaurentA"
On peut selectionner qu'un enregistrement à la fois, par contre qu'est ce que la différence entre multiple et etendue?
C'est dans la facon de sélectioner plusieurs enregistrements.
Crée une zone de liste test, bascule de l'un à l'autre et pense à vérifier l'effet des "Shift" et autres "Ctrl"...
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"LaurentA"
On peut selectionner qu'un enregistrement à la fois, par contre qu'est
ce que la différence entre multiple et etendue?
C'est dans la facon de sélectioner plusieurs enregistrements.
Crée une zone de liste test, bascule de l'un à l'autre
et pense à vérifier l'effet des "Shift" et autres "Ctrl"...
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------