dynamic menu creation (1 Viewer)

[Rashid]

Public WithEvents menubtn As MSForms.Label
Public WithEvents LblBtn As MSForms.Label
Dim BtnEve() As New Class1

Private Sub LblBtn_Click()
UserForm1.Frame1.Visible = False
MyAdd = LblBtn.Name
RowNo = Val(Split(MyAdd, ",")(1))
ColNo = Val(Split(MyAdd, ",")(2))
CodeRun = Replace(Sheet1.Cells(RowNo, ColNo), " ", "")
Run CodeRun
End Sub

Private Sub LblBtn_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
For Each Ctrl In UserForm1.Frame1.Controls
    If TypeName(Ctrl) <> "Frame" Then Ctrl.BackColor = &H47AD70
Next
    LblBtn.BackColor = &H8000&
End Sub

Private Sub menuBtn_Click()
For Each Ctrl In UserForm1.Frame1.Controls
    If TypeName(Ctrl) = "Label" Then
        UserForm1.Frame1.Controls.Remove (Ctrl.Name)
    End If
Next
TopPos = 2
ColNo = Val(Replace(menubtn.Name, "Menu", ""))
LastRow = Sheet1.Cells(Rows.Count, ColNo).End(xlUp).Row
'Insert the Button in Frame
For RowNo = 2 To LastRow
Set SubMenu = UserForm1.Frame1.Controls.Add("Forms.Label.1")
    With SubMenu
        .Name = "Btn," & RowNo & "," & ColNo
        .Caption = Sheet1.Cells(RowNo, ColNo)
        .Font.Name = "Calibari"
        .Font.Size = 11
        .Left = 18
        .Width = 112
        .Top = TopPos
        TopPos = TopPos + .Height
    End With
    ReDim Preserve BtnEve(LastRow - 2)
    Set BtnEve(RowNo - 2).LblBtn = UserForm1.Controls("Btn," & RowNo & "," & ColNo)
Next RowNo
'For Animation of Frame
    UserForm1.Frame1.Visible = True
    UserForm1.Frame1.Top = 36
    UserForm1.Frame1.Left = menubtn.Left - 2
    TotHht = TopPos
    For ani = 0 To TotHht
        UserForm1.Frame1.Height = ani
        UserForm1.Frame2.Height = ani
    Next ani
End Sub

This is a code of excel Dynamic Menu creation.i want to create a Menu like this in my ms access form. Can Any one Change this to ms access vba code ?? Thanks in advance

 

[Uncle Gizmo]

I've put your code in code tags, to make it easier to read.

 

[MarkK]

Can Any one Change this to ms access vba code ??

I write code for money. I post on here because it is my pleasure to help people learn to write better code.

If you want something done to spec, while you wait, please hire someone.

Cheers,

 

[Pat Hartman]

Here's a sample switchboard that has simple security. The security can be used to customize the switchboard so that different groups of users see different options. If the switchboard is not actually variable by group, then you might user the second sample which has alternate styles of form, including one that is just big buttons.

Switchboard with simple security

This is a custom switchboard. It expands on the Switchboard Items table to add four additional columns to define view/edit/add/delete security levels for switchboard items and forms/reports referenced by them. It includes tables to manage users and also to assign them security levels. The user...

www.access-programmers.co.uk

Replacement Switchboard

This Switchboard form is based on the last VBA version which I think was A2k. I expanded it to allow for 12 items rather than 8 and you can easily change it to do more. I've included directions. This updated version has two switchboards. One more traditional and the other is big buttons...

www.access-programmers.co.uk

 

[arnelgp]

...so give me money... that's what i want -the beatles.