Ms Access Dynamic Menu

Поделиться
HTML-код
  • Опубликовано: 19 авг 2020
  • 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
  • НаукаНаука

Комментарии • 67

  • @TLDW_Tutorials
    @TLDW_Tutorials Месяц назад +2

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

  • @freebird7556
    @freebird7556 2 года назад

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

  • @beinteractivebrits4540
    @beinteractivebrits4540 2 года назад +2

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

    • @sissokom.prodev9979
      @sissokom.prodev9979  2 года назад +2

      Side Menu 3 Ms Access Adavanced Login Form and User's Menu Controle
      ruclips.net/video/aMVKySVYBrw/видео.html

  • @haroldcruzcorrea
    @haroldcruzcorrea Год назад +2

    Excelente explicación así como el contenido 🙂

  • @niktsol
    @niktsol 2 года назад +2

    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
      @sissokom.prodev9979  2 года назад +2

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

  • @sephjvr5979
    @sephjvr5979 2 года назад

    Great Video! Thank you.

  • @JeserCotrim
    @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?

  • @good-sharing
    @good-sharing Год назад

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

  • @borgehansen6680
    @borgehansen6680 4 месяца назад

    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.

  • @paulajimenez8964
    @paulajimenez8964 Год назад

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

  • @mohamadmaatouk8197
    @mohamadmaatouk8197 2 года назад

    its a great implementation

  • @anafofissa4776
    @anafofissa4776 2 года назад +2

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

  • @cdscoys4775
    @cdscoys4775 2 года назад +2

    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
      @sissokom.prodev9979  2 года назад

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

    • @cdscoys4775
      @cdscoys4775 2 года назад

      @@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
      @sissokom.prodev9979  2 года назад +1

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

  • @alixstlouis3133
    @alixstlouis3133 7 месяцев назад

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

  • @dbdatasolutions4827
    @dbdatasolutions4827 2 года назад +9

    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
      @sissokom.prodev9979  2 года назад +1

      Thanks !

    • @simonmaersk
      @simonmaersk Год назад +2

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

  • @marwak399
    @marwak399 2 года назад

    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
      @sissokom.prodev9979  2 года назад

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

    • @marwak399
      @marwak399 2 года назад

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

  • @s.sloppy1999
    @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
      @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.

  • @mehdihamedi123
    @mehdihamedi123 Год назад +1

    This is great 😍😍😍😍😍😍😍😍

  • @jameskojopaintsil9623
    @jameskojopaintsil9623 Месяц назад

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

  • @maxcanispugnax4082
    @maxcanispugnax4082 7 месяцев назад

    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
      @sissokom.prodev9979  7 месяцев назад +1

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

  • @AlAmin-pr2gp
    @AlAmin-pr2gp 2 года назад

    Thank your

  • @rickylam7862
    @rickylam7862 2 года назад

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

    • @artgb_
      @artgb_ Год назад

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

  • @noone6476
    @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
      @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 RUclips Msaccess Menu 2
      ruclips.net/video/2zHQJmzMycA/видео.html
      Side Menu 3 Ms Access Adavanced Login Form and User's Menu Controle
      ruclips.net/video/aMVKySVYBrw/видео.html
      Side Menu 4 sqlserver connection ,DataMacro Stop Using link Table , custom message box ,Advanced For
      ruclips.net/video/wWhHnbsQhQQ/видео.html

    • @noone6476
      @noone6476 Год назад

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

  • @44louix
    @44louix Год назад

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

    • @sissokom.prodev9979
      @sissokom.prodev9979  Год назад +1

      Iconarchive.com

    • @44louix
      @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

  • @tuamaleos4519
    @tuamaleos4519 2 года назад

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

    • @sissokom.prodev9979
      @sissokom.prodev9979  2 года назад +1

      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

  • @KentReynolds
    @KentReynolds 7 месяцев назад

    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!

  • @alfredallen6113
    @alfredallen6113 4 месяца назад

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

    • @sissokom.prodev9979
      @sissokom.prodev9979  3 месяца назад

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

  • @alfredomorello1763
    @alfredomorello1763 Год назад

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

    • @sissokom.prodev9979
      @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

  • @kemalayaz6459
    @kemalayaz6459 8 месяцев назад

    Wonderfull

  • @bobykumar3960
    @bobykumar3960 Год назад +1

    good job

  • @voldyilunga3391
    @voldyilunga3391 2 года назад +1

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

  • @harun24hr
    @harun24hr 2 года назад

    Nice dashboard! Can you share the file with us?

    • @sissokom.prodev9979
      @sissokom.prodev9979  2 года назад

      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
      @harun24hr 2 года назад

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

    • @sissokom.prodev9979
      @sissokom.prodev9979  2 года назад +1

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

  • @akhileshyadav7366
    @akhileshyadav7366 7 месяцев назад

    I know so many tips for it...

  • @user-cx1mc6fm3n
    @user-cx1mc6fm3n 10 месяцев назад

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

    • @sissokom.prodev9979
      @sissokom.prodev9979  10 месяцев назад

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

  • @daviddesideri5748
    @daviddesideri5748 3 месяца назад

    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
    @JB.99999 2 года назад

    Pin that menu already!

  • @Puti3164
    @Puti3164 25 дней назад

    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
    @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
      @henryjayr Год назад

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

    • @izeckelibrah916
      @izeckelibrah916 Год назад

      how did you solved this issue bro?