MaximoAccess

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

Obrigado

Administração do MaximoAccess

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


    Supervisão do click em botões-VBA

    avatar
    amarcial
    Novato
    Novato

    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 em 27/7/2015, 12:51

    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 100%

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

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

    Mensagem  Silvio em 27/7/2015, 13:32

    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 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 em 27/7/2015, 13:48

    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 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 em 29/7/2015, 14:02

    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 100%

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

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

    Mensagem  Silvio em 29/7/2015, 14:13

    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 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 em 29/7/2015, 19:37

    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 732
    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 em 9/1/2019, 20:05

    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
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 613
    Registrado : 22/11/2016

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

    Mensagem  IvanJr. em 9/1/2019, 22:49

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


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    avatar
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    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 em 10/1/2019, 14:46

    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
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

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

    Mensagem  crysostomo em 10/1/2019, 18:36

    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?
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 613
    Registrado : 22/11/2016

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

    Mensagem  IvanJr. em 10/1/2019, 22:20



    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.

    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: 27/6/2019, 03:46