Combinar Texto em Expressão

Alguém poderia de ajudar...

Estou fazendo um Relatório...Tenho a tbl_cliente ( Os Campos Cod, Nome, Endereço, Nº, Bairro etc...

No relatório queria colocar os dados do cliente em três linha centralizado com a cada campo uma virgula
Mas não com os campos um do lado do outro. E sim um campo com todos os dados do cliente é possível...

Estou tentando assim: =([Endereço] & (", " + [Nº]) & " " & [Bairro])   etc... mas nao deu....


Estou enviando um arquivo com a imagem se alguém poder ajudar.

Olá Diogo,

Ao manipular dados de um registro você sempre tem que utilizar variáveis para capturar esses dados. A partir daí você pode manipulá-los à vontade.

Código:

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Dim strEndereco As String
Dim intComp As Integer
Dim strBairro As String

strEndereco = Forms!frmDados!txtEndereco
intComp = Forms!frmDados!txtNumero
strBairro = Forms!frmDados!txtBairro

Me.txtEndCompleto = strEndereco & "," & intComp & "," & strBairro & ""            'txtEndCompleto é a sua caixa de texto que receberá os dados das variáveis
End Sub

Não Consegui fazer esse exemplo aqui da erro (0,00,00,) na caixa de texto

Bom Dia:

Você consegui fazer um exemplo em BD Acess com dados de endereço, Nº, Cidade, Telefone, Cel, E-mail estou tentando aqui fazer para ficar no topo do relatório igual o exemplo que te enviei na mensagem anterior é um BD simples que estou tentando deixar o relatório um pouco melhor....

O Exemplo e do meu BD...

Bom Dia

Com algumas Pesquisas aqui no Fórum  e ajuda consegui resolver.

Com essa expressão:

=(([Endereco]) & ", " & ([Nº]) & ", " & ([Bairro]) & ", " & ([Cep]) & ", " & ([Cidade]) & ", " & ([UF]) & ", " & ([Telefone]) & ", " & ([E-mail]))

Olá Diego,

Corrigindo um ponto. No início pensei que fosse tudo em um formulário. Não havia atentado que era um relatório. Veja este exemplo agora utilizando a função Space para esparçar os campos em uma caixa de texto do formulário e repassar para um rótulo do relatório neste template.

No relatório:

Código:

Private Sub Report_Open(Cancel As Integer)
Dim frm As Form

DoCmd.OpenForm "frmDados", , , , , acHidden

Set frm = Forms!frmDados
lblInfo.Caption = frm!txtEndCompleto

End Sub

Criando um código para o formulário para padronizar a informação:

Código:


Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
Dim strEndereco As String
Dim intComp As Integer
Dim strBairro, strCidade, strUF As String
Dim strTel, strCel, strCEP As String


strEndereco = Nz(DLookup("Endereco", "tblDados", "Codigo = 1"))
intComp = Nz(DLookup("Numero", "tblDados", "Codigo = 1"))
strUF = Nz(DLookup("UF", "tblDados", "Codigo = 1"))
strBairro = Nz(DLookup("Bairro", "tblDados", "Codigo = 1"))
strCEP = Nz(DLookup("CEP", "tblDados", "Codigo = 1"))
strCidade = Nz(DLookup("Cidade", "tblDados", "Codigo = 1"))
strTel = Nz(DLookup("Telefone", "tblDados", "Codigo = 1"))
strCel = Nz(DLookup("Celular", "tblDados", "Codigo = 1"))

Me.txtEndCompleto = "" & Space(10) & strEndereco & Space(50) & "Nº: " & intComp & Space(10) & "UF: " & strUF & vbCrLf & _
"Bairro: " & strBairro & Space(20) & "Cep: " & strCEP & Space(40) & "Cidade: " & strCidade & vbCrLf & _
"" & Space(10) & "Tel: " & strTel & Space(30) & "Cel: " & strCel & ""

End Sub