Bonjour à tous,
J'ai une table "tblEaaStart" liée à 2 autres tables "tblEaaAdmnistrative" et "tblEaaCost".
Dans des formulaires, je décide de collecter les informations nécessaires pour la création d'une nouvelle entrée....jusque là tout va bien :-)

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
44
45
46
47
48
49
50
51
52
53
 
Dim NewMission As String
NewMission = InputBox("mission number?", "Double stretcher conbination")
 
 
Dim MaTableStart As Recordset
Set MaTableStart = CurrentDb.OpenRecordset("tblEaaStart", dbOpenDynaset)
On Error Resume Next
With MaTableStart
    .AddNew
    !MissionCode = NewMission
    !CaseStatus = "Opened"
    .Update
    .Requery
End With
MaTableStart.Close
Set MaTable = Nothing
 
 
 
 
Dim MaTableAdministrative As Recordset
Set MaTableAdministrative = CurrentDb.OpenRecordset("tblEaaAdministrative", dbOpenDynaset)
On Error Resume Next
With MaTableAdministrative
    .AddNew
    !MissionCode = NewMission
    !Nationality = Nationality
    !Relative = Relative
    .Update
    .Requery
End With
MaTableAdministrative.Close
Set MaTableAdministrative = Nothing
 
 
Dim MaTableCost As Recordset
Set MaTableCost = CurrentDb.OpenRecordset("tblEaaCost", dbOpenDynaset)
On Error Resume Next
With MaTableCost
    .AddNew
    !MissionCode = NewMission
    !LearjetType = LearjetType
    !LearjetFlightNumber = LearjetFlightNumber
    !LearjetDoctor = LearjetDoctor
    !LearjetNurse = LearjetNurse
    !LearjetFromDatus = LearjetFromDatus
    !LearjetFromTimus = LearjetFromTimus
    .Update
    .Requery
End With
MaTableCost.Close
Set MaTableCost = Nothing
Petit hic.....
Le processus se passe bien pour la table "tblEaaStart".....mais rien ne se crée dans les tables "tblEaaAdministrative" et "tblEaaCost".....

Quuelqu'un aurait une idée?

Merci