Bonjour,
Voila, j'ai une petite application que je suis en train de développé, or, je souhaiterais afficher n onglets (ou n, correspond à un nombre de devis pour un client). Or, à chaque fois que mon code passe, le numero de devis reste le meme .... (Dans la base, les numeros de devis sont différents...).
Voila mon code actuel:
En espérant qu'il y ait une solution. JE vous remercie
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 Requete = "select numeroDevis FROM Devis where NumeroClient= '" & NumeroClientConcerné & "' and year(dateDevis) = year(current_date())" Try 'Exécution de la requête DonnéesDevis = OrdresSQL.ReqSelection(Requete) If DonnéesDevis.Rows.Count > 0 Then TAB_AffichDevis.Visible = True L_PasDevis.Visible = False For i = 0 To DonnéesDevis.Rows.Count - 1 NumeroDevis = DonnéesDevis.Rows(i).Item(0) OngletDevis.Text = NumeroDevis OngletDevis.Name = NumeroDevis TAB_AffichDevis.TabPages.Add(OngletDevis) Next end if
Partager