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 :

m.facebook.com/groups/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