Enregistrements des valeurs d'une liste à selection multiple

**Robert1957** · 29/04/2013, 19h35

Bonjour Séphirée,
C'est parce que tu ne te positionne pas sur le bon record. Voici un code qui suppose ta table "TableEtude":

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
    'Initialise les variables
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim strSQL As String
    'Crée la requête
    strSQL = "SELECT TableEtude.ID, TableEtude.listea, TableEtude.listeb, TableEtude.listec, etc. " _
    & "FROM TableEtude WHERE (((TableEtude.ID)=" & Me.LeNomControleID & "));"
    'Va chercher le record
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strSQL)
    'Vérifie si le record existe
    If rst.EOF = False Then
        'Le record existe on le modifie
        rst.Edit
        'Le code de ta liste multiple sans les autres champs d'information
        rst.Update
    Else
        'Le record n'existe pas
        rst.AddNew
        'Le code de la liste multiple avec tous les champs
        rst.Update
    End If