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

[@TLDW_Tutorials]

As a fellow KZbinr and Access developer myself, I just wanted to say this is a beautiful layout and interface. Well done!

[@zinfra63]

Great video, thank you one note: Calling the 12 buttons with B11, B12, B13...B20, B21, B22 TABs with P11, P12, P13...P20, P21... The SubTabs with P11S1, P11S2,...P19S1, P20S.... and taking into consideration the LAST 2 characters of Button (11, 12, 13, ..20..22) it is avoided that by clicking on the B1 button, SubTab 10 or 11 or 12 (those containing a “1” at the beginning) is also displayed --> on the unction SetBt : change: Dim Ax As Integer change: For i = 11 To 22 (or button n°) ;)

[@beinteractivebrits4540]

You are such an artist! Excellent menu systems you have! I cannot find part 3 for the Dynamic Menus.

[@sissokom.prodev9979]

Side Menu 3 Ms Access Adavanced Login Form and User's Menu Controle kzbin.info/www/bejne/l365fKyJi751qNk

[@dbdatasolutions4827]

I like where you're going with this video, though I personally hate tabs, they're more trouble than they're worth in my opinion. I like hiding the tabs, but why not eliminate the middleman. Don't use tabs, just add seven subforms and make them visible or invisible instead of setfocus. If you don't mind some suggestions: maybe go a bit slower, try to eliminate the static and background noise, it will be less distracting.

[@sissokom.prodev9979]

Thanks !

[@simonmaersk]

No no no don't add multiple subforms. Just add one subform control and change the record source in the VBA code

[@haroldcruzcorrea]

Excelente explicación así como el contenido 🙂

[@ilhamsenjaya9452]

This amazing , i looking for this thanks

[@anafofissa4776]

Hi Sir Sissoko, Really appreciate your work and if possible I wanna learn from you...

[@sissokom.prodev9979]

Hi M Anafof Issa , thanks for the great comment …

[@borgehansen6680]

What icon list are you using for your menu buttons at the beginning of your presentation, and where can we obtain the icon list? Interesting menu approach, thanks for sharing.

[@HunterKiller1991]

thanks man, NICE

[@HABIBURREHMAN-n9d]

GREAT WORK ,, REGARDS FROM PAKISTAN ,, ITS A HUMBLE REQUEST THAT PLEASE DO UPLOD PRICTICE FILE FOR DOWNLOAD

[@sissokom.prodev9979]

z-p3-lookaside.fbsbx.com/file/SideMenuDb7.accdb?token=AWxElmSsP6RVprIhB1z_Ni_TMPsqISsS_-83O8v12nUJjh_FzMUsd0I_SECcagc7_IO5n26B58TzNicvvNB7nV_bmWvDXRY2ZCyrMezC61MO7mQJkJXs0nO752Vl7RXYAZU3_OZlfR7coN0Kgqv16EiqPRizRs4lilI3HzSLrna_ULZCQyo4kZJOnMieeMYPz0vvIEJ2J3-CeKPBrVFBa_6MSgQd0VABKgVmLx55p7KC-g

[@alixstlouis3133]

I would like to be able to view all the menus as well as the entire database in sequential tutorials.

[@freebird7556]

Thank you for sharing.. looks very good!!!!

[@sephjvr5979]

Great Video! Thank you.

[@FasuTech]

I have watched and follow all your tutorials, please can you show me how to bring forms to my menu.

[@cdscoys4775]

This is great, can you tell me how to use those additional tabs which you touch upon. I'd like one tab to have some buttons which open other tabs to site sub forms/datasheets

[@sissokom.prodev9979]

You , mean add more tab on left , or right, side ?

[@cdscoys4775]

@@sissokom.prodev9979 yes, in your video you added 2 more tabs to the right but didn't really explain how to link them

[@sissokom.prodev9979]

You can check the next video ! You need to see all the video of side menu DB , to understand well

[@KentReynolds]

you dont need code to make the buttons highlighted: just use the "focus colour" property of the bottom to your highlight colour and access does the rest!

