ListBox avec la propriété Style à CheckBoxRésolu

Question

Bonsoir à tous, j'ai déjà parcouru le forum et les codes sans trop de succès je me permets donc de vous poser clairement ma question.

Je développe un projet en VB6. Ce projet à pour but d'imprimer des étiquettes par rapport à un état créé avec CrystalReport !

Mon problème se pose au niveau de la sélection des personnes que j'aimerais imprimer. Au fait une liste des personnes est affichée dans une ListBox qui a la propriété Style à Checkbox. J'aimerais grâce à un bouton pouvoir tout cocher comme lorsque l'on rempli un formulaire... Mais aussi pouvoir tout décocher !

Autre chose que je me demande, comment faire une fois mes ittem sélectionnés, récupérer mes données et par rapport à cela savoir imprimer que ce que j'ai selectionné !

J'espère avoir été clair dans ma demande si pas je ferais mon possible pour vous fournir d'autre informations !

Merci beaucoup d'avance J-il

chaibat05 · Accepted Answer

Bonsoir,


sélectionner tout


For i=0 to List1.ListCount-1
  List1.Selected(i) = True
Next


désélectionner tout


For i=0 to List1.ListCount-1
  List1.Selected(i) = False
Next


Pour l' Etat
Fais en sorte que ton etat ait pour source une table temporaire que tu metS
à jour selon la sélection.
La source peut aussi être une requête sélection dont ferait partie.ta table temporaire

J_il · Answer

Bonjour, merci beaucoup pour tes informations cela fonctionne à merveille... 

Mais je ne comprend pas ce que tu veux dire par état avec une table ????

Je suppose que tu veux dire que lorsque je sélectionne un item je dois les placer dans un tableau temporaire pour les récupérer c'ets bien ça ? Si oui pourrais-tu me donner quelques pistes ???

merci beaucoup bonnee journée J-il

cs_MPi · Answer

Tu parles de VB6... est-ce bien VB6 ? ou VBA Excel ? ou VBA Access ?
J'ai pris l'habitude de demander parce que beaucoup de gens ne font pas la différence...

MPi

chouchou270403 · Answer

J'ai bien mis VB6 dans mon premier message

chaibat05 · Answer

Bonjour et salut MPi,
Excuses moi CHOUCHOU,
je me suis peut être égaré  à propos de l' impression...
car toujours  quand j' entend Imprimer, vient tout de suite 
à mon esprit  Etat lié à une base de données.
C' est que je travaille tout le temps avec Crystal Report 
(déformation professionnelle !)
Ceci étant , je n' ai pas idée de ce que tu comptes utiliser 
comme support .

J_il · Answer

Pas de problème Chaibat05... Je vais t'expliquer ce que mon application doit pouvoir faire.

Au fait j'ai une base de donnée acces avec une table qui s'appelle DONNEES et qui contient 5 champs : nom, prenom, adresse, code_postal et localite.

Ensuite mon interface doit me permettre d'ajouter des contacts dans la BDD (ça pas de problème tout fonctionne à merveille) mais aussi par rapport à cette base de données de pouvoir imprimer des étiquettes avec les coordonnées des personnes de la BDD.

Mais autre petite explication. Je dois pouvoir faire des étiquettes avec tous mes contacts ou bien pouvoir en sélectionner quelques uns. Ce qui fait que j'utilise une ListBox avec la propriété Style à Checkbox afin de pouvoir chocher les contacts que je veux imprimer sous forme d'étiquettes.

Mes problèmes sont au niveau de la création de l'état CrystalReport et du code pour mes sélection dans ma listbox !!!

Au finale si tout fonctionne, ben par rapport au choix de personne fait, une feuille de papier autocollante d'etiquettes sera imprimée avec les contacts...

J'espère que j'ai été clair cette fois-ci lol 

Merci beaucoup de ton aide. 

J-il

chaibat05 · Answer

Tout à fait chouchou,
j' ai tout simplement confondu avec j-il qui s' est interrogé:
....   état avec une table ????




Si ton etat te permet d' editer tout les contacts 
alors  dans ta table temp tu insères les identifiants 
des contacts selectionnés dans la list et tu fais une 
liaison Table Temp ---> Table DONNEES sur CodeContact
(nom d' après l' exemple)
et spécifier dans la relation : 
"Tout les enregistrements de table Temp et seulement ceux....etc

J_il · Answer

Au fait chouchou c'est moi, c'est mon autre compte... qui ne me sert plus et je me suis un peu embrouillé avec lol

Je suis désolé mais je ne comprend pas ce que je dois faire... je réflechi sur papier pour voir comment procéder à l'élaboration de ce programme mais je ne trouve aucune piste correcte...

J-il

chaibat05 · Answer

ah bon c' est ça...!
Agent double en quelque sorte 

Voilà ce que tu dois faire:
1° tu déclares ton recordset et tu le lies à Temp

2°tu parcours ta liste:
For i=0 To List1.Liscount-1
  If List1.Selected(i)=True Then
   xNom=List1.List(i)
     rs.AddNew
      rs![nom]=xNom
      rs.Update
   End if

Next

schema


TEMP         DONNEES
nom  --->     nom
                   prenom
                   adresse
                   code_postal
                   localite




et ton etat restera valable pout "Imprimer Tout"
si tu sélectionne tout


recommandation:
Vide toujours Temp avant d' insérer les items séléctionnés

J_il · Answer

Merci beaucoup de cette réponse, maintenant je vais essayer d'analyser afin de comprendre et puis me lancer dans la code... Je tiens au courant de la suite !

Merci J-il ou l'agence double mdr

J_il · Answer

Voila le code est plus ou moins compris... Mais il me donne des erreurs... ==> Méthode ou membres de données introuvables

Voici comment je fais dans un bouton !

On Error GoTo erreur 'Gestion des erreurs

Dim str_nom_prenom As String
Dim i As Integer

Set ws = DBEngine.Workspaces(0)                                                      'ouverture de l'espace de travail
Set ma_bdd = ws.OpenDatabase(bdd_etiquettes.DatabaseName)           'ouverture de la base de données
Set rst = ma_bdd.OpenRecordset("TABLE_TEMPORAIRE")                'ouverture du RecordSet

For i = 0 To list_box_choix_personne.Liscount - 1

  If list_box_choix_personne.Selected(i) = True Then
  
        str_nom_prenom = list_box_choix_personne.List(i)
        rst.AddNew
        rst!nom = str_nom_prenom
        rst.Update
      
   End If

Next

rst.Close
ma_bdd.Close
Workspaces(0).Close

Exit Sub
erreur:
    Call fct_journal_erreurs(Err.Number, Err.description, "bouton enregistrer un nouveau contact.")

J'espère que tu comprendras mon code ! Si pas je peux te mettre mon prog sur un ftp ou l'envoyer afin que tu puisse mieux comprendre !!!!

J-il

J_il · Answer

Petite modification cela fonctionne si je modifie la boucle for de cette manière :

For i = 0 To 8 - 1

  If list_box_choix_personne.Selected(i) = True Then
  
        str_nom_prenom = list_box_choix_personne.List(i)
        'str_nom_prenom = List1.List(List1.ListIndex)
        int_position = InStr(str_nom_prenom, Chr(32))
        str_nom = Left(str_nom_prenom, int_position - 1)
        str_prenom = Mid(str_nom_prenom, int_position + 1)
        
        rst.AddNew
        rst!nom = str_nom
        rst!prenom = str_prenom
        rst.Update
      
   End If

Next

Comme ceci je ne rencontre plus l'erreur.. et il m'ajoute bien dans ma table temporaire mes éléments

chaibat05 · Answer

Bonsoir,
l' erreur était dans:
For i = 0 To list_box_choix_personne.ListCount - 1
Maintenant tu peux remplacer 7 par ça, c' est mieux...

A part ça , ça avance ton travail ? 

A+

J_il · Answer

Bonjour, merci de m'avoir répondu mais j'avais trouvé l'erreur après quelques autres essais... mais merci tout de même !

Mon projet avance mais je bloque encore sur l'ajout des données dans la table temporaire ! Il ne m'ajoute que le nom et le prénom. Je ne sais pas comment faire pour que les autres informations comme l'adres, le code postal et la localité suivent ????

Je cherche et ne trouve pas lol comme dirais Ophélie !!!!

Si tu veux je peux mettre mon prog sur un ftp pour que tu puisse te rendre compte de ce que je fais et peut-être mieux comprendre ?

Sinon un grand merci de prendre des nouvelles comme ça c'est cool de pouvoir partager !

J-il

chaibat05 · Answer

Bonjour,
je suis content que tu donnes suite, 
car j' ai tenu absolument à te donner quelques recommandations:


1° Ne pas indexer ta table données sur Nom...ça t' as causé enormément
de problèmes .Dans le cas ou il y' aurait deux personnes avec le même Nom 
Ceci t' a poussé à rajouter le Prenom.Problème, ta table DONNEES étant indéxée
sur Nom., il n' y ' aura pas de relation possible.


