Discussion :

[yancimer]

Bonjour,
Je récupère dans une table des données qui vont me permettre de mettre ma légende sur mon bouton. Par exemple:

Je récupère :

1 N10000
2 N20000


Et dans un formulaire j'ai un bouton qui s'appelle 1 et un autre 2.
Et j'aimerai que mes boutons 1 et 2 ai comme légende respectivement N10000 et N20000. Donc ce qui lie mon bouton à ma ligne c'est l'id de la ligne.

Donc j'aimerais savoir la syntaxe VBA ou la méthode pour attribuer la légende à mes boutons.

[RGShoop]

Bonjour,

La synthaxe VBA est NomduBouton.caption donc en gros :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
if me.ValeurDuBouton=1 then
me.nomDuBouton.caption= "N10000" 
elseif me.ValeurDuBouton=2 then 
me.nomDuBouton.caption= "N20000"
Else
me.nomduBouton.caption="Non défini"
end if

C'est une solution,

A+ RGShoop

[argyronet]

Bonjour,

Voici une solution dynamique, à toi de l'adapter...

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
Option Compare Database
Option Explicit

Private Sub Form_Load()
  GetButtonsCaption "cmd1;cmd2"
End Sub

Private Sub GetButtonsCaption(ByVal Buttons As String)
Dim straButtons() As String
Dim oDB As DAO.Database
Dim oRS As DAO.Recordset
Dim I As Integer
Dim vntIDButton As Variant
Dim strButtonCaption As String
Dim oCTL As Control
Dim F As Form

  Set F = Form
  Set oDB = CurrentDb
  straButtons = Split(Buttons, ";")
  For I = 0 To UBound(straButtons)
    vntIDButton = Mid(straButtons(I), Len("cmd") + 1)
    Set oRS = oDB.OpenRecordset("SELECT Legend FROM TBLLegendes _
    WHERE [Num] = " & vntIDButton & ";", dbOpenDynaset)
    strButtonCaption = oRS.Fields("Legend")
    oRS.Close
    Set oCTL = F.Controls(straButtons(I))
    oCTL.Caption = strButtonCaption
    Set oCTL = Nothing
  Next
  Set oRS = Nothing
  Set oDB = Nothing
End Sub

Argy

P.S. On préfixe toujours le nom des contrôles. N'appelle jamais un contrôle 1 ou 2 ou je ne sais quoi encore...
Tu peux lire ceci...

[yancimer]

Et avec un truc comme ceci c'est pas possible.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
ReqNomPresse = "SELECT MACHINE,id FROM [Niveau Machine]"
Set rsNomPresse = CurrentDb.OpenRecordset(ReqNomPresse, , dbOpenForwardOnly)
i = 1
While Not rsNomPresse.EOF
    nomBouton = "PRESSE" & Str(i)
    Me(nomBouton.Value).Caption = rsNomPresse.Fields(0)
    rsNomPresse.MoveNext
    i = i + 1
Wend
rsNomPresse.Close

Il me semble avoir déjà vu une syntaxe de ce genre mais je n'en suis pas sure.

[yancimer]

Merci Argy. J'ai utilisé ton code et il marche à merveille. Il me reste juste un prtit bug. Merci encore