[@mehdihamedi123]

This is great 😍😍😍😍😍😍😍😍

[@sissokom.prodev9979]

Thanks ! :)

[@paulajimenez8964]

Great video!!! Thank you!!!!!

[@niktsol]

Hello. Very nice implementation. And thank you very much for the provided information. I would like to ask a question. Would it be difficult if i wanted, instead of just plain buttons at the left for menu options, to create list box that brings the menu options from a menu table. This menu table will have MenuID as AutoNumber, MenuName as string and FormToBeOpened as string, MenuPic as string which will be a path to the disk where the image is stored). Or ever more to "simulate" this list box with a sub form menu. I thought about sub form menu, in case the menu options are changed dynamically based on user level, so menu pictures are changed dynamically as well. Alternatively, instead of having the tab control, i should have a sub form which will display the form based on the menu option i select from the left list box or menu sub form. I know that it sounds line a custom navigation control and newer Access versions have embedded this control, but i would like to create from scratch in order to be compatible with older Access versions. What should i take into consideration in the above implementations in your opinion? P.S. The tab control is very good for displaying such information and i was given an idea by your video to create a wizard form based on tab control for specific data entry.!!

[@sissokom.prodev9979]

i think that is simple to implament... you can the same function under the menu button , to list on click,....

[@GALLERY-96]

You are amazing and very grateful. could you please tell me how to add those icons to the buttons??

[@sissokom.prodev9979]

@@GALLERY-96 the bigger square is a transparent button , and juste put any image icon above, that is trick !

[@jameskojopaintsil9623]

Hi Sir, thank you for the insight, please how can I link the buttons to their respective forms and queries

[@alfredallen6113]

Nice video. Is there a way to reach you? I would like an advice on a project

[@sissokom.prodev9979]

on ms access master group on facebook facebook.com/groups/345768833121934

[@marwak399]

Hi thank you great tutorial! just a question how to use the side button to navigate between the pages? without using the label part

[@sissokom.prodev9979]

I don’t understand your question !! Since the code : pagename.setfocus can show any page … so ….

[@marwak399]

@@sissokom.prodev9979 Ops i missed this part! thank you

[@GreyPaSM]

Nice 👍

[@thaisrivera7966]

GENIAL!!!!!! 🤩

[@mohamadmaatouk8197]

its a great implementation

[@noone6476]

Thank you for your instructions, they are really helpful. I have 2 questions: 1. If I am using quick style to color the background of my command buttons, how do I find the code for the color and gradient of the quick style chosen to make the code you have shown work? 2. What is the name of the video that shows how to set up security for the buttons, that was mentioned at the end of this video? Thanks again for all your instructions.

[@sissokom.prodev9979]

:) ….. thanks for your comment ! For the question 1 : we don’t have a specific code to copy the style of a button to another ! But you can just create a hidden button named button sample then in the code you say me.button2.backcolor = buttonSample.backcolor etc… For the question 2 , : are talking about how to secure your database copy , or secure a button ? Another video link : Ms Access Dynamic Menu 2 KZbin Msaccess Menu 2 kzbin.info/www/bejne/aKurgn2jr7KsmaM Side Menu 3 Ms Access Adavanced Login Form and User's Menu Controle kzbin.info/www/bejne/l365fKyJi751qNk Side Menu 4 sqlserver connection ,DataMacro Stop Using link Table , custom message box ,Advanced For kzbin.info/www/bejne/rYjLeaGYqLabh7M

[@noone6476]

@@sissokom.prodev9979 thank you so much... This is exactly what I was looking for... Thank you again

[@JeserCotrim]

Hello friend! I wrote the code exactly as you indicated but it's not working. Do I need to enable some reference in my access?

[@maxcanispugnax4082]

Hi. The SetBt() function you created, does not work for me under access 2007. Yet despite copying the code exactly as in the video and as stated in the description, it keeps returning the error " Property or method not supported by the object". Please can you help me. Thank you.

[@sissokom.prodev9979]

Hi ! Some properties has been created in office 2013… the database sample we provide is created from office 2016

[@good-sharing]

Why my Access 365 is not the same as yours after I clicked at Create (a blank database)?

[@s.sloppy1999]

Do you have any idea why this code does not change my backcolor? I am following your steps, same box name, same button name, same design, code etc. There is no error message, tried on Office 365, office 2016, office 2019 the result is same, color is not changing.

[@constructioncost]

I experience the same thing but I manage to find out how it happen. Try to change the color of the button from what he did. I think you made it transparent.

[@bobykumar3960]

good job

[@sissokom.prodev9979]

Thanks

[@44louix]

hi, Where did you get those icon pictures on the button menu please

[@sissokom.prodev9979]

Iconarchive.com

[@44louix]

@@sissokom.prodev9979 Thanks sir, but do you know why when i insert the picture on my button, it looks very small and not big like yours

[@AlAmin-pr2gp]

Thank your

[@RaselMia-lj3bc]

Please give me the download link

[@suadshatat]

friend i saw your video 100 times - every time i apply what you have said but the result still error

[@sissokom.prodev9979]

Go to ms access Master group on Facebook to post your error screenshot ! You will be guided facebook.com/100015557976530/videos/137307092721802/?mibextid=v7YzmG

[@alfredomorello1763]

I tried to add more buttons but after menu 9 it gives me an error. why?

[@sissokom.prodev9979]

Go to ms access Master group and download the last version of sidemenudb7 .. to download the file you need to be accepted in the group

[@rickylam7862]

I get error Asset Master List cannot find the object 'SetBt()" when trying to following your video, please help

[@artgb_]

You need to Dim i As Integer a line after you call the function

[@kemalayaz6459]

Wonderfull

[@tuamaleos4519]

Hai, Sir..... Can we get an example of the MS Access this file ? Thanks.

[@sissokom.prodev9979]

The file is available in ms access master group in Facebook facebook.com/groups/345768833121934/permalink/620222279009920/ You need to join the group before being able to download

[@harun24hr]

Nice dashboard! Can you share the file with us?

[@sissokom.prodev9979]

The file is on the Facebook group : MS Access master : you need to be accepted on the group in order to download the file facebook.com/groups/345768833121934/permalink/620222279009920/?mibextid=wACSiI&fs=e&s=cl

[@harun24hr]

@@sissokom.prodev9979 I am already member of that group. I have few post on MS-ACCESS on this group.

[@sissokom.prodev9979]

@@harun24hr so go to the group files and find sidemenu DB 7 , that will ne is the last version published

[@akhileshyadav7366]

I know so many tips for it...

[@sissokom.prodev9979]

Tips about Ms Access ?

[@voldyilunga3391]

Votre application est en français mais vous parlez en anglais Mr. Sissoko Je regarde juste mais vos explications sont en anglais 💔

[@iredekoty7680]

Je peux avoir le lien svp

[@sissokom.prodev9979]

@@iredekoty7680 facebook.com/share/p/h5HWiRXqjpYeWJsP/?mibextid=WC7FNe

[@daviddesideri5748]

good morning I started following your tutorial, I got stuck in coloring the buttons, I did everything like you did "Private Function SetBt() For i = 1 To 7 Me("B" & i).BackColor = Box0.BackColor Next Me.ActiveControl.BackColor = Box1.BackColor End Function" What am I doing wrong?

[@JB.99999]

Pin that menu already!

[@Puti3164]

terimakasih my friend 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 🙏

[@henryjayr]

works without the tabs for me. but when i add the tabs i get "object doesn't support this property or method" Here is the code i used Private Function SetBt() Dim Ax As Single Ax = CSng(Right(Me.ActiveControl.Name, 1)) For i = 1 To 4 Me("B" & i).BackColor = Box0.BackColor Next Me.ActiveControl.BackColor = Box1.BackColor Me("P" & Ax).SetFocus LB0.Caption = Me("B" & Ax).Caption End Function

[@henryjayr]

got it working. How do I add data from other tables in the tabs and sub tabs?

[@izeckelibrah916]

how did you solved this issue bro?