CHANGE text in button on sheet

[sal21]

Do Until RS1.EOF
Debug.Print RS1.Fields(0).Value
RS1.MoveNext
Loop

this code loop a dates fields.

i need to change the text name of each nutton in sheet attached, hot to via vba code?

note:

1)the rs1 loop contain only and always 3 filed dates
2)i need for filds(0).value modify the text name of first button, renamed for filds(1).value modify the text name of second button, ecc
3) The format of dates is MM/YYYY

[HansV]

Your code loops through the records, but in your instruction #2, you "loop" through the fields of a record. What exactly do you want? How many records does the recordset have, and how many fields?

[sal21]

Your code loops through the records, but in your instruction #2, you "loop" through the fields of a record. What exactly do you want? How many records does the recordset have, and how many fields?

sorry me, only one fileds with three values.

[HansV]

Code: Select all

    Dim i As Long
    Do Until RS1.EOF
        i = i + 1
        ActiveSheet.Buttons("Button " & i).Caption = RS1.Fields(0).Value
        RS1.MoveNext
    Loop

[sal21]

Code: Select all

    Dim i As Long
    Do Until RS1.EOF
        i = i + 1
        ActiveSheet.Buttons("Button " & i).Caption = RS1.Fields(0).Value
        RS1.MoveNext
    Loop

PERFECT!