Discussion :

[nat2814]

bonjour à tous,
J'ai un form qui fait intervenir des champs provenant de deux tables liées par un champ commun. j'ai crée un recorset sur chaque table pour qu'il me rajoute les nouveaux enregistrements. les tables sont effectivement implémentées mais le champ commun n'est present que dans une table. je vous post mon code. merci de m'indiquer ce qui va pas.
pourquoi le lien entre les deux tables n'est pas maintenu au moment de l'ajout des enregistrements ? merci encore

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
 
Private Sub btEnvoyer_Click()
 
Dim DB As DAO.Database
Dim rs As DAO.Recordset
Dim courant As DAO.Recordset
Dim NewFax, NewEnvoi As Long
Set DB = Application.CurrentDb
Set rs = DB.OpenRecordset("tblENVOI", dbOpenTable)
Set courant = DB.OpenRecordset("tblFAX", dbOpenTable)
 
rs.AddNew
NewEnvoi = rs.Fields("num_envoi").Value 'num_envoi champ type NumeroAuto
 
With rs
.AddNew
!num_envoi = NewEnvoi
!date_envoi = Me.txtDateEnvoi
!nb_envoi = 1
!type_envoi = 2
.Update
.Close
Set rs = Nothing
End With
 
courant.AddNew
NewFax = courant.Fields("num_imprime").Value 'num_imprime champ type NumeroAuto
 
With courant
.AddNew
!num_imprime = NewFax
!code_client = Me.cboFnr.Column(1)
!code_fnr = Me.cboFnr.Column(0)
!num_collab = "vanessa.r"
!circulariser = True
!reponse = False
!date_arrete = Me.txtDateArrete
.Update
.Close
Set courant = Nothing
End With
 
End Sub

[Mr T 94]

Salut, je ne saisi pas bien ton problème En fait, le champs source de ton recordset ne provient que d'une seule table (même si tu as le même champs dans l'autre table) d'où son enregistrement dans une seule, je crois.