mise à jour d'une table

**Daniel MOREAU** · 10/05/2006, 17h44

Bonjour à tous,

A partir d'un formulaire je souhaite renseigner 2 tables (Tbl_Prospects et Tbl_Contacts).

Lors de la création de mon prospect, je veux pouvoir ajouter le nom des contacts.

Mon problème se situe lorsque je n'ai pas de contact à ajouter, mon code me créé systèmatiquement une ligne dans ma table avec le nom du client.

Comment doit-on procéder pour annuler cette partie de mise à jour.

Voici la partie du code qui ne fonctionne pas correctement :

Code :

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

1
2
3
4
5
If Not IsNull(Me.NomContact) Then
        RS1.Update
    Else
        RS1.CancelUpdate
    End If

et voici le code complet :

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
Private Sub Mise_à_Jour_Click()
    Dim Mabase As Dao.Database, RS As Dao.Recordset, RS1 As Dao.Recordset
On Error GoTo Erreur
 
    Set Mabase = CurrentDb
    Set RS = Mabase.OpenRecordset("Tbl_Prospects")
    Set RS1 = Mabase.OpenRecordset("Tbl_Contacts")
 
    RS.AddNew
    RS1.AddNew
 
On Error GoTo ErreurAddNew
    RS!Code_Client = Me.Code_Client
    RS!Raison_Sociale = Me.Raison_Sociale
    RS!Adresse = Me.Adresse
    RS!Adresse_Cplt = Me.Adresse_Cplt
    RS!Code_Postal = Me.Code_Postal
    RS!Ville = Me.Ville
    RS!N°_Tél = Me.N°_Tél
    RS!N°_Fax = Me.N°_Fax
    RS!E_Mail = Me.E_Mail
    RS!Internet = Me.Internet
    RS!Prospect = Me.Prospect
    RS!Date_OuvCpte = Me.Date_OuvCpte
    RS!Envoi_Promo = Me.Envoi_Promo
    RS!Envoi_AlcMail = Me.Envoi_AlcMail
    RS!Nbre_Agence = Me.Nbre_Agence
    RS!CA_An = Me.CA_An
    RS!Nbre_Salariés = Me.Nbre_Salariés
    RS!Activités = Me.Activités
    RS!Nom_Concurrence = Me.Nom_Concurrence
    RS!Nbre_Visite = Me.Nbre_Visite
    RS.Update
 
    MsgBox "Vous avez ajouté un enregistrement."
 
    RS1!Code_Client = Me.Code_Client
    RS1!Particule = Me.Particule
    RS1!Nom_Contact = Me.NomContact
    RS1!Fonction = Me.Fonction
 
    If Not IsNull(Me.NomContact) Then
        RS1.Update
    Else
        RS1.CancelUpdate
    End If
 
Me.Code_Client = ""
Me.Raison_Sociale = ""
Me.Adresse = ""
Me.Adresse_Cplt = ""
Me.Code_Postal = ""
Me.Ville = ""
Me.N°_Tél = ""
Me.N°_Fax = ""
Me.E_Mail = ""
Me.Internet = False
Me.Prospect = False
Me.Envoi_Promo = False
Me.Envoi_AlcMail = False
Me.Nbre_Agence = 0
Me.CA_An = 0
Me.Nbre_Salariés = 0
Me.Activités = ""
Me.Nom_Concurrence = ""
Me.Nbre_Visite = 0
Me.Particule = ""
Me.NomContact = ""
Me.Fonction = ""
Fin:
    RS.Close
    RS1.Close
    Exit Sub
 
ErreurAddNew:
    MsgBox Err.Description
    RS.Cancel
    Resume Fin
Erreur:
    MsgBox Err.Description
    Resume Fin
 
End Sub