Remplazar nombre boton por variable

[David]

Iniciado por alberto4888

Se me olvido decirte que lo estoy haciendo desde acces.

Entonces estás haciendo con Macros, bueno, podrías hacer así:

Código:

On Error Resume Next
Dim Count As Long
For Count = 0 To Me.Controls.Count
    If Left(Me.Controls(Count).Name, 2) <> "B1" Then
    Else
        Me.Controls(Count).Visible = True
    End If
Next Count

Edito el mensaje porque se me ocurrió esta idea mejor