[Resolvido]Macro para clicar em botão

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

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")

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?

alguem tem uma solução pra isso? por favor =|

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

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.