Liste de choix multiple sous ACCESS...

Question

Bonjour &#224; tous ! 







Le grand d&#233;butant que je suis a un grand souci...







J'ai une liste de choix multiple dans un formulaire... dans cette
derni&#232;re, je peux sans aucun probl&#232;me s&#233;lectionner les valeurs que je
d&#233;sire.







Mais comment faire pour que les valeurs s&#233;lectionn&#233;es se retrouvent dans le champs de ma table correspondant ?



Et qu'en plus les valeurs soient s&#233;par&#233;e par un point virgule ou un autre caract&#232;re ?







Je ne sais pas si je suis tr&#232;s claire ?



Je s&#232;che... quelqu'un aurait il la bont&#233; de m'aider ?? 







Bonne fin de journ&#233;e

Slyders · Answer

Faut ouvrir ta base de donn&#233;e et bien sur la d&#233;clarer avant et activer le composent Microsoft DAO 3.5 pour access 97 et 3.6 pour 2000

Dim mabase as database
Dim jeu as recordset
  
Set mabase = opendatabase( app.path & "/mabse.mdb")
Set jeu = mabase.openrecordset("TABLE01")
  jeu.AddNew
    jeu!champ01= txt01.Text
    jeu!champ02= txt02.Text  
    jeu!champ03= Month(txt03.Text)
    jeu!champ04= combobox01.ItemData(combobox01.ListIndex)
    jeu!champ05= list.ItemData(list.ListIndex)

    jeu.Update
jeu .close
mabase.close

pour s&#233;parer tes donn&#233;e tu fait :
jeu!champ01= txt01.Text & ";" & txt02.Text & ";" & txt03.Text

En esp&#233;rant que  cela puisse t'aider...

bilobao · Answer

Merci de t'attarder sur mon sort Slyders !







Je suis sous Access 2002... j'ai donc activ&#233; le composent Microsoft DAO 3.6 Object Library dans les r&#233;f&#233;rences.







Et j'ai essay&#233; d'adapter ce code et je l'ai mis dans une proc&#233;dure &#233;v&#233;nementiel apr&#232;s MAJ de mon champ.







Mais j'obtiens une erreur 13 (Incompatibilit&#233; de type) sur la ligne Set jeu = mabase.openrecordset("TABLE01")

(J'ai bien d&#233;fini ma table  "Societe" &#224; la place de "TABLE01")



Je vais juste essayer d'&#234;tre plus clair.



Dans mon formulaire, mon champ d&#233;roulant de s&#233;lection &#224; choix multiple s'appelle "Listed"

(il porte le m&#234;me nom dans ma table qui se nomme "Societe") et il
contient les valeurs... SWX ; Paris ; Francfort ; New York ; London ;
Other.



J'aimerais donc juste que les valeurs que je s&#233;lectionne s'inserent dans ma table avec un ";" s&#233;parateur....



Merci encore de ton aide :)



Bil

Slyders · Answer

colle ton code ici que je voie ou est le pb

bilobao · Answer

Voil&#224; ce que j'ai pour le moment... La partie "jeu.AddNew" n'est pas encore tr&#232;s claire...



Private Sub Listed_AfterUpdate()
Dim mabase As Database
Dim jeu As Recordset

Set mabase = OpenDatabase("C:\SFYB2005.mdb")
Set jeu = mabase.OpenRecordset("Societe")
    jeu.AddNew
        jeu!Listed = txt01.Text
        jeu!Listed = txt02.Text

    jeu.Update
jeu.Close
mabase.Close
End Sub

Slyders · Answer

ta un pb la dans un champ tu y met une  valeur et dans se mem champ apres tu y met une autre valeur
tu devrai faire:
dim tavariable as string

...

tavariable =  txt01.Text & ";" & txt02.Text
 
jeu!Listed = tavariable

bilobao · Answer

Autant pour moi... D&#233;sol&#233;... 



J'ai donc corrig&#233; comme ce qui suit.. mais j'ai un erreur "Membre de m&#233;thode ou de donn&#233;es introuvable" sur .Text 



Encore une fois je suis un grand d&#233;butant et j'y vais un peu en tatonnant....

Private Sub Listed_AfterUpdate()
Dim mabase As Database
Dim jeu As Recordset

Set mabase = OpenDatabase("C:\SFYB2005.mdb")
Set jeu = mabase.OpenRecordset("Societe")
    jeu.AddNew
        jeu!Listed = Paris.Text & ";" & London.Text & ";" & Francfort.Text & ";" & New York.Text

jeu.Update
jeu.Close
mabase.Close
End Sub

Slyders · Answer

tes PAris.text, london.text se sont bien des text box qui se nome PAris et London ?

heu ton listed dans ta base de donn&#233;e peut il tenir autant de caractere ?

bilobao · Answer

non non... mon paris london etc... sont dans la liste de valeur de ma zone de liste... 



En ce qui concerne le champ Listed il peut tenir 200 caract&#232;res...

Slyders · Answer

ha vi c vrai que j'avait oublier cet histoi de Zone de list
donc une zone de list sa s'ecrit pas en .text

jeu!Listed = Paris.List(Paris.ListIndex) & ";" & London.List(London.ListIndex) & ";" & NewYork.List(NewYork.ListIndex) 

evite les espace avec New York donc met NewYork
donc la tu as 3 list box si je ne me trompe pas
Pour texpliquer a quoi correspond cela : Paris.List(Paris.ListIndex) alors Paris.list = c ce qui est textuel et affich&#233; donc c ce que tu as s&#233;lectioner
Paris.listindex c le numero de la ligne selectioner
donc enfaite le programme prend le texte de ta ligne selectioner dans ta listbox

houla j'espere avoir &#233;t&#233; &#224; peu pr&#232;s clair. (dsl pour les fautes d'ortho, fleme de me relire)

bilobao · Answer

Slyders Merci de ton aide !!!

J'ai fais quelques recherche aujourd'hui et j'ai enfin touv&#233; ce que je voulais...

Voil&#224; le code si &#231;a peut aider qqn...


Dim i As Variant
    For Each i In Me!Listed.ItemsSelected
 Listed = Me!Listed.ItemData(i) & ";" & Listed
    Next i

Merci encore...

bilobao · Answer

oups....



For Each i In Me!Listed.ItemsSelected

Listed = Me!Listed.ItemData(i) & " " & Listed

Next i

Liste de choix multiple sous ACCESS...

11 réponses

Discussions similaires