Bom dia,
Preciso copiar o conteúdo de vários controles para a área de transferência.
A ideia e colocar um botão acionando esse procedimento.
O conteúdo precisa estar formatado, tentei com o código abaixo, mas ele não deixa usar todos os controles do formulário:
Private Sub gerarNota_Click()
Me.textoParaNotas = _
"Origem : " & Me.Origem & vbNewLine & _
"Contato : " & Me.Pessoa & vbNewLine & _
"Telefone : " & Me.Telefone & vbNewLine & _
"Desocupação : " & Me.Operadora & vbNewLine & _
vbNewLine & _
Me.Texto
Me.textoParaNotas.SetFocus
DoCmd.RunCommand acCmdCopy
End Sub
Resultado
"Origem : Morador
Contato : João
Telefone : 11-983252525
Desocupação : Sim, confirmada
Confirmado desocupação do imóvel...."
Desmontando e montando, percebi que ao digitar a linha de comando, quando chego na função (me.) ela abre uma lista de opções e os campos que quero incluir não estão disponíveis, enquanto os anteriores aparecem na lista e funcionam.
Obrigado.
Preciso copiar o conteúdo de vários controles para a área de transferência.
A ideia e colocar um botão acionando esse procedimento.
O conteúdo precisa estar formatado, tentei com o código abaixo, mas ele não deixa usar todos os controles do formulário:
Private Sub gerarNota_Click()
Me.textoParaNotas = _
"Origem : " & Me.Origem & vbNewLine & _
"Contato : " & Me.Pessoa & vbNewLine & _
"Telefone : " & Me.Telefone & vbNewLine & _
"Desocupação : " & Me.Operadora & vbNewLine & _
vbNewLine & _
Me.Texto
Me.textoParaNotas.SetFocus
DoCmd.RunCommand acCmdCopy
End Sub
Resultado
"Origem : Morador
Contato : João
Telefone : 11-983252525
Desocupação : Sim, confirmada
Confirmado desocupação do imóvel...."
Desmontando e montando, percebi que ao digitar a linha de comando, quando chego na função (me.) ela abre uma lista de opções e os campos que quero incluir não estão disponíveis, enquanto os anteriores aparecem na lista e funcionam.
Obrigado.