Discussion :

[Tuxinator]

Bonjour à tous

J'ai un problème concernant l'ajout d'enregistrement dans ma table,
Lorsque j'ajoute l'enregistrement, celui-ci s'execute parfaitement.
Mais il modifie aussi la première ligne de ma table en y ajoutant des valeurs.

J'effectue des enregistrements sur 2 champs multi-valués.

Ma table peux avoir plusieurs contacts et plusieurs activités.

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
Private Sub Command37_Click()
DoCmd.GoToRecord , , acNewRec
Dim fournRst As DAO.Recordset
Dim oRst1 As DAO.Recordset
Dim oRst2 As DAO.Recordset
 
Set fournRst = CurrentDb.OpenRecordset("Fournisseurs")
With fournRst
    fournRst.Edit
 
    Set oRst1 = .Fields("activite").Value
    Set oRst2 = .Fields("contact").Value
 
    With oRst1
        .AddNew
        .Fields(0) = DMax("id_fourn", "Fournisseurs", "") + 1
        .Update
    End With
    With oRst2
        .AddNew
        .Fields(0) = DCount("contact", "Fournisseurs", "") + 1
        .Update
    End With
 
    fournRst.Update
End With
fournRst.Close
MsgBox "Fournisseur Ajouter !", vbOKOnly
 
End Sub

Merci d'avance pour vos réponses

[loufab]

Bonjour,

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
Private Sub Command37_Click()
DoCmd.GoToRecord , , acNewRec  'tu te positionnes sur l'enregistrement New du recordset du formulaire courant.
 
Dim fournRst As DAO.Recordset
Dim oRst1 As DAO.Recordset
Dim oRst2 As DAO.Recordset
 
Set fournRst = CurrentDb.OpenRecordset("Fournisseurs")  ' tu ouvre un nouveau recordset sur la table fournisseur
With fournRst
    fournRst.Edit    'tu edite le premier enregistrement dans ce recordset
 
    Set oRst1 = .Fields("activite").Value  'tu affecte une valeur (string ?) du champ activité dans ce recordset (ça n'a aucun sens)
    Set oRst2 = .Fields("contact").Value  'même chose 
 
'inutile d'allez plus loin tant que ceci ne sera pas valide.

Je ne sais pas ce que tu cherche à faire, mais ce code ne correspond à rien de valide. C'est même étonnant que tu ne reçoives pas d'erreur.
Consulte le tuto sur DAO et sur les champs multivalués.

Cordialement,