Avatar billede mortenf Nybegynder
30. oktober 2001 - 16:31 Der er 5 kommentarer og
1 løsning

Ændre shortcut menu item under run-time

Jeg har en shortcut menu, hvor jeg gerne vil ændre navn/billede eller enable/unable under run-time afhængig af om brugeren skal have adgang til den pågældende funktion i menuen.

Hvordan gøres det?
Avatar billede c Nybegynder
30. oktober 2001 - 16:34 #1
du kan lave det med en if sætning, gætter jeg på...
Avatar billede mortenf Nybegynder
30. oktober 2001 - 16:36 #2
Det tror jeg, du har ret i..... men det var nu mere indholdet mellem IF\'erne, jeg er ude efter.
Avatar billede c Nybegynder
31. oktober 2001 - 08:15 #3
du kan jo lave det med:

if(maa = true) then
resposnse.write\"<a href=\'filnavn.asp\'>Link</a>\"
Else
resposnse.write\"<font color=\'gray\'><a href=\'#\'>Link</a></font>\"
End if
response.write(\"<BR>\")
if(maa = true) then
resposnse.write\"<a href=\'filnavn.asp\'>Link1</a>\"
Else
resposnse.write\"<font color=\'gray\'><a href=\'#\'>Link1</a></font>\"
End if

Ellers kan man nåske lave det som et arry...
Avatar billede mortenf Nybegynder
31. oktober 2001 - 08:25 #4
Jeg søger en løsning til shortcut menuer i Access.
F.eks kan man forestille sig, at en menu kunne indeholde et menupunkt \"vis tabel i Datasheet view\". Når menupunktet eksekveres skal f.eks. teksten for menupunktet ændres til \"vis tabel i Form view\".
31. oktober 2001 - 08:48 #5
c-> Vi snakker Access og ikke HTML

Morten->Følgende kode giver et eksempel på hvordan man manipulere en shortcut-menu:

    On Error Resume Next
    Dim cmb As CommandBar
    Dim cbc As CommandBarControl
    Set cmb = Application.CommandBars(\"MinPopupMenu\")
    Set cbc = cmb.Controls(1)
    If Me!Brugerrettighed = 1 Then
        cbc.OnAction = \"Makro1\"
        cbc.Caption = \"Åbn formular1\"
    Else
        cbc.OnAction = \"Makro2\"
        cbc.Caption = \"Åbn formular2\"
    End If
    cbc.Style = msoButtonCaption

Denne kode manipulerer menuen \"MinPopupMenu\".
cbc er selve knappen/menupunktet, hvor alle egenskaber styres.

Det største problem er at identificere den enkelte knap. I ovenstående eks. er det knap nr 2 (cmb.Controls(1)) som redigeres. Du skal således tælle dig frem til den knap du vil ændre.
Der er også en anden måde at udpege en given knap, men den er lidt mere besværlig og vil blot forvirre begreberne til at starte med.

Du skal sætte en reference til \"Microsoft Office x.0 Object Library\" (Tools->References i VBA) for at det virker.

/Thomas
www.makeiteasy.dk
Avatar billede mortenf Nybegynder
31. oktober 2001 - 09:48 #6
Det var lige præcis det jeg ledte efter - man takker.....

Hvad er den smarte måde, at referere til en knap på?

Har du i øvrigt nogle gode access links?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester