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 : https://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