MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Bloquer botão de comando após fazer click

    avatar
    João
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 105
    Registrado : 07/10/2010

    Bloquer botão de comando após fazer click Empty Bloquer botão de comando após fazer click

    Mensagem  João 30/6/2012, 23:05

    Tenho um formulário onde seleciono os dados necessários para impressão de documentos em Word, através do código que tirei aqui do forum, ativado por um botão de comando e no evento ao fazer click.
    Necessitava bloquear esse botão, após o click e até final de emissão do documento, e que após a emissão o botão ficasse novamente activo.
    Isto porque se clickar uma vez o documento abre perfeitamente, no entanto se der dois cliks o modelo do documento do word bloqueia e já não o volta a abrir através do access, tem que se abrir o documento original no Word e fechar novamente e não guardar as alterações para ele voltar a funcionar.
    Assim se bloquer o botão, enquanto o documento abre, se der outro click penso que já não deve bloquear.
    Obrigado e se puderem ajudar agradecia.


    Private Sub btWord_Click()
    #Const DESENV = -1

    Dim oApp As Object 'Cria uma variável objeto

    ' Inicia o MS Word
    Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
    With oApp
    ' Torna o MS Word visível
    Visible = True
    ' Abre o documento base
    .Documents.Open ("F:\ofi\Oficios\Relatorio.doc")
    'Move cada campo para o indicador definido no documento
    .ActiveDocument.Bookmarks("a").Select 'letra A corresponde ao campo NomeEmitente1 no doc word
    .Selection.Text = (CStr(Forms!Clientes!NomeEmitente1))
    .ActiveDocument.Bookmarks("c").Select 'letra C corresponde ao campo CargoEmitente1 no doc word
    .Selection.Text = (CStr(Forms!Clientes!CargoEmitente1))
    .ActiveDocument.Bookmarks("b").Select 'letra B corresponde ao campo NomeEmitente2 no doc word
    .Selection.Text = (CStr(Forms!Clientes!NomeEmitente2))
    'Salva o arquivo gerado
    .ActiveDocument.SaveAs "F:\ofi\Oficios\" & Me.CodOficio & ".doc"
    'Fecha o documento
    .ActiveDocument.Close
    End With
    'Fecha o Word
    oApp.Quit
    Dim x As String
    x = "F:\ofi\Oficios\" & Me.CodOficio & ".doc"
    Dim Word As New Word.Application
    With Word
    .Documents.Open x
    .Visible = True
    .WindowState = wdWindowStateMaximize
    End With
    'Libera a memória
    Set oApp = Nothing
    Saida:
    Exit Sub
    End Sub

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Bloquer botão de comando após fazer click Empty Re: Bloquer botão de comando após fazer click

    Mensagem  Alexandre Neves 30/6/2012, 23:24

    Boa noite, João

    No início do código, coloque btWord.enabled=False
    No fim do código, coloque btWord.enabled=True
    avatar
    João
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 105
    Registrado : 07/10/2010

    Bloquer botão de comando após fazer click Empty Re: Bloquer botão de comando após fazer click

    Mensagem  João 1/7/2012, 12:49

    Já exprimentei, no entanto d-a-me a mensagem de que não é possivel desactivar o botão enquento ele tiver foco
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Bloquer botão de comando após fazer click Empty Re: Bloquer botão de comando após fazer click

    Mensagem  Alexandre Neves 1/7/2012, 14:10

    Experimente a propriedade visivel
    avatar
    João
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 105
    Registrado : 07/10/2010

    Bloquer botão de comando após fazer click Empty Re: Bloquer botão de comando após fazer click

    Mensagem  João 1/7/2012, 14:22

    Dá a mesma mensagem
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Bloquer botão de comando após fazer click Empty Re: Bloquer botão de comando após fazer click

    Mensagem  Alexandre Neves 1/7/2012, 18:23

    Então, crie uma variável global e, no início do código, verifique se está em execução. Caso esteja, não executa

    private EmExecucao as boolean
    if emexecucao then exit sub
    emexecucao=true
    restante código
    emexecucao=false

    Conteúdo patrocinado


    Bloquer botão de comando após fazer click Empty Re: Bloquer botão de comando após fazer click

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 19:38