[access 2003]champs multi-valués

Version imprimable

09/01/2008, 16h52
Milyshyn76

[access 2003]champs multi-valués

Bonsoir à tous

de nouveau moi pour encore un gros soucis.

Voilà, je suis toujours bloquée sur ces groupes de plan de compte.

Je vous explique le topo :

Table compte (pour ceux qui ont suivi le projet vous devriez vous en rappeler)

nom_compe ;n°compte ; selectionner (case à cocher)
compte1.....;623.........;[X]
compte2.....;624.........;[X]
compte3.....;625.........;[ ]

Puis table Groupe
id_groupe ;nom_groupe; liste_compte ==>
1............;groupe1..... ;623 ; 624

enfin table groupe_details
id_groupe ; compte
1............;623
1............;624

dans le champs liste_compte de la table groupe, c'est un champs multivalué, il se rempli en fonction de compte que je coche ou non...

Comment faire ?

J'ai regardé les tutos mais je n'ai pas trouvé de solution

mercis

Bon je ne connais pas trop les champs multivalués mais je vais essayer quand même.

Donc ne prend pas ce que je vais dire comme la bonne parole mais comme une probable connerie :mrgreen:

bon si j'ai bien compris tu affectes à ton champs liste_compte la valeur des tous les comptes sélectionnés, c est bien ça ?

J'aurais peut être une idée mais bon ... pas sûr ...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Dim rst As Recordset Dim strList As String 'recherche des comptes cochés Set rst = CurrentDb.OpenRecordset("SELECT n°compte FROM compte WHERE selectionner = 1;") 'ensuite création d'une chaine comprenant ta liste strList = "" Do While rst.EOF strList = strList & rst!n°compte & ";" Loop Set rst = Nothing

Il ne faut pas négliger le numéro de groupe :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim sql as string
'tu selectionne tous groupes et les comptes selectionnes de chaque groupe
sql="Select groupe_details.id_groupe, groupe_details.N°compte "
sql=sql &"from compte inner join groupe_details on (compte.N°compte = groupe.N°compte) "
sql=sql &"where compte.selectionner = 1"
 
set rs = currentdb.openrecordset(sql)
while not rs.eof
      'tu met a jour pour chaque groupe ta variable liste_compte
      sql="update groupe set liste_compte = liste_compte &'" &rs.fields(1) &";'"
      sql= sql &" where id_groupe = " &rs.fields(0)
      docmd.runsql(sql)
wend

je pense que cela devrait t'aider :D

09/01/2008, 22h57
Milyshyn76

La je suis rentrée chez moi... Mais la procédure bug encore plus avec access 2007 est ce normal?

Citation:

Envoyé par Galladan

Bon je ne connais pas trop les champs multivalués mais je vais essayer quand même.

Donc ne prend pas ce que je vais dire comme la bonne parole mais comme une probable connerie :mrgreen:

bon si j'ai bien compris tu affectes à ton champs liste_compte la valeur des tous les comptes sélectionnés, c est bien ça ?

J'aurais peut être une idée mais bon ... pas sûr ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim rst As Recordset
Dim strList As String
 
'recherche des comptes cochés
Set rst = CurrentDb.OpenRecordset("SELECT n°compte FROM compte WHERE selectionner = 1;")
 
'ensuite création d'une chaine comprenant ta liste
strList = ""
Do While rst.EOF
    strList = strList & rst!n°compte & ";"
Loop
 
Set rst = Nothing

J'ai essaié ce code : il marche mais pas tout à fait...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Commande54_Click() '=sauvegarder groupe = deuxieme prcoédure a revoir
Dim rst As Recordset
Dim rs, rs2, rst1, rst2 As Recordset
Dim var As Variant
Dim titi, toto, vselect As String
Set rs = CurrentDb.OpenRecordset("select n°compte from comptes where selectionner = -1")
 
If Me.nom_groupe.Value <> "" Then
strList = ""
Do While Not rs.EOF
'insertion dans groupe_details
Set rst = CurrentDb.OpenRecordset("select * from groupe_details")
CurrentDb.Execute "insert into groupe_details(id_groupe,compte) values ('" & id_groupe & "','" & rs!n°compte & "') ", dbFailOnError
'insertion dans groupe : champs multivalué
strList = strList & rs!n°compte & ";"
DoCmd.RunSQL "insert into groupe(id_groupe,nom_groupe,liste_compte) values ('" & id_groupe & "','" & nom_groupe & "','" & strList & "')"
 
rs.MoveNext
Loop
Set rs2 = Nothing
Else
titi = MsgBox("Veuillez entrer un nom de groupe ! ", vbExclamation, " WORKFLOW")
End If

mais il n'entre pas ces valeur dans le champs, pourtant lors de l'exécution, il insere pas les valeurs...

10/01/2008, 09h40
Milyshyn76

Citation:

Do While Not rs.EOF ' boucle sur le champs n°compte de la table comptes

