Probleme bouton et frame [Résolu]

Messages postés
85
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
20 mars 2012
- - Dernière réponse : cs_hustler
Messages postés
85
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
20 mars 2012
- 25 sept. 2007 à 10:28
Bonjour à tous,

Depuis VB je fais une requete qui me donne une liste d'enregistrements que j'affiche dans une frame avec creation en automatique des labels qui recoivent les enregistrements. Jusque la tout marche correctement. Par contre je voudrais que pour chaque ligne créée il y aussi 2 boutons qui correspondent a l'enregistrement. Il faut donc qu'ils soient dans la frame comment dois je faire ???

Merci d'avance pour votre aide !!!
Afficher la suite 

3 réponses

Meilleure réponse
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
15
3
Merci
Regarde du côté de Container
Je pense que tu devrais y trouver ton bonheur.
quelque chose comme Set MonControle.Container = MonFrame

MPi²

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 126 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_MPi
Messages postés
85
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
20 mars 2012
0
Merci
je mets le code que j'ai commencé a taper

Private Sub Form_Load()
    Dim i As Integer
    i = 0
    'Nom de la Base de données
    dataPlanning.DatabaseName = App.Path & "\Planning97.mdb"


    'Requête SQL pour chercher les données qui correspondent à la semaine choisie
    dataPlanning.RecordSource = "SELECT * FROM login"
    dataPlanning.Refresh
    With dataPlanning
        If Not .Recordset.EOF Then
            'Remplissage de la première ligne
            If Not IsNull(.Recordset("log-clef")) Then lblclef(0).Caption = .Recordset("log-clef")
            If Not IsNull(.Recordset("log-login")) Then txtLogin(0).Text = .Recordset("log-login")
            If Not IsNull(.Recordset("log-pass")) Then txtpass(0).Text = .Recordset("log-pass")
            If Not IsNull(.Recordset("log-droit")) Then Chkdroit(0).Value = .Recordset("log-droit")
            'Création et remplissage des autres lignes de données
            Do While Not dataPlanning.Recordset.EOF
                'Index de création
                i = i + 1
                'Aller à l'enregistrement suivant
                dataPlanning.Recordset.MoveNext
                'Si ce n'est pas le dernier enregistrement :
                If dataPlanning.Recordset.EOF Then Exit Do
                'Créer une nouvelle ligne de controles (Labels et Zones de Texte)
                Load lblclef(i)
                Load txtLogin(i)
                Load txtpass(i)
                Load Chkdroit(i)


                'Positionnement et Affichage des controles créés
                lblclef(i).Top = lblclef(i - 1).Top + lblclef(i).Height + 20
                lblclef(i).Visible = True


                txtLogin(i).Top = lblclef(i).Top
                txtLogin(i).Visible = True


                txtpass(i).Top = lblclef(i).Top
                txtpass(i).Visible = True
                txtpass(i).ZOrder 0
               
                Chkdroit(i).Top = lblclef(i).Top
                Chkdroit(i).Visible = True
                Chkdroit(i).ZOrder 0
               
                fraPlanning.Height = fraPlanning.Height + txtLogin(0).Height + 20


                If Not IsNull(.Recordset("log-clef")) Then lblclef(i).Caption = .Recordset("log-clef")
                If Not IsNull(.Recordset("log-login")) Then txtLogin(i).Text = .Recordset("log-login")
                If Not IsNull(.Recordset("log-pass")) Then txtpass(i).Text = .Recordset("log-pass")
                If Not IsNull(.Recordset("log-droit")) Then Chkdroit(i).Value = .Recordset("log-droit")


            Loop
        Else
            'Si pas d'enregistrement pour la semaine choisie
            'Affichage d'un message
            MsgBox "Aucun enregistrement.", vbInformation
        End If
    End With
         
End Sub
Commenter la réponse de cs_hustler
Messages postés
85
Date d'inscription
mercredi 17 septembre 2003
Statut
Membre
Dernière intervention
20 mars 2012
0
Merci
ça marche super bien

merci beaucoup
Commenter la réponse de cs_hustler