Salve a tutti, chiedo il vostro aiuto per risolvere un codice che non mi funziona. L'ho trovato sul web per creare un menu dinamico ma funziona solo fino ad un certo punto. Copio prima il codice:
Option Compare Database
Private Function SetBt()
Dim Ax As Single
Ax = CSng(Right(Me.ActiveControl.Name, 1))
F or i = 1 To 9
Me("B" & i).BackColor = Box0.BackColor
Next
Me.ActiveControl.BackColor = Box1.BackColor
Me("P" & Ax).SetFocus
lb0.Caption = Me("B" & Ax).Caption
End Function
ora…nella stringa F or i = 1 To 9 gli effetti funzionano fino al pulsante B9, dal pulsante B10 mi da errore (come visualizzato nell'immagine)e non ho capito come ovviare al problema.. ringrazio in anticipo tutti coloro che vogliono aiutarmi. Grazie e un saluto a tutti