'insertion dans groupe_details
Set rst = CurrentDb.OpenRecordset("select * from groupe_details")
CurrentDb.Execute "insert into groupe_details(id_groupe,compte) values ('" & id_groupe & "','" & rs!n°compte & "') ", dbFailOnError

'insertion dans groupe : champs multivalué
strList = strList & rs!n°compte & ";"

rs.MoveNext
Loop
Set rst2 = CurrentDb.OpenRecordset("select * from groupe")
CurrentDb.Execute "insert into groupe(id_groupe,nom_groupe,liste_compte) values ('" & id_groupe & "','" & nom_groupe & "','" & strList & "')", dbFailOnError

Set rs = Nothing

Il fallai mettre dbfailonerror a la fin de ma requete
10/01/2008, 09h50
Milyshyn76

Oula fause alerte, il me genere l'erreur 3022 modification non effectué , risque de doublons dans champs indexé
10/01/2008, 11h52
Taoueret

Je ne comprend pas trop ce que tu veux faire...
Quelles informations saisit l'utilisateur dans le formulaire ?
Est-ce qu'il saisit un groupe existant dans une liste déroulante ou est-ce qu'il saisit un nouveau nom de groupe ?

D'après ton code, si le champ nom_groupe est vide, il va qd même ouvrir un recordset et inserer dans la table groupe des enregistrements avec nom_group = null ...

De plus, essaie juste de faire un peu de ménage dans tes noms de variable car tu utilises rs mais tu mets à la fin setrs2 = nothing :?
10/01/2008, 12h01
Milyshyn76

Citation:

Private Sub Commande54_Click() '=sauvegarder groupe = deuxieme prcoédure a revoir
Dim rst As Recordset
Dim rs, rs2, rst1, rst2 As Recordset
Dim var As Variant
Dim titi, toto, strList As String

Set rs = CurrentDb.OpenRecordset("select n°compte from comptes where selectionner = -1")

If Me.nom_groupe.Value <> "" Then
Me.liste_compte.Value = strList
strList = ""
Do While Not rs.EOF ' boucle sur le champs n°compte de la table comptes

'insertion dans groupe_details
Set rst = CurrentDb.OpenRecordset("select * from groupe_details")
CurrentDb.Execute "insert into groupe_details(id_groupe,compte) values ('" & id_groupe & "','" & rs!n°compte & "') ", dbFailOnError

'insertion dans groupe : champs multivalué
strList = strList & rs!n°compte & ";"

rs.MoveNext
Loop
Set rs = Nothing
Set rst2 = CurrentDb.OpenRecordset("select * from groupe")
CurrentDb.Execute "insert into groupe(id_groupe,nom_groupe,liste_compte) values ('" & id_groupe & "','" & nom_groupe & "','" & strList & "')", dbFailOnError
Me.Undo
DoCmd.Close
DoCmd.OpenForm "groupe"

Else
titi = MsgBox("Veuillez entrer un nom de groupe", vbExclamation, "WORKFLOW")

End If

La voici, j'ai supprimer dans la table la clef primaire tt en laissant un numéro automatique. Mais maitenant il me rentrer les donnée en double
10/01/2008, 15h28
Milyshyn76

Re!

Voila maintenant c'est nouveau, il n'accepte pas cette requête!!!

Code:

CurrentDb.OpenRecordset "insert into groupe(id_groupe,nom_groupe,liste_compte) values ( '" & id_groupe & "','" & nom_groupe & "','" & strList & "')", dbFailOnError

erreur d'exécution opération non valide!!!!

Je vais peter un plombs là!!! aidez moi svp :lol:
11/01/2008, 10h35
Taoueret

C normal qu'il n'accepte pas cette requête. Un recordset s'ouvre avec une requête select ou juste un nom de table.

Fais plutôt un docmd.runsql ("insert into ...")
11/01/2008, 12h09
Milyshyn76

Ma requete fonctionne qu'a moitier puisqu'elle me renvoie bien le champs multi valué, mais le soucis c'est qu'elle l'insere en double dans la table sauf liste_compte...

hello
bon voila, alors au lieu de faire un insert into en sql
j'ai fais un update... le voici :

Code:

CurrentDb.Execute "update groupe set nom_groupe='" & Me.nom_groupe & "',liste_compte='" & strList & "' where id_groupe=" & id_groupe

pour mon champs multi valué
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 strList = "" If Me.nom_groupe.Value <> "" Then Do While Not rs.EOF strList = strList & rs!n°compte & ";" CurrentDb.Execute "insert into groupe_details(id_groupe,compte) values ('" & id_groupe & "','" & rs!n°compte & "') ", dbFailOnError rs.MoveNext Loop Set rs = Nothing 'CurrentDb.Execute " insert into groupe(nom_groupe,liste_compte) values ('" & Me.nom_groupe & "','" & strList & "' )where id_groupe=" & id_groupe CurrentDb.Execute "update groupe set nom_groupe='" & Me.nom_groupe & "',liste_compte='" & strList & "' where id_groupe=" & id_groupe
Voilou pour tous et un grand merci pour vos coups de mains... je reviens pour un autre problème héhé.:yaisse2: