Discussion :

[DébutantAccess]

Bonjour,
Je ne comprends pas mon erreur, lorsque j’exécute ma requête ci-dessous il me met un message d'erreur "erreur d'exécution '13' Incompatibilité de type:

Code :

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

1
2
DoCmd.RunSQL "INSERT INTO INSERTION_SORTIE (droits_sociaux)" & _
"VALUES ('" & Me.droits_sociaux.Value & "');"

droits_sociaux correspond à une liste à choix multiples, c'est peut être une erreur de syntaxe mais je ne vois pas comment l'écrire autrement.
J'ai fait les tests pour voir d'où venait mon erreur et elle provient de l'insertion de mes 3 valeurs à choix multiples, tout le reste fonctionne, en espérant que l'on puisse m'éclairer,
Merci d'avance.

[zoom61]

Salut,

Fait un :

Code :

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

1
2
MsgBox "INSERT INTO INSERTION_SORTIE (droits_sociaux)" & _
"VALUES ('" & Me.droits_sociaux.Value & "');"

Et voit ce que cela te donne.

@+.

[f-leb]

bonjour,

droits_sociaux correspond à une liste à choix multiples

il faut donc gérer la multisélection et balayer les items sélectionnés, par exemple:

Code :

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

1
2
3
4
Dim selMult as variant
For Each selMult In Me.MaListe.ItemsSelected
    Debug.Print Me.MaListe.ItemData(selMult)
Next selMult

[DébutantAccess]

zoom, cela me donne le même message d'erreur, j'ai réussie à cerner l'erreur grace à cette méthode (que tu m'avais déjà donné et je t'en remercie =) ).
f_led comment j'incorpore ça dans mon INSERT INTO? Il y a une syntaxe particulière pour les choix multiples? C'est pourtant du texte, non?

[zoom61]

Cela doit ressembler à quelque chose comme cela :

Code :

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

1
2
3
4
5
Dim selMult as variant
For Each selMult In Me.MaListe.ItemsSelected
    DoCmd.RunSQL "INSERT INTO INSERTION_SORTIE (droits_sociaux)" & _
"VALUES ('" & Me.droits_sociaux.ItemData(selMult) & "');"
Next selMult

@+.

[DébutantAccess]

Ca ne marche pas non plus, mon code:

Code :

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

1
2
3
4
5
Dim selMult As Variant
For Each selMult In Me.droits_sociaux.ItemsSelected
    MsgBox "INSERT INTO INSERTION_SORTIE (droits_sociaux)" & _
"VALUES ('" & Me.droits_sociaux.ItemData(selMult) & "');"
Next selMult

le problème c'est que ma requête INSERT INTO ajoute 7 champs. C'est donc plus long.
Il n'y a pas plus simple comme écriture?

[zoom61]

Mais obtiens tu 7 messages avec le code donné.

@+.

[DébutantAccess]

Excuse moi je reforme ma phrase,
Mon erreur se produit sur mes 3 champs qui sont des: listes déroulantes à choix multiples.

La requête que je vous ai mise sur le forum ne désigne qu'un seul de ces 3 champs.

La vrai requête insére 7 champs, (4 zone de texte et les 3 champs à choix multiples)

et lorsque je clique sur le bouton, rien ne se passe pour te répondre

[zoom61]

La vrai requête insére 7 champs, (4 zone de texte et les 3 champs à choix multiples)

Peux-tu mettre un exemple, de ce que tu sélectionnes et ce que tu souhaites à la fin... car je ne comprends pas tout...

@+.

[DébutantAccess]

En gros voilà ma requête, tout les champs s'insère bien sauf les 2 champs à choix multiple qui sont : droits_sociaux et DS

Code :

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

1
2
DoCmd.RunSQL "INSERT INTO SITUATION_ADMINISTRATIVE_SORTIE (num_usager, niveau, dip, potentiel, situation, annee, droits_sociaux, DS) " & _
"VALUES ( " & Me.num_usager_SA.Value & ", '" & Me.niveau.Value & "', '" & Me.dip.Value & "', '" & Me.potentiel.Value & "', '" & Me.situation.Value & "', '" & Me.annee.Value & "', '" & Me.droits_sociaux.Value & "', '" & Me.DS.Value & "' ) "

[zoom61]

Mais toutes tes valeurs sont uniques ou as-tu des données qui peuvent avoir plusieurs réponses ?

• Me.num_usager_SA.Value => 1 valeur
• Me.niveau.Value => 1 valeur
• Me.dip.Value => 1 valeur
• Me.potentiel.Value => 1 valeur
• Me.situation.Value => 1 valeur
• Me.annee.Value => 1 valeur
• Me.droits_sociaux.Value => 1 valeur
• Me.DS.Value => 1 valeur

[DébutantAccess]

Me.num_usager_SA.Value => 1 valeur (numérique)
Me.niveau.Value => 1 valeur (zone texte)
Me.dip.Value => 1 valeur (zone texte)
Me.potentiel.Value => 1 valeur (zone texte)
Me.situation.Value => 1 valeur (zone texte)
Me.annee.Value => 1 valeur (zone texte)
Me.droits_sociaux.Value => plusieurs valeurs (liste à choix multiples)
Me.DS.Value => plusieurs valeurs (liste à choix multiples)

[zoom61]

Code :

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

1
2
3
4
5
6
7
8
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, dip, potentiel, situation, annee, droits_sociaux, DS) " & _
		"VALUES ( " & Me.num_usager_SA.Value & ", '" & Me.niveau.Value & "', '" & Me.dip.Value & "', '" & Me.potentiel.Value & "', '" & Me.situation.Value & "', '" & Me.annee.Value & "', '" & Me.droits_sociaux.ItemData(selMult1) & "', '" & Me.DS.Value.ItemData(selMult2) & "' ) "
	Next selMult2
Next selMult1

[f-leb]

re,

droits_sociaux et DS ne seraient-ils pas en plus des champs multivalués ?

[DébutantAccess]

Merci pour tout, ça fonctionne, =)