Discussion :

[DébutantAccess]

* Bonjour, *

Code :

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

1
2
DoCmd.RunSQL "INSERT INTO PARTICIPATION_SORTIE (num_usager, liens_sociaux_nature, liens_sociaux_importance, liens_familiaux, projet_vie_nature, projet_vie_rapport, nature_projet_pro, potentiel_pro_echelle)" & _
"VALUES ( " & Me.num_usager_PARTICIPATION.Value & ", '" & Me.liens_sociaux_nature.Value & "', '" & Me.Liens_sociaux_importance.Value & "' , '" & Me.liens_familiaux.Value & "', '" & Me.projet_vie_nature.Value & "', '" & Me.projet_vie_rapport.Value & "', '" & Me.nature_projet_pro & "', '" & Me.potentiel_pro_echelle.Value & "'); "

Lorsque j’exécute cette requête ça me dit que j'ai une erreur, je n'en vois aucune

* Merci *

[zoom61]

Toujours pareil, as-tu fais la ligne suivante :

Code :

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

1
2
MsgBox "INSERT INTO PARTICIPATION_SORTIE (num_usager, liens_sociaux_nature, liens_sociaux_importance, liens_familiaux, projet_vie_nature, projet_vie_rapport, nature_projet_pro, potentiel_pro_echelle)" & _
"VALUES ( " & Me.num_usager_PARTICIPATION.Value & ", '" & Me.liens_sociaux_nature.Value & "', '" & Me.Liens_sociaux_importance.Value & "' , '" & Me.liens_familiaux.Value & "', '" & Me.projet_vie_nature.Value & "', '" & Me.projet_vie_rapport.Value & "', '" & Me.nature_projet_pro & "', '" & Me.potentiel_pro_echelle.Value & "'); "

Si oui, as-tu copié le résultat dans une requête ? Et l'exécuter ?

@+.

[DébutantAccess]

Bonjour,

Oui et ça me met tout au bon endroit, c'est pour ça que je ne comprend pas :/

Je comprend rien, Access me sort par les yeux, ca remarche sans que je ne touche à rien --" en revanche c'est la requête d'hier qui pose problème maintenant, quand je met en MsgBox, rien ne s'affiche

Cela ne viendrait-il pas du fait que tu n'ais pas d'espace entre la dernière parenthèse des champs et le mot VALUES ?

[DébutantAccess]

Ca refonctionne, maintenant c'est cette requête qui me pose problème

Code :

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

1
2
3
4
5
6
7
8
9
Dim selMult1 As Variant, selMult2 As Variant
For Each selMult1 In Me.droits_sociaux.ItemsSelected
    For Each selMult2 In Me.DS.ItemsSelected
 
        DoCmd.RunSQL "INSERT INTO SITUATION_ADMINISTRATIVE_SORTIE (num_usager, niveau_scolaire, diplomes, potentiel_scolaire_echelle, situation_pro, annee_obtention, droits_sociaux, DS) " & _
        "VALUES ( " & Me.num_usager_SITUATION_ADMINISTRATIVE.Value & ", '" & Me.niveau_scolaire.Value & "', '" & Me.diplomes.Value & "', '" & Me.potentiel_scolaire_echelle.Value & "', '" & Me.situation_pro.Value & "', '" & Me.annee_obtention.Value & "', '" & Me.droits_sociaux.Value & "', '" & Me.DS.Value & "'); "
 
    Next selMult2
Next selMult1

[mumen]

Bonjour, DébutantAccess

Access est complexe, pas magique !

STP, modifie ton code comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim selMult1 As Variant, selMult2 As Variant
Dim strSql as string
 
For Each selMult1 In Me.droits_sociaux.ItemsSelected
    For Each selMult2 In Me.DS.ItemsSelected
 
        strSql = "INSERT INTO SITUATION_ADMINISTRATIVE_SORTIE (num_usager, niveau_scolaire, diplomes, potentiel_scolaire_echelle, situation_pro, annee_obtention, droits_sociaux, DS) " & _
        "VALUES ( " & Me.num_usager_SITUATION_ADMINISTRATIVE.Value & ", '" & Me.niveau_scolaire.Value & "', '" & Me.diplomes.Value & "', '" & Me.potentiel_scolaire_echelle.Value & "', '" & Me.situation_pro.Value & "', '" & Me.annee_obtention.Value & "', '" & Me.droits_sociaux.Value & "', '" & Me.DS.Value & "'); "
        Debug.Print 
        Debug.Print strSql 
        DoCmd.RunSQL strSql 
 
    Next selMult2
Next selMult1

Quand tu tombes sur la requête qui plante, récupères la dernière ligne dans le fenêtre de débogage et montre la nous.

[zoom61]

Tu peux faire du pas à pas pour voir où se trouver réellement le problème.
F9 pour mettre un point d'arrêt, ensuite F8 pour faire le pas à pas.

@+.