Discussion :

[student007]

Salut
j ai un petit pb dans ma base de données.
Je souhaiterais à partir d'une requete dans un pgm VB réaliser un transfert de deux ou trois champs d une table vers des champs d une autre table...

[Mr White]

Bonjour,

Il me semble que du VB n'est peut-être pas nécessaire pour faire ça...si ce que tu veux faire c'est bien copier des données d'une table dans une autre.

Pour ce faire, tu crée une requête MAJ en sélectionnant les bons champs et tu écris (ah! si! un peu de VB en effet) sur l'événement approprié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenQuery "MAJ_TableX"

Voilà. J'espère t'aider.
Mr White

[student007]

j ai déjà essayé cette solution mais sans résultat car le pb ki se pose c est un pb de violation de clé donc la MAJ ne peut pas avoir lieu...

[keita]

salut
Essai ça:
1/Tu crées 2 recordsets:
- Rst1 sur tabl1
- Rst2 sur tabl2
2/le critere de recherche de Rst2 devra etre sur Rst1; par ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Do Until Rst1.EOF    'Boucl sur les enreg de tabl1 à ajouter à tbl2
Dim StrSQL2 as String, Rst2 as Recordset
StrSQL2="SELECT * FROM tabl2 WHERE tabl2.champDeRecherche=" & Rst1![] & ";"
Set Rst2=Openrecordset(StrSQL2)
If Rst2.Recordcount=0 Then 'si l'enreg n'exist pas ds tabl2 alors l'ajouter
  Rst2.AddNew
 
  Rst2.update
  Else                                 ' sinon l'editer
       Rst2.Edit
 
      Rst2.update
End if
If Rst1.EOF Then
  Rst2.Close
  Set Rst2=Nothing
End if
Rst1.MoveNext
Loop
Rst1.Close
SetRst1=Nothing

J'espere que ça t'aidera
@+

[student007]

Merci keita
je me suis inspiré de ton pgm.
ce que je souhaitais faire marche merci