Discussion :

[steph_p]

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

[talrashha]

Salut,

Pourrais-tu détailler un peu plus le problème (erreur obtenue, ligne.. etc)?
De plus, je ne vois pas de boucle (boucle = while, for, do until)...

[steph_p]

Il n'y a aucune erreur d'exécution. Ce sue je veux faire c'est qu'après la condition If, si celle-ci est remplie, il effectue tout ce qui suit (et qui est incrémenté pour faciliter la lecture) sinon (Else) il effectue l'autre INSERT INTO.

[talrashha]

Euh, oui, mais, quand tu dis que le code ne fonctionne pas, il se passe quoi?
Aucun enregistrement n'est ajouté? Ou bien il n'y à que des enregistrement avec 28 dans la table Liaison_pers_activ_cara ?
Ou autre chose?

Autre chose, dans la table Liaison_pers_activ_cara, si tu as mis "identifiant" en NuméroAuto, il ne faut pas le spécifier dans la requète. Si tu en as besoin, refait

Code :

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

lngDerID = DMax("ID_act_cara", "Activités_caractéristiques")

[LE VIEUX]

If n'est pas une boucle mais une instruction de condition elle s'exécute ou pas mais ne fait pas de boucle !!!

[steph_p]

Certes If n'est pas une boucle mais ce que je voulais dire par là c'est que plusieurs instructions devaient être effectuées si ma condition était VRAI!
Apparement l'erreur venait de ma condition : j'avais mis <>" " pour différent d'un champ vide or il faut mettre <>"".
De ce fait maintenant l'enregistrement dans la table fonctionne. Merci pour votre aide.