Discussion :

[helico57570]

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

[marot_r]

Bonjour.

Mettre les On Error Resume Next en commentaire, cela te donnera peut-être une piste. Là si il y a une erreur tu n'en est pas informé.

Typer les recordset en DAO.Recordset pour éviter la confusion entre les librairies DAO et ADO.

Tu n'as pas besoin du .Requery après le .Update. Les nouvelles données sont déjà disponibles.

A+