[Resolvido]ShortcutMenuBar todos forms

bom dia amigos!

tudo bem

Estou procurando algo relacionado com ShortcutMenuBar = "=0" pra todos forms de uma vez

porque?

preciso desabilitar de uma vez e habilitar de uma vez, pois tenho criterios em forms que não consigo sair ate que seja completado todos entendeu?


e na hora de eu subir o front para os usuarios teria que habilitar a trava de novo entendeu?

nao achei nada no forum se alguem poder dar uma luz


abraços

Código:

Public Sub HabilitaShortcutMenu()
Dim frm As Object
For Each frm In CurrentProject.AllForms
    DoCmd.OpenForm frm.Name, acDesign
    Forms(frm.Name).ShortcutMenu = True
    DoCmd.Close acForm, frm.Name, acSaveYes
Next
End Sub

Public Sub DesabilitaShortcutMenu()
Dim frm As Object
For Each frm In CurrentProject.AllForms
    DoCmd.OpenForm frm.Name, acDesign
    Forms(frm.Name).ShortcutMenu = False
    DoCmd.Close acForm, frm.Name, acSaveYes
Next
End Sub

Maravilha jp deu certo! abriu a mente ate pra poder fazer mais coisas com sua instrução no codigo...

muito bom

vou complementar pra galera um codigo feito por vc pra nao travar o app na hora de destravar e travar o ShortcutMenuBar, pois ele trava o app pelo fato de ter muitos formularios.

Segue o codigo:

Código:

Private Sub DESTRAV_FORMS_Click()
Dim frm As Object
For Each frm In CurrentProject.AllForms
    DoCmd.OpenForm frm.Name, acDesign
    Forms(frm.Name).ShortcutMenu = False
    DoCmd.Close acForm, frm.Name, acSaveYes
    TimeDelay 0.5, True
Next
End Sub

Private Sub TRAV_FORMS_Click()
Dim frm As Object
For Each frm In CurrentProject.AllForms
    DoCmd.OpenForm frm.Name, acDesign
    Forms(frm.Name).ShortcutMenu = True
    DoCmd.Close acForm, frm.Name, acSaveYes
    TimeDelay 0.5, True
Next
End Sub

Public Function TimeDelay(TSegundos As Integer, ByVal TEventos As Boolean)
'By JPaulo :registered: Maximo Access
    Dim IniciaContagem As Date
  
    If TSegundos < 1 Then  ' Tempo em segundos
        Exit Function
    End If
    IniciaContagem = Now 'inicia contagem de espera através da hora do sistema.
    Do Until DateDiff("s", IniciaContagem, Now) > TSegundos
        If TEventos Then
            DoEvents
        End If
    Loop
End Function

Lembrando coloquei pra dar looping em 500 milissegundos para não travar e esperar de mais.

P.s: Criar formulario a parte para usar esse looping somente DoCmd.ShowToolbar "ribbon" = true, pois em false ele dar pau.

RESOLVIDO