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
Silvio
amarcial
6 participantes

    Supervisão do click em botões-VBA

    avatar
    amarcial
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/07/2015

    Supervisão do click em botões-VBA Empty Supervisão do click em botões-VBA

    Mensagem  amarcial Seg 27 Jul 2015, 7:51 am

    Gostaria de supervisionar o click de um determinado botão(Comando0) em um determinado formulário(teste1) sem usar o onclick das propriedades do referido botão.

    Tentei:

    if teste1!Controls!Comando0.onclick = true then .... e não funciona

    Como devo fazer?

    Obrigado
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Supervisão do click em botões-VBA Empty Re: Supervisão do click em botões-VBA

    Mensagem  Silvio Seg 27 Jul 2015, 8:32 am

    Bom dia...seja bem vindo ao fórum...

    Não entendi o que quer dizer com o " supervisionar " !
    Sempre haverá um evento " ao clicar ( on click) " em qualquer botão, afinal botões foram para serem clicados e são ativados por procedimentos de eventos.
    Se puder ser mais claro, agradecemos !


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Diegokul
    Diegokul
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 26/07/2015

    Supervisão do click em botões-VBA Empty Re: Supervisão do click em botões-VBA

    Mensagem  Diegokul Seg 27 Jul 2015, 8:48 am

    Podes criar uma Tag dentro do evento click

    EX:

    Private Sub CommandButton1_Click()
    Tag = "EDITAR"

    End Sub


    If Tag = "EDITAR" Then

    'executa ação
    Tag = "" 'zera a tag para nova conferencia do click
    Else

    End If


    Podes criar uma variável também para contar quantos clicks foram dados.


    Dim x As Integer

    Private Sub CommandButton1_Click()
    x = x + 1

    End Sub

    Private Sub exenplo()

    If x >= 1 Then

    'executa ação
    Else

    End If

    End Sub
    avatar
    amarcial
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/07/2015

    Supervisão do click em botões-VBA Empty Supervisão do click em botões-VBA

    Mensagem  amarcial Qua 29 Jul 2015, 9:02 am

    Caros

    Acho que não fui claro. Não gostaria de usar o evento click das propriedades do botão.

    Gostaria de saber como seria o código em VBA para usar um botão em um formulário sem ser no evento click.

    Att

    Alcibiades
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5120
    Registrado : 20/04/2011

    Supervisão do click em botões-VBA Empty Re: Supervisão do click em botões-VBA

    Mensagem  Silvio Qua 29 Jul 2015, 9:13 am

    Bom dia....

    Amarcial....para que então colocar um botão de comando em um formulário.......se não vai usar ele ?

    Estou até agora sem entender o que deseja...o que pretende...e o que quer afinal !

    Em sua primeira mensagem, no exemplo do código, já deu para ver um click na linha....

    Ou.......você deseja saber quantos cliques aquele determinado botão recebeu ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    amarcial
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3
    Registrado : 08/07/2015

    Supervisão do click em botões-VBA Empty Supervisão do click em botões-VBA

    Mensagem  amarcial Qua 29 Jul 2015, 2:37 pm

    Caro

    Muito obrigado pela atenção.

    Na verdade quero saber como utilizar um botão ou qualquer outro comando de formulário utilizando VBA, ou seja, como se as SUB's, ao clicar, ao focar, etc., não existissem.

    Obrigado

    Alcibiades
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    Supervisão do click em botões-VBA Empty botão de relatório eu consigo ocultar,mas aparece na impressão

    Mensagem  crysostomo Qua 09 Jan 2019, 3:05 pm

    boa noite, colegas , coloquei um botão no relatório com o objetivo de ocultar ele para não aparecer na impressão.
    consigo ocultar ele no relatório , mas na impressão ele aparece

    Há essa possibilidade?

    Código:
    Private Sub bt_Click()
    Dim btImpimir  As Integer
    btImpimir = btImpimir + 1
    If btImpimir >= 1 Then

    DoCmd.PrintOut
    bt.Visible = False
    Else

    End If

    End Sub
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

    Supervisão do click em botões-VBA Empty Re: Supervisão do click em botões-VBA

    Mensagem  DamascenoJr. Qua 09 Jan 2019, 5:49 pm

    Explore a seguinte opção
    Supervisão do click em botões-VBA Fdf10


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    leoni_dias
    leoni_dias
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 179
    Registrado : 14/08/2011

    Supervisão do click em botões-VBA Empty Re: Supervisão do click em botões-VBA

    Mensagem  leoni_dias Qui 10 Jan 2019, 9:46 am

    Bom dia, amarcial.


    Private Sub Form_Load()
    Me.KeyPreview = True
    End Sub



    'Sendo o botão que quer ativar com o nome OK e pressionando o ENTER

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyReturn Then
    Call OK_Click
    End If
    End Sub
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2741
    Registrado : 23/01/2018

    Supervisão do click em botões-VBA Empty Re: Supervisão do click em botões-VBA

    Mensagem  crysostomo Qui 10 Jan 2019, 1:36 pm

    Obrigado Ivan.
    Agora so ficou uma coisa , ao cancelar a impressão ele vem como a mensagem de erro de execução, como ocultar isso?
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 21/11/2016

    Supervisão do click em botões-VBA Empty Re: Supervisão do click em botões-VBA

    Mensagem  DamascenoJr. Qui 10 Jan 2019, 5:20 pm



    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado


    Supervisão do click em botões-VBA Empty Re: Supervisão do click em botões-VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 08 Nov 2024, 11:48 am