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

    [Resolvido]Macro para clicar em botão

    Compartilhe

    shirohige
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 07/11/2012

    Macro para clicar em botão

    Mensagem  shirohige em Seg 21 Jan 2013, 11:46 am

    Boa tarde mais uma vez venho pedir ajuda de vocês para esse problema.

    Hoje em um formulario eu tenho um codigo vb que assim que ele abre ele copia toda coluna de uma tabela.Existe algum jeito de eu adicionar um botão no formulario e fazer uma macro para apertar esse botão assim que abrir o formulario?

    A ideia é adicionar varios botões e quando eu precisar a macro manda clicar no botão referente a coluna que eu quero, cada botão vai copiar uma coluna.

    esse é o cod

    Private Sub Form_Load()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT teste FROM tb1")

    Do While Not rs.EOF

    If IsNull(Me.txtCopiar) Or Me.txtCopiar.Value = "" Then
    Me.txtCopiar = rs!teste
    Else
    Me.txtCopiar = Me.txtCopiar & vbCrLf & rs!teste
    End If

    rs.MoveNext

    Loop

    rs.Close
    Set rs = Nothing

    Me.txtCopiar.SetFocus
    DoCmd.RunCommand acCmdCopy
    End Sub
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Macro para clicar em botão

    Mensagem  Alexandre Neves em Seg 21 Jan 2013, 1:29 pm

    Boa tarde,

    1 - Coloque o código num procedimento
    Sub CopiaColuna()
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT teste FROM tb1")

    Do While Not rs.EOF

    If IsNull(Me.txtCopiar) Or Me.txtCopiar.Value = "" Then
    Me.txtCopiar = rs!teste
    Else
    Me.txtCopiar = Me.txtCopiar & vbCrLf & rs!teste
    End If

    rs.MoveNext

    Loop

    rs.Close
    Set rs = Nothing

    Me.txtCopiar.SetFocus
    DoCmd.RunCommand acCmdCopy
    End Sub

    2 - Onde precisar executar, coloque
    Call CopiaColuna

    3 - Se precisar variar algum dado (nome de coluna, nome de tabela, ect.), coloque esse dado como argumento do procedimento para que o mesmo código seja executado e a variável seja alterada conforme necessidade
    Por exemplo
    sub CopiaColuna(strNomeColuna as string)
    ...
    Set rs = CurrentDb.OpenRecordset("SELECT " & strNomeColuna & " FROM tb1")
    ...

    para chamar
    Call CopiaColuna("ColunaA")


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    shirohige
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 07/11/2012

    Re: [Resolvido]Macro para clicar em botão

    Mensagem  shirohige em Seg 21 Jan 2013, 5:08 pm

    Tentei da maneira que você comentou mas não estou conseguindo usar a função call, tem como fazer uma macro para abertar um botão no formulario?

    shirohige
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 07/11/2012

    Re: [Resolvido]Macro para clicar em botão

    Mensagem  shirohige em Qui 24 Jan 2013, 5:39 am

    alguem tem uma solução pra isso? por favor =|
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Macro para clicar em botão

    Mensagem  Alexandre Neves em Qui 24 Jan 2013, 4:25 pm

    Boa noite,
    Diz que fez igual, mas não expõe o que fez. Será mesmo igual?


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    shirohige
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 70
    Registrado : 07/11/2012

    Re: [Resolvido]Macro para clicar em botão

    Mensagem  shirohige em Seg 28 Jan 2013, 5:31 am

    Grato pela ajuda mas o problema foi solucionado... a maneira que você deixou funciona mas a ideia inicial era outra. No momento vou utilizar a sua ideia, muito obrigado.

      Data/hora atual: Sab 24 Fev 2018, 10:07 am