Acquista i nostri libri consigliati su Amazon.it
+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 7 su 7

Stato della toolbar "ribbon"

  1. #1
    angelo_dima non  in linea Novello
    Buongiorno, scusatemi qualcuno sa come faccio a verificare lo stato della toolbar in modo che con un click se aperta la chiudo e con un click successivo se chiusa la apro, grazie anticipatamente
    sauti

  2. #2
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Non ho capito...!
    Da un comando nel Ribbon devi, aprire la Form se chiusa o chiuderla se aperta...?
    Devi gestire il Callback del comando del Ribbon, azione [OnAction] su cui chiamerai una tua SUB vba, esempio [onActionButton] da VBA, realizzando appunto una Funzione che il Ribbon richiama, nella controlli lo stato della maschera ed agisci di conseguenza...!

    Avrai nel codice XML del tuo ribbon una cosa simile
    <button id="ApriChiudi" size="large" label="Apri/Chiudi" imageMso="AccessFormWizard" onAction="OnActionButton"...
    
    Questo far in modo che su Click del Button venga chiamata la Sub [OnActionButton] alla quale si passa l'oggetto IRibbonControl... ed in base al Control.Id agisci...

    Questa potrebbe essere la SUB:
    Public Sub OnActionButton(control As IRibbonControl)
        'Callbackname in XML File "onAction"
        On Error Resume Next
    
        Select Case control.Id
            Case "ApriChiudi"
                 If Not CurrentProject.AllForms("NomedellaTuaForm").IsLoaded Then
                      DoCmd.OpenForm "NomedellaTuaForm"
                 Else
                      DoCmd.Close acForm,"NomedellaTuaForm"      
                 End If
            Case Else
                MsgBox "altro button"
        End Select
    
    End Sub
    
    Semplice se ne hai dimestichezza.
    ℹ️ Leggi di pi su @Alex ...

  3. #3
    ArmandoVBA non  in linea Scolaretto
    non so se ho capito, provo...

    Questo codice se il Ribbon chiuso lo apre se aperto lo chiude
    CommandBars.ExecuteMso "MinimizeRibbon"
    
    Per verificare se Ribbon aperto o chiuso puoi usare questo:
    If Application.CommandBars.Item("Ribbon").Height > 100 then 
    Msgbox "Ribbon aperto"
    Else
    Msgbox "ribbon chiuso"
    End if
    

  4. #4
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca
    cio stai cercando di aprire e chiudere il ribbon da una form?
    scusa ma, siccome di norma il contrario, mi spieghi a che pro? si apre gi da solo se vai in alto in caso di chiusura no?

  5. #5
    angelo_dima non  in linea Novello
    Buonasera mi scuso se non sono stato chiaro nell'esposizione del quesito, ho risolto prendendo spunto dal suggerimento di ARMANDOVBA, partendo dal presupposto che da una form principale senza ribbon e senza riquadro di spostamento laterale vorrei con un click su un pulsante inserendo la password aprire la commandbar "ribbon" e il riquadro di spostamento cos da poter operare sul codice e tutti gli altri elementi del database, inserendo questa istruzione:

    If Application.CommandBars.Item("ribbon").Visible = True Then
        apreribbon (False)
    Else
            If InputBox("password", "Accesso a modalit progettazione") = "x" Then
               apreribbon (True)
            End If
    End If
    
    Public Sub apreribbon(sino As Boolean)
    If sino = False Then
       DoCmd.ShowToolbar "ribbon", acToolbarNo
        riq_spostamento (False)
    Else
      DoCmd.ShowToolbar "ribbon", acToolbarYes
      riq_spostamento (True)
    End If
    
    Public Function riq_spostamento(acceso As Boolean) 'nasconde o accende il riquadro laterale di spostamento
    If acceso = False Then
        DoCmd.SelectObject acTable, "unatabella", True
        RunCommand acCmdWindowHide
    Else
        DoCmd.SelectObject acTable, "unatabella", True
    End If
    End Function
    
    spero di essere stato chiaro e ringrazio tutti per l'aiuto
    Ultima modifica di @Alex; 25-05-2021 14:44 

  6. #6
    L'avatar di muttley005
    muttley005 non  in linea Topo di biblioteca

  7. #7
    L'avatar di @Alex
    @Alex non  in linea Moderatore Globale
    Angelo, fai una cortesia anche per non continuare a scusarti... prenditi il tempo che serve per capire come partecipare in modo serio e rispettoso di chi ti legge e partecipa...!

    I TAG per il codice, li ho messi io per questa volta...

    Grazie
    ℹ️ Leggi di pi su @Alex ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Access 2016 - nascondere "che cosa si desidera fare?" dal ribbon
    Da ArmandoVBA nel forum Microsoft Access
    Risposte: 1
    Ultimo Post: 14-09-2020, 19:22
  2. Errore "Indice oltre i limiti della matrice"
    Da e.manfredi nel forum Visual Basic .Net
    Risposte: 13
    Ultimo Post: 12-04-2014, 14:05
  3. Risposte: 11
    Ultimo Post: 17-03-2014, 11:09
  4. Risposte: 1
    Ultimo Post: 05-12-2008, 15:52