IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

j'ai besoin d'aide en Liste


Sujet :

VB 6 et antérieur

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Avril 2008
    Messages
    71
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 71
    Par défaut j'ai besoin d'aide en Liste
    salut je developpe en vb6 Mon Probleme c'est faire une Liste de libellé des Depot ainsi quand je clique sur l'un de ces dernier il doit m'afficher tous les champs
    Remarque
    Pour faire une liste des Numero Depot Sa Marche 100% avec ce code Mais quand je change (dans form load )list1.additem !lib_depot il me donne libellé depot dans text1 vous pouvez voir l image pour mieux comprendre
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    -Private sub form_load()
    Ouverture  'Ouverture du bdd
     
    With E_client   'chargement du List1
    List1.Clear
    If Not .EOF Then .MoveFirstWhile Not .EOF
    List1.AddItem !num_depot   'remplit moi list1 Par n°depot
    If Not .EOF Then .MoveNext
    Wend
    End With
    End sub
     
    -Private Sub Text1_LostFocus()
    If Text1 <> "" Then
    With E_depot
    .Index = "depot_ndx"
    .Seek "=", Text1
    If Not .NoMatch Then
    Text2 = !lib_depot
    Text3 = !adr_depot
    Toolbar1.Buttons(2).Enabled = 1
    Toolbar1.Buttons(3).Enabled = 1
    Else
    Call Effacer
    End If
     
    Toolbar1.Buttons(1).Enabled = 0
    End With
    Else
    Call Effacer
     
    Toolbar1.Buttons(1).Enabled = 0
    Toolbar1.Buttons(2).Enabled = 0
    Toolbar1.Buttons(3).Enabled = 0
    End If
    End Sub
     
    -Private Sub text1_change()
    text1_lostfocus
     
    End sub
     
    -Private sub List1_clique()
    text1=list1
    text_lostfocus
    End sub
    Images attachées Images attachées  

  2. #2
    Membre éprouvé
    Avatar de Asdorve
    Homme Profil pro
    Inscrit en
    Mars 2004
    Messages
    1 336
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 39
    Localisation : France, Pyrénées Orientales (Languedoc Roussillon)

    Informations forums :
    Inscription : Mars 2004
    Messages : 1 336
    Par défaut
    salut,

    je ne suis pas sûr de bien comprendre ton problème, d'ailleurs, vu qu'il n'y a pas de réponses, je ne dois pas être le seul...

    peux tu être plus clair?

    merci

  3. #3
    Membre Expert Avatar de OhMonBato
    Homme Profil pro
    Inscrit en
    Mars 2007
    Messages
    2 660
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Morbihan (Bretagne)

    Informations professionnelles :
    Secteur : Industrie

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 660
    Par défaut
    Déjà j'aimerais être sûr que le code affiché soit une COPIE EXACTE du code utilisé :

    des "-" devant les noms de procédure, une procédure List1_Clique (C'est une version très francophone de VB que tu as ? )

    Ta procédure list_clique (...) n'est pas appelée au chargement de ta feuille ? Si oui, ça pourrait expliquer pouruqoi tu as quelquechose dans ton contrôle text.

  4. #4
    Modérateur
    Avatar de AlainTech
    Homme Profil pro
    Consultant informatique
    Inscrit en
    Mai 2005
    Messages
    4 235
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant informatique
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2005
    Messages : 4 235
    Par défaut
    De plus, r.mehdi, pourquoi passes-tu ton temps à mettre des couleurs dans les codes que tu postes alors que le forum fait une coloration automatique?
    N'oubliez pas de cliquer sur quand vous avez obtenu ou trouvé vous-même la réponse à votre question.
    Si vous trouvez seul, pensez à poster votre solution. Elle peut servir à d'autres!
    Pensez aussi à voter pour les réponses qui vous ont aidés.
    ------------
    Je dois beaucoup de mes connaissances à mes erreurs!

  5. #5
    Membre confirmé
    Inscrit en
    Avril 2008
    Messages
    71
    Détails du profil
    Informations forums :
    Inscription : Avril 2008
    Messages : 71
    Par défaut resolu
    sayé mon probleme est resolu
    bon ce que j'ai voulu c'est que remplir la list par le nom ou libellé du depot au lieu N° Depot
    ainsi je clique sur sur un nom depot dand la list
    il doit faire la recherche ainsi m'afficher le N°depot et l'adrsse depot

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. besoin d aide pour liste déroulante
    Par cedrus dans le forum PHP & Base de données
    Réponses: 8
    Dernier message: 01/02/2013, 23h09
  2. [PHP 5.3] besoin d'aide pour liste déroulante
    Par djolah13 dans le forum Langage
    Réponses: 1
    Dernier message: 01/06/2011, 15h39
  3. [MySQL] Besoin d'aide pour liste déroulante dreamweaver + mysql
    Par dreamover dans le forum PHP & Base de données
    Réponses: 4
    Dernier message: 03/03/2009, 15h56
  4. [XSLT] besoin d'aide XML -> listes HTML imbriquées
    Par lasdou15 dans le forum XSL/XSLT/XPATH
    Réponses: 8
    Dernier message: 17/04/2008, 13h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo