Bienvenue! Identification Créer un nouveau profil

Recherche avancée

[AC10] Je voudrais copier 2 champs d'une table: tblCommisions) dans une autre table (tblArticlesEtPrix)

25/10/17 13:00
Donc, j'ai une table: tblCommissions qui contient N° (numéroAuto)
DateAchat (Date/heure) - magasin (texte) - Articles (Texte) - PrixUnit (euro)
Qté (numérique) - TotArticle (calculé: PrixUnit * Qté)
L'autre table tblArticlesEtPrix
Articles (texte) - PrixUnit(euro)

J'aimerais copier les articles et leur PrixUnit du formulaire frmCommissions basé sur la table (tblCommissions)
dans la table tblArticlesEtPrix à condition que cette dernière table ne contiennent pas déjà ces dernières données

J'ai déjà essayer de le faire avec la fonction NotInList, mais, je n'y arrive pas du tout, malgré les exemples que j'ai pu consulter.
Genre:
Option Compare Database
Private Sub Articles_NotInList(NewData As String, Response As Integer)
Dim dbs As Database, rst As Recordset
'ajouter l'article dans la nouvelle entrée à la table
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("ArticlesEtPrix")
rst.AddNew
rst!Catégories = Me![Catégorie]
rst!Dénomination = NewData
rst.Update
Response = acDataErrAdded 'requery la liste modifiable
rst.Close
Set dbs = Nothing
Set rst = Nothing
End Sub

D'avance merci,

@+

Guy FALESSE
SujetAuteurEnvoyé le

[AC10] Je voudrais copier 2 champs d'une table: tblCommisions) dans une autre table (tblArticlesEtPrix)

Guy Falesse25/10/17 13:00

[AC10] Re: Je voudrais copier 2 champs d'une table: tblCommisions) dans une autre table (tblArticlesEtPrix)

DenisS07/11/17 17:50

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter