Bonjour,
Je voudrais faire une grande boucle avec plusieurs instructions dedans. Apparemement le code que j'ai fait ne fonctionne pas.
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
If other <> " " Then
        SQL = "INSERT INTO Activités_caractéristiques (`Nom_activité_caractéristique`, `ID_activite`) VALUES " + _
            "( '" + other + "', '9')"
        DoCmd.SetWarnings False
        DoCmd.RunSQL SQL
        DoCmd.SetWarnings True
 
        Dim lngDerID As Long
        lngDerID = DMax("ID_act_cara", "Activités_caractéristiques")
 
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO Liaison_pers_activ_cara (`identifiant`, `ID_act_cara`, `Nb heure`, `Semaine`, `Année`) VALUES " + _
                     "( '" + ident + "', '" + Str(lngDerID) + "', '" + Str(nb) + "', '" + Str(sem) + "', '" + Str(an) + "' )"
        DoCmd.SetWarnings True
    Else
        DoCmd.SetWarnings False
        DoCmd.RunSQL "INSERT INTO Liaison_pers_activ_cara (`identifiant`, `ID_act_cara`, `Nb heure`, `Semaine`, `Année`) VALUES " + _
                 "( '" + ident + "',  '28' , '" + Str(nb) + "', '" + Str(sem) + "', '" + Str(an) + "' )"
        DoCmd.SetWarnings True
    End If
Merci de vos lumières