[Resolvido]Caixa texto com expressão usando Mid

Amigos como aplicar essa expressão em uma caixa texto em um relatório

Mid(Menssagem, 26, 7)

Grato

***Menssagem é um campo na tabela

Seria isso?

Mid(DLookup("Mensagem", "Tabela", "Código=" & Código), 26, 7)

Se for na origem do campo (recomendável):

=Mid(DLookup("Mensagem";"Tabela";"Código=" & [Código]);26;7)

Criquio.. deu Erro (#Erro)

O relatório é populado via SQL/RecordSource...

Grato

como usar em BackEnd sem tabelas vinculadas?


Me.txtMenssagem = Mid(DLookup("Mensagem", "Tbl_Enviados", "Código=" & Código), 26, 7)

E se você tivesse um campo para pegar o valor inteiro e à partir dele tirar o meio? Ou usando aqueles velhos companheiros, o ws, o db e o rs?

Me.txtMensagem = Mid(rs("NomeCampo"), 26, 7)

Mas se são várias linhas populadas, acredito que usando a primeira forma seria mais prático, colocando um campo para pegar todo o valor e outro para o Mid:

=Mid([ValorInteiro];26;7)

é isso ai amigão.. eu ja tinha tentado.. mas não havia colocado os colchetes..

=Mid([ValorInteiro];26;7)

Perfect..

Grato

Olha que solução interssante amigão..

As mensagens são sempre duas.. mas cada vez muda-se o horário de emissão..

12/07/2011 08:17:54 OCORRÊNCIA DE DESCARGAS ELÉTRICAS
12/07/2011 08:18:48 OCORRÊNCIA DE FOCO DE INCÊNDIO

Eu precisava criar um relatório de estatística para contar as duas ocorrencias apenas (Fogo ou Raio)

Com o agrupamento por mensagem no relatório não dava certo pois as ele entendia cada mensagem como uma ocorrenci diferente porcausa do horário, então o Mid não serviu no relatório como aplicamos...

***** Então isolei a ocorrência na SQL... assim pude agrupar pelas duas ocorrencias apenas, podendo assim fazer a estatística por quantidade das duas ocorrências (Fogo ou Raio)


StrETH = "SELECT tbl_Enviados.Código, tbl_Enviados.Data, tbl_Enviados.Titulo," _
& "tbl_Enviados.Mensagem, tbl_Enviados.Unidade, tbl_Enviados.Localidade," _
& "Mid([Mensagem],36,20) AS MSG From tbl_Enviados IN '" & StrPath & "'" _
& "GROUP BY tbl_Enviados.Código, tbl_Enviados.Data, tbl_Enviados.Titulo," _
& "tbl_Enviados.Mensagem, tbl_Enviados.Unidade, tbl_Enviados.Localidade, Mid([Mensagem],36,20);"



Saudações

Bom trabalho