Discussion :

[biquet52]

Bonjour,

je suis en train de réaliser une prévision de travaux pour une liste de contrat.

Dans mon formulaire, je dois entrer:
- la personne en charge,
- le type d'intervention
- le ou les mois d'intervention

Pour un contrat, je peux avoir plusieurs interventions sur l'année.

J'ai donc créé une listebox avec les différents mois de l'année, avec une sélection multiple possible.

Cette sélection est réenvoyée dans une base de données prévision dans un champ texte mois (concaténation des mois sélectionnés séparés par une virgule)

J'aimerais, dans le cas d'une sélection multiple du mois, avoir les enregistrements (personne en charge, type intervention) qui se répète pour les diférents mois.

Exemple:
Actuellement --> une seule ligne d'encodage dans ma base

Personne en chage : Mr X
Type intervention : entretien
Mois : Janvier , Mars, Mai

Ce que je voudrais --> trois lignes d'encodage avec le mois qui change dans ma base

Personne en charge : Mr X
Type intervention : entretien
Mois : Janvier

Personne en chage : Mr X
Type intervention : entretien
Mois : Mars

Personne en chage : Mr X
Type intervention : entretien
Mois : Mai

Merci d'avance pour votre aide

[Marc_27]

Bonjour biquet52.

Ton formulaire est independent ou liée à une table?

[biquet52]

Bonjour,

il est lié à une table

[Marc_27]

Je pense qu'il serait plus facille de le faire independent, et comme ça tu pourrais l'enregistrer avec les RecordSets (ADO ou DAO).

La tu pourrais faire une boucle FOR...NEXT sur ta liste des mois et pour chaque element selectione faire un enregistrement diferent.

[biquet52]

Bonjour,

merci pour ta réponse.

Peux-tu me donner un exemple de code pour effectuer cette opération?

Merci

[Marc_27]

C'est pas detaillé, mais il faut faire quelque chose jor:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
For i=0 to me.Liste.listcount-1
    If me.Liste.listindex(i).selected=true then
        dim rs as new adodb.recordset
        Set rs = New ADODB.Recordset
        rs.ActiveConnection = CurrentProject.Connection
        rs.Source = "SQL"
        rs.CursorType = adOpenDynamic
        rs.LockType = adLockOptimistic
        rs.Open
        rs.addnew
        'Actions
        rs.update
    end if
next i

c'est plus ou moins ça, mais il peut avoir des erreurs...

[biquet52]

merci pour votre réponse.

Pourriez-vous tester votre code avec ma base de données , si ce n'est pas trop vous demandez, car je viens de tester et ça ne fonctionne pas, j'ai bien modifier quelques trucs dans votre code, mais en vain.

Merci d'avance

[Marc_27]

Quel est la message d'erreur?

[biquet52]

Erreur d'exécution '-2147217900 (80040e14)':
Instruction SQL non valide; 'DELETE', 'INSERT', 'PROCEDURE', 'SELECT' ou 'UPDATE' attendus.

[Marc_27]

Quel est l'instructions SQL qui t'es en train d'utiliser?


Tu peux mettre ton code, stp?