Ms Access Dynamic Menu

With This Video You Can Learn how to create a dynamic Side Menu With Ms Access 2016
And Other Advanced Technique To Build Faster Your
Our Facebook Group :
/ 345768833121934
here is the function to do the job
Private Function SetBt()
Dim Ax As Single
Ax = CSng(Right(Me.ActiveControl.Name, 1))
For i = 1 To 7
Me("B" & i).BackColor = Box0.BackColor
Next
Me.ActiveControl.BackColor = Box1.BackColor
Me("P" & Ax).SetFocus
LB0.Caption = Me("B" & Ax).Caption
End Function