[Resolvido]escrever dados dos campos em um unico campo

Mestres,

Mais uma vez venho solicitar vossa ajuda, tenho um form onde tenho varios campos e gostaria de fazer com que o conteudo de cada campo aparecesse dentro de um unico campo e este campo seria um campo onde estes dados eu irei copiar estes dados estes dados.
Também preciso que estes dados tenham quebra de linha para poder copiar ordenadamente.

Como fazer?

Você quer que o conteúdo de cada campo fique em uma linha no outro campo? Ser for, tente algo assim:

Me.CampoDeTodosOsValores = Me.Campo1 & vBcRlF & Me.Campo2 & vBcRlF & Me.CampoN

Caso não funcione como posso fazer mais simples.
Tanto que não entendi seu exemplo desta vez desculpe.

Pode me mandar um exemplo por gentileza.

Testei seu exemplo e o mesmo não funcionou pois quando vou digitando o mesmo deveria na teoria já ir preenchendo.
Como fazer para isso ficar automatico?

eu tenho um exemplo de um outro banco de dados que fiz a muito tempo veja se é isso, eu coloquei dentro do campo mesmo no modo design:
Só que neste caso eu não consegui ter quebra de linha oa preenchimento dos campos.

=SeImed([rd_AssistanceType]=1;SeImed([bx_JournalID]<>"";"Journal ID: " & Direita([bx_JournalID];10) & ". ")) & SeImed([op_toade]=-1;"[TOADE]") & SeImed([op_va]=-1;"[VA]") & SeImed([op_opace]=-1;"[VPACE]") & SeImed([op_vdi]=-1;"[VDI]") & SeImed([op_hcok]=-1;"[HC/OK]") & SeImed([op_hcnok]=-1;"[HC/NOK]") & SeImed([op_DeferOk]=-1;"[NBDOK]") & SeImed([op_DeferNOk]=-1;"[NBDNOK-" & [bx_DeferNOkOptions]

O método que passei acima seria no evento "Ao clicar" de um botão. Quando clicasse no botão, seriam inseridos todos os campos nesse campo. Se a ideia for aparecer após digitar em cada campo, mude para o evento "Após atualizar" de cada campo assim:

If IsNull(Me.CampoDoTotal) Or Me.CampoDoTotal.Value = "" Then
Me.CampoDoTotal = Me.NomeDoCampoAtual
Else
Me.CampoDoTotal = Me.CampoDoTotal & vBcRlF & Me.NomeDoCampoAtual
End If

Vou testar e te respondo em seguida se deu certo.

Eu não consegui, você pode me mandar um exemplo por gentileza.

Agora fiz e deu certo. obrigado.
Caso eu queira colocar o titulo do campo antes do valor inserido como faço no exemplo que você enviou?

Amigão, quando você acessa o formulário em estrutura, ao clicar em um controle, você poderá visualizar nas propriedades do controle, na aba Eventos, todos os eventos relacionados ao controle. Basta colocar o código acima no evento "Após atualizar" de cada um dos campos que quiser jogar o conteúdo dele no outro campo, colocando o nome correto dos campos. Vamos supor que você tenha os campos txtNome, txtEndereço e txtTelefone e quer colocar esses dados desses três campos no campo txtUnião. Então, você coloca no evento "Após atualizar" do campo txtNome assim:

If IsNull(Me.txtUnião) Or Me.txtUnião.Value = "" Then
Me.txtUnião = Me.txtNome
Else
Me.txtUnião = Me.txtUnião & VBCRLF & Me.txtNome
End If

Depois, coloca a mesma coisa no evento "Após atualizar" do campo txtEndereço, apenas mudando o nome do campo txtNome para txtEndereço:

If IsNull(Me.txtUnião) Or Me.txtUnião.Value = "" Then
Me.txtUnião = Me.txtEndereço
Else
Me.txtUnião = Me.txtUnião & VBCRLF & Me.txtEndereço
End If

A mesma coisa para o campo txtTelefone:

If IsNull(Me.txtUnião) Or Me.txtUnião.Value = "" Then
Me.txtUnião = Me.txtTelefone
Else
Me.txtUnião = Me.txtUnião & VBCRLF & Me.txtTelefone
End If

If IsNull(Me.txtUnião) Or Me.txtUnião.Value = "" Then
Me.txtUnião = "Título entre aspas" & VBCRLF & Me.txtNome
Else
Me.txtUnião = Me.txtUnião & VBCRLF & Me.txtNome
End If

Eu mesmo resolvi da seguinte forma

If IsNull(Me.campototal) Or Me.campototal.Value = "" Then
Me.campototal = Me.campoatual
Else
Me.campototal = Me.campototal & vbCrLf & "Titulo: " & Me.campoatual
End If

Obrigado mais uma vez e desculpe o incomodo.

Tranquilo. Importante que resolveu.

Para fazer na fonte do controle conforme sugeriu mais acima, seria assim:

="Título aqui
" & [Campo1] & "
" & [Campo2] & "
" & [Campo3] & "
" & [Campo4]

Entendi mas o titulo quero por campo assim:

Nome do contato: campo1
Telefone: campo2


Entendeu?

Olá!

Neste exemplo os dados só ficam em um único campo quando atualizo pelo formulário, será que teria algum código que incluiria os dados em um único campo toda vez que entrassem novos dados na minha tabela?

Oi Jéssica, tudo bem? Para que consiga executar um evento ao passo em que algo ocorra, como por exemplo a atualização de uma tabela, você precisará usar os eventos "No cronômetro" e "No timer". No cronômetro você coloca o intervalo em milisegundos. Por exemplo, para 1 segundo, coloca 1000. No timer, você coloca o que deverá acontecer.

Olá Criquio!
Muito obrigado pela rápida resposta!
Tudo ótimo!!!

É que eu não entendo muito de programação, poderia me explicar melhor o que eu devo colocar no No timer?

Muito obrigado pela atenção!

Explique melhor um pouquinho o que você precisa. Você que que, a cada nova linha inserida na tabela, um campo seja atualizado no formulário incluindo essa nova linha? Seria algo como o campo abrir com todos os registros da tabela assim:

Linha 1
Linha 2
Linha 3
Linha 4
Linha 5

Aí é inserida uma nova linha e ela deve ir automaticamente assim:

Linha 1
Linha 2
Linha 3
Linha 4
Linha 5
Linha 6

Seria isso mesmo?

Então, é o seguinte:

Eu tenho na minha tabela: Campo1 Campo2 Campo3 Campo4

O Campo4 seria (Campo1,Campo2,Campo3) e quando entrassem novos dados na minha tabela o Campo4 pudesse ser preenchido!

Tem como? pois no exemplo de cima ele só atualiza quando digito atraves do formulário queria que preenchesse através da tabela tbm!

Obrigado pela atenção!!!

tem alguma idéia?

Obrigado pela atenção!

Gente de acordo com a minha dúvida eu tentei criar uma consulta:

INSERT INTO Empresa(ValorTotal)
SELECT Valor1 & Valor2;

Sendo que esta consulta está me pedindo para digitar os valores eu queria quen ele colocasse os valores ao entrarem dados da tabela e na linha de acordo com os campos, alguém tem alguma idéia de como aperfeiçoar minha consulta ou se tem como da forma que eu quero?

Se alguém puder me ajudar!

Abraços

Jessica, ainda não entendi bem o que pretendes. Seria o que postei na mensagem anterior?

Deixa dar um exemplo:

Campo1 Campo2 Campo3
125 255 125255 (ou tendo um ponto ou uma vígula entre eles); e ao entrarem dados no Campo1 e Campo2, o Campo3 seria preenchido;

O código que vc postou faz isso mas apenas quando digito no formulário, como eu trabalho com mts informações e importo dados diretamente de um excel queria que essa coluna do Campo3 fosse preenchida automaticamente!

Está faltando entender se os novos dados devem entrar abaixo dos dados já existentes no campo ou se o campo deve ser limpo para entrada dos novos dados. Outra coisa, cada linha da tabela ficaria em uma linha do campo ou ficaria tudo na frente uns dos outros?

Não sei se entendi suas perguntas mas de qualquer forma

Eu tenho uma tabela temporária e entrarão dados nela, no caso Campo1 e Campo2 o Campo3(seria a União), após os dados serem lançados para tabelafinal esses dados são apagados! O campo3 é fixo, ele não muda e nem sofre alteração, cada registro tem um campo fixo!

Campo1 Campo2 Campo3
45------25----4525
55------85----5585

O que eu perguntei é o seguinte. Vamos supor que você tenha no formulário, os dados que colocou na mensagem anterior:

Campo1 Campo2 Campo3
  45     25    4525
  55     85    5585

Vamos supor que entraram duas novas linhas na tabela:

Campo1 Campo2
  15     35
  75     95

Essas duas novas linhas ficarão sozinhas no campo?

Campo1 Campo2 Campo3
  15     35    1535
  75     95    7595

Ou elas irão para o fim do campo e as que já estavam permanecem?

Campo1 Campo2 Campo3
  45     25    4525
  55     85    5585
  15     35    1535
  75     95    7595

Olá! então desculpe pela demora, cheguei hoje de viajem!
Primeiramente Feliz 2012 a todos! Que seja um ano
repleto de realizações!

Então seria a segunda opção: irão para o fim do campo e as que já estavam permanecem


muito obrigado pela atenção Criquio!
att,

Jessica.

Você precisará desse campo apenas para visualização? Se for, talvez fosse mais prático criar uma consulta e colocar um subformulário só com esse campo no local do campo. No evento "No cronômetro" você coloca 1000(1 segundo) e no evento "No timer" desse subformulário, você coloca:

Me.Requery ' Atualiza o subformulário segundo a segundo
DoCmd.GoToRecord , , acGoTo, Me.Código - 10 ' Vai para o último registro

Pode ser necessário trocar o -10 por outro número, para ficar sempre os últimos registros visíveis no subformulário. A ideia aqui é a seguinte: vamos supor que o subformulário que você criou tenha a altura de 10 registros. Se a consulta tiver mais de 10 registros, ele deverá ir para o último menos 10 registros. Mas se tiver menos de 10 registros, poderá dar erro, então vamos condicionar a navegação para ser utilizada apenas quando tiver mais de 10 registros:

Me.Requery
If DCount("*", "NomeDaConsulta") > 10 Then
DoCmd.GoToRecord , , acGoTo, Me.Código - 10
Else
End If

Na sua consulta, antes de criar o subformulário, crie um campo calculado para unir os outros dois campos:

DoisCampos: [Campo1] & [Campo2]

Então eu preciso trabalhar com esse campo, ele não me serviria apenas como vizualização pois como eu disse, é ele que vou jogar para outra tabela!

If IsNull(Me.txtUnião) Or Me.txtUnião.Value = "" Then
Me.txtUnião = Me.txtNome
Else
Me.txtUnião = Me.txtUnião & VBCRLF & Me.txtNome
End If

seu código seria perfeito, só que ele apenas atualiza quando digito pelo form e o meu form servirá para importar dados para tabela

Acabamos voltando ao início

Se possível, coloque uma cópia do bd aqui em versão 2003 para que os colegas possam dar uma olhada. Não prometo olhar porque o tempo anda meio escasso para responder aqui e tambem fazer download e olhar exemplos, mas se der eu olho tambem.

O que eu quero é uma coisa bem simples...sendo que a concatenação deve ser feita após atualizar os dados, pois insiro dados diretamente na tabela! Então toda vez que o CampoValor e CampoContato recebessem dados o campo CodConcat fosse preenchido com a concatenação dos dois!

Se aguem puder me ajudar a resolver esse problema!


não estou conseguindo anexar!

Está meio difícil entender sem ver a montagem do sistema. Algumas dúvidas:

1 - É um formulário simples ou formulário contínuo?
2 - Quando o sistema for aberto esse campo já deverá ser carregado com dados da tabela?
3 - Esses dados seriam todos os registros da tabela ou os registros comum a um código?

Supondo que você tenha um formulário simples e queira carregar esse campo quando abrir o sistema, coloque no evento "Ao carregar" do formulário:

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")

Me.NomeDoCampo = Null

DoWhile Not rs.EOF
     If IsNull(Me.NomeDoCampo) Or Me.NomeDoCampo.Value = "" Then
          Me.NomeDoCampo = rs!Campo1DaTabela & rs!Campo2DaTabela
     Else
          Me.NomeDoCampo = Me.NomeDoCampo & VBCRLF & rs!Campo1DaTabela & rs!Campo2DaTabela
     rs.MoveNext
Loop

rs.Close
Set rs = Nothing

Agora, supondo que você queira adicionar os registros dos campos nesse outro campo, coloque no evento "Após atualizar" de um dos campos ou no clique do um botão, lembrando que para o "Após atualizar" do campo, precisa se certificar de que os dois campos estejam preenchidos:

If IsNull(Me.NomeDoCampo) Or Me.NomeDoCampo.Value = "" Then
     Me.NomeDoCampo = Me.NomeDoCampo1DoForm & Me.NomeDoCampo2DoForm
Else
     Me.NomeDoCampo = Me.NomeDoCampo & VBCRLF & Me.NomeDoCampo1DoForm & Me.NomeDoCampo2DoForm
End If

É por aí, mas talvez tenha que adaptar dependendo do tipo de formulário e do tipo de utilização que irá precisar.

criquio muito obrigado pela seu ajuda
desculpe-me por ocupar seu tempo

estava utilizando exatamente o código acima que vc enviou
acho q ele funcionará tbm, vou colocar aqui o código que acabei de conseguir tbm!

Private Sub Form_Load()
DoCmd.RunSQL "UPDATE Dados SET Dados.CodConcat = Valor & Contato;"
End Sub

só falta alguma adaptações que preciso fazer ao meu banco de dados!

Muito obrigado pela atenção!
Resolvido!

feito.