Solution:
- Rajouter une Colonne Code à ta table DONNEES (Recommandé )
-Ou bien utilises une requête dans la quelle tu génère un champ 
  Nom_Prenom (Peu recommandé, il y' aura toujour possiblité de doublon !)


2° Dans ta table temporaire tu n' as pas besoin d' insérer tous las champs.
Ta table ne doit avoir qu' un champ, Il faut ajouter juste l' identifiant.
 Si l' identifiant est Code tu ajoute Code
Si c' est Nom_Prenom tu ajoutes Nom_Prenom
 schema


TEMP         DONNEES
CODE   --->  CODE
                   nom
                   prenom
                   adresse
                   code_postal
                   localite


ton rapprt comportera les champ
CODE  nom  prenom  adresse  code_postal  localite


Autre chose
utilise une list view au lieu d' une listbox, c' est plus 
gérable quand tu dois afficher plusieures colonnes
Le principe de la selection reste le même.
Il faudra juste changer 
List.Selected(i)=True
Par 
ListView.ListItems(i).Checked=True


Réfléchis à ça, on verra ensuite


a+

J_il · Answer

Merci de ton suivi c'est super cool ici je suis en train de faire d'autre truc pour avancer un peu mais tu n'a pas une mauvaise idée du tout 

Je te tiens au courant J-il

J_il · Answer

Bonjour à toi chaibat05, voilà c'est pour te dire que j'ai enfin réussit à mettre tous mes champs avec mes données dans la table temporaire et ce grâce à un champs mis en relation !

Je me suis donc atelé pour le moment à la gestion des erreurs et la gestion des controle afin que mon programme avance...

Maintenant je vais essayer de voir ce que je peux faire avec crystal report comme état pour faire des étiquettes a imprimer directement sur des vignettes autocollantes !

Je te souhaite un bon dimanche et de bonne vacances de pâques  J-il

chaibat05 · Answer

Bonjour,
c' est bien !
Une fois terminé,n' oublies pas de poster ton code, ça pourra 
servir peut être à d' autres.On pourra aussi voir si on peut l' optimiser.


Allez, bonne continuation et bonnes vacances à toi aussi....


Amitiés...

J_il · Answer

Bonjour chaibat05,

C'est pour te donner de mes news sur mon prog ! Voilà après des tests etc, j'ai quelques petits problème si je supprimes des enregistrements dans ma BDD. 
Au fait comme c'est un auto incrémenté, il continue le numéro ce qui fait que si j'ai 8 enregistrements que je supprime tout, et que je rajoute un enregistrement il recommence à 9 jusque la c'est normal lol mais si j'essaie de faire la copie dans ma table temporaire pour l'impression, un bug apparait au niveau des relations et il ne veut pas me l'ajouter !

Donc pour le moment je ne supprime plus d'enregistrements et tout fonctionne lol

Sinon au niveau de la création de l'état pour le format d'étiquette je rame un peu à trouver dans crystalreport comment faire....

Je te tiens au courant de la suite du programme

Bonne fin de semaine J-il

chaibat05 · Answer

Bonjour,
ton problème de BD vient sûrement du fait que 
ton Identifiant est de Type Numéro Auto.
Remplaces le par Entier Long.Comme ça tu auras le choix 
de IdClient lors de l' ajout ou la modification dans Table Clients.
(en faisant bien attention qu' il n' y est pas de doublon).
Pour ajouter un nouveau, il suffit de récupérer le dernier et de l' incrémenter.
Chose que tu ne peux pas faire avec N° Auto puisque tu ne peux pas affecter une 
valeur à ce champ ni même le modifier.Et si quand tu supprimes tout, il reprend 
à partir du dernier, c' est , je suppose, paece qu' il conserve cette valeur dans un 
fichier Index lié à ta table


Si tu fais comme je t' ai proposé, avec la relation Clients --> Temporaire
tes lignes seront automatiquement mises à jour dans Temporaire.


Pour l' etat, il y' a une option "Etiquette"  dans  "Style de l' etat".
Sinon tu peux toujours le faire avec insertion de groupe = IdClient
et tu positionnes tes champs dans cette section en masquant ou en supprimant 
toutes les autres sections...


Si tu n' as pas encore compris le système, voici donc comment tu dois procéder:


1° Nouvel Etat
2° Lié en premier à Temporaire (qui ne doit comporter q' un seul champ: IdClient)
3° Ajoutes la Table Clients (Menu/Ajouter une base de données et choisies ta table Clients)
4° Dans la liaison visuelle tu remarqueras que les deux tables seront automatiquement
liées sur IdClient
5° Ajoutes à ton Etat : Clients.Nom, Clients.Prenom, Clients.Adresse etc...


et le tour est joué...!


N' oublies pas que dans ton code et  avant chaque nouvelle sélection, tu dois vider
d' abord ta table Temporaire.
Ensuite dans Fichier/options de l' etat, décoches "Enregistrer les données avec l' Etat..."
Puis dans Etat/Mettre à jour avant chaque impression" .


Bon j' espère que ça ira comme ça...


Bonne continuation...


Amitiés

J_il · Answer

Merci de ta réponse, mais je pense qu'on ne travail pas avec la même version de crystal report moi c'est la version 7.0 que j'utilise !
J'ai essayé ce que tu m'as expliqué mais je n'y arrive pas ça commence à me gonfler lol enfin je persévère mais bon je dois avoir fini pour la rentrée j'espère donc que ça va mieux ce dérouler par la suite !

Bonne fin de journée. 

J-il

J_il · Answer

Marre marre marre grrrrrrrrrrrrrr 

Voila j'essaie tant bien que mal de terminer mon projet mais je n'y arrive pas... je ne comprend pas ce que je dois faire avec Crystal report etc et ni l'impression alors je laisse tomber je péte les plomb tant pis

Je te mets tout de même mon code au cas où tu voudrais jetter un oeil !

Merci J-il 

Lien du code sur mon ftp : http://membres.lycos.fr/catherinegilles/Travail%20paques%20-%20Etiquette%20VB%20vs%20CR.rar

chaibat05 · Answer

salut,

grrrrrrrrrrrrrr  


Désolé, mais j' ai pas pu ouvrir le .rar.
Message d' erreur : "Aucune archive trouvée... "


Navré de n' avoir pu t' aider d' avantage...


 ps: dernière tentative...
si tu n' arrives pas à configurer ton etat avec deux tables, crées une requête
directement dans access , et qui sera la source de données pour ton etat.


   Temp                 Clients
 CodeClient           CodeClient 
                             Nom
                             Prenom
                             Adresse


ta requête te renvoie
Temp.CodeClient, Clients.Nom, Clients.Prenom, Clkients.Adresse


et ce sont ces champs qui figureront dans ton etiquette.
A chaque fois que tu renouvelles ta table Temp, tu auras les etiquttes 
correspondantes.


Bon courage pour la suite...

J_il · Answer

Merci de ta réponse, mais dommage que chez toi le désarchivage ne fonctionne pas je comprend pas car moi quand je télécharge le fichier ça fonctionne... Au cas ou je le désarchive avec Winrar...

Je vais essayer de réflechir à ça mais bon !

Merci de tes encouragement la j'en ai grand besoin lol

J-il

J_il · Answer

Bonjour, voilà j'ai encore essayé de bosser sur mon projet ! Et je n'avance plus je ne trouve pas comment faire même avec tes explications.... Je suis dépité j'en ai marre je pense que je vais jeter l'éponge même si je dois rendre ce projet mardi 17 avril !

Merci de ton aide...

J-il

chaibat05 · Answer

Salut,
tu t' en doutes bien que je suis désolé pour toi, et très déçu.
Peut être pas autant que toi, mais déçu quand même.
D' autant plus que ça marche à tous les coups pour moi.
Pas avec des étiquettes, je le conçois, mais avec des récapitulatifs.
Mais si ça marche pour l' un il n' y a pas de raison que ça bloquerait 
pour l' autre.


grrrrrrrrrrrrrrrrrrrrrr...!
ça m' énerve quand une question reste en suspend....




A+

J_il · Answer

Re coucou Chaibat05,

Voila je suis enfin arrivé à un petit quelque chose !!!!!

J'ai bossé dur lol 

J'arrive maintenant à faire une impression d'un état avec mes champs comme il faut etc mais j'ai des redondances...

Pour que tu comprennes mieux j'ai posté le programme sur vbfrance voici le lien http://www.vbfrance.com/code.aspx?ID=42260

Si tu vois quelques chose, peux-tu me le dire merci beaucoup à toi

J-il

chaibat05 · Answer

Salut,
t' es encore en vie toi ? 
je t'ai laissé pour mort la dernière fois :-)
Non, je plaisante...
Je vais voir et je te répond plus tard...

A+

chaibat05 · Answer

Pourquoi t' as des doublons ?


je croyais avoir souligner qu' il fallait réinitialiser (vider) la temporaire
avant l' insertion de nouveaux contacts.Ta table est ainsi
à chaque fois renouveée...


Juste après
Set ws = DBEngine.Workspaces(0)                                                      
Set ma_bdd = ws.OpenDatabase(bdd_etiquettes.DatabaseName)          
Set rst = ma_bdd.OpenRecordset("TABLE_TEMPORAIRE", dbOpenDynaset)               


 'vider la table temporaire avant d' y ajouter
'la liste des contacts sélectionnés
ma_bdd.Execute "DELETE * FROM TABLE_TEMPORAIRE;"   


<traitement d' insertion>


tu remarqueras aussi que j' ai ajouter l' argument dbOpenDynaset
à l' ouverture du recordset, car il s' agit d' un rst qui sert à modifier une table.
Je comprend que ça marche sans, mais c' est mieux avec.
Pour les recordset qui ne sert qu' à afficher on utilise dbOpenSnapshot.

A+

najnoujj · Answer

ListBox avec la propriété Style à CheckBox

30 réponses

Votre réponse

Discussions similaires