[Resolvido]Copiar o nome do campo "Caption"

Ola a todos,

Sera que alguem me poderia ajudar com o seguinte problema;
Eu gostaria de criar um botao (usando uma macro se possivel) que quando premido permitisse copiar o nome do formulario, aberto naquele momento, (o nome que atribuimos no campo propriedade do formulario no campo"Caption") para uma tabela diferente.

Desde ja obrigado a todos pela atecao dada.

Boa tarde,

Veja exemplo simple...

https://www.wetransfer.com/downloads/84e9a38c62f3e60efb0621de4fe9855a20150305173215/4fd685b1ba130117809f83ffd0dd558120150305173215/fe9143

Abraço...

Ola,

O exemplo que criou funciona na perfeição.

So uma coisa que não sei se 'e possível, quando se clica no botão ele muda o nome dele (Comando3) para o nome do formulário aberto (neste caso teste), a minha questão 'e saber possível que o nome do botao se mantenha o seu nome original (neste caso Comando3)

Abraco

Boa tarde,

Se o que eu precebi, voce quer que ao clikar no botao ele mude para nome do formulario, e quando abre o formulario ele retorne a ter o nome oririnal.
É isso???

Ola,

Vou tentar ser mais claro penso que fui um pouco confuso.

O exemplo que fez funciona bem, mas quando 'e pressionado o botao para efectuar a copia do nome do formulário para a tabela2 o botao em questão muda de nome de "Comando3" para o nome do formulário em que estamos a copiar o nome, neste caso "Teste".

Se não fui claro por favor diga-me.

Abraco

Ola,

Vou tentar ser mais claro penso que fui um pouco confuso.

O exemplo que fez funciona bem, mas quando 'e pressionado o botao para efectuar a copia do nome do formulário para a tabela2 o botao em questão muda de nome de "Comando3" para o nome do formulário em que estamos a copiar o nome, neste caso "Teste". O que eu gostaria de saber 'e se possível manter o nome inicial do botao, "Comando3" e que depois de pressionado (e copiado o nome do formulário aberto para a tabela2) ele não mude o seu nome.

Se não fui claro por favor diga-me.

Abraco

Bom dia,

Veja se serve...

Private Sub Comando3_Click()
Comando3.Caption = Me.Form.Caption 'basta retirar esta linha para não mudar nome botão.
CurrentDb.Execute "INSERT INTO [tabela2] ([txtnomeform]) VALUES ('" & Me.Form.Caption & "')" ' Esta linha copia nome do formulario para tabela.

End Sub


Abraço...

Ola,

Funciona na perfeição

Obrigado pela ajuda.

Abraço