Je souhaiterais copier le contenu d'un champ pour=20
l'int=E9grer dans une nouvelle table. Jusqu'ici je sais=20
l'afficher avec la commande SELECT mais je n'arrive pas =E0=20
le copier tout bonnement, or =E7a m'arrangerait pour des=20
questions de facilit=E9 visuelle.
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
Antoine Moreau
j'avais fait une fonction vb pour ça :
Public Function CopieRecordset(rstCible As DAO.Recordset, rst As DAO.Recordset, strID As String) As Long Dim field As DAO.field
rst.AddNew CopieRecordset = rst.Fields(strID).Value For Each field In rst.Fields If field.Name <> strID Then field.Value = rstCible.Fields(field.Name).Value End If Next rst.Update End Function
elle copie la valeur courante du recordset en premier argument comme nouveau champ du recordset passé en second argument, a l'exception du champ en troisième argument (la clé principale), et renvoi la valeur de la clé principale dans le recordset final
"JCP" a écrit dans le message de news:2692301c462ad$655c2b60$ Bonjour à tous,
Je souhaiterais copier le contenu d'un champ pour l'intégrer dans une nouvelle table. Jusqu'ici je sais l'afficher avec la commande SELECT mais je n'arrive pas à le copier tout bonnement, or ça m'arrangerait pour des questions de facilité visuelle.
Quelqu'un aurait une piste?
Merci, JCP
j'avais fait une fonction vb pour ça :
Public Function CopieRecordset(rstCible As DAO.Recordset, rst As
DAO.Recordset, strID As String) As Long
Dim field As DAO.field
rst.AddNew
CopieRecordset = rst.Fields(strID).Value
For Each field In rst.Fields
If field.Name <> strID Then
field.Value = rstCible.Fields(field.Name).Value
End If
Next
rst.Update
End Function
elle copie la valeur courante du recordset en premier argument comme nouveau
champ du recordset passé en second argument, a l'exception du champ en
troisième argument (la clé principale), et renvoi la valeur de la clé
principale dans le recordset final
"JCP" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:2692301c462ad$655c2b60$a401280a@phx.gbl...
Bonjour à tous,
Je souhaiterais copier le contenu d'un champ pour
l'intégrer dans une nouvelle table. Jusqu'ici je sais
l'afficher avec la commande SELECT mais je n'arrive pas à
le copier tout bonnement, or ça m'arrangerait pour des
questions de facilité visuelle.
Public Function CopieRecordset(rstCible As DAO.Recordset, rst As DAO.Recordset, strID As String) As Long Dim field As DAO.field
rst.AddNew CopieRecordset = rst.Fields(strID).Value For Each field In rst.Fields If field.Name <> strID Then field.Value = rstCible.Fields(field.Name).Value End If Next rst.Update End Function
elle copie la valeur courante du recordset en premier argument comme nouveau champ du recordset passé en second argument, a l'exception du champ en troisième argument (la clé principale), et renvoi la valeur de la clé principale dans le recordset final
"JCP" a écrit dans le message de news:2692301c462ad$655c2b60$ Bonjour à tous,
Je souhaiterais copier le contenu d'un champ pour l'intégrer dans une nouvelle table. Jusqu'ici je sais l'afficher avec la commande SELECT mais je n'arrive pas à le copier tout bonnement, or ça m'arrangerait pour des questions de facilité visuelle.
