Tamanho Máximo de expressões no access

Moderador: Avelino Sampaio

ROSANO
Mensagens: 20
Registrado em: 06 Jun 2015, 22:21

Tamanho Máximo de expressões no access

Mensagempor ROSANO » 11 Jul 2016, 12:53

Bom dia!

Alguém poderia me dizer o tamanho máximo de uma expressão no Access?

Tentei reproduzir uma expressão do excel, que em suas ultimas versões parece ser ilimitado, e deu erro.

Pretendo fazer comunicados, ofícios e memorandos num formulário dividido onde a parte imprimível (a correspondência) vai buscar os dados da tabela.

Que posso fazer?

Obrigado!

No aguardo!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1886
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Tamanho Máximo de expressões no access

Mensagempor Avelino Sampaio » 11 Jul 2016, 13:07

Rosano,

copie aqui a expressão

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

ROSANO
Mensagens: 20
Registrado em: 06 Jun 2015, 22:21

Re: Tamanho Máximo de expressões no access

Mensagempor ROSANO » 11 Jul 2016, 20:42

=”Belo Horizonte, “&[data]&”
Assunto: “&[Assunto]&”
Instituidor: “&[Instituidor]&”
Recorrente: “&[Recorrente]&”
Processo: “&[Processo]&”


Ao Departamento de Pensão – Pagamento,


Considerando notificação de fls. “&[notificação]&”

Considerando Recurso Administrativo de “&[Recurso Administrativo]&”

Considerando manifestação de fls. “&[manifestação]&”

Considerando o poder/dever de a Administração Pública zelar e controlar seus atos, no desígnio de restaurar a legalidade e de atender o interesse público.

Com base na manifestação do órgão de origem do servidor às fls. “&[origem]&”e nas razões do estudo de atualização de fls. “&[estudo]&”INDEFIRO o recurso de fls. “&[Recurso Administrativo]&”com fundamento no disposto no art. 44 da Lei Complementar estadual nº 64/02.

Deste modo caberá a esse setor:

a) Adequar o valor do beneficio nos termos do estudo de fls. “&[estudo]&”
b) Comunicar a beneficiaria sobre a decisão que indeferiu o recurso e a consequente adequação do valor;
c) Apurar o débito gerado em virtude do recebimento indevido de valores, suspendendo sua cobrança, e notificar a beneficiaria concedendo-lhe o prazo de defesa contra o debito;



Luis Gustavo
Chefe do Departamento de Pensão”

--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
Observação: Diferente daqui, a correspondência também tem que levar em conta o espaçamento, como ocorre no word anexo.

Grato!
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Avatar do usuário
Avelino Sampaio
Mensagens: 1886
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Tamanho Máximo de expressões no access

Mensagempor Avelino Sampaio » 12 Jul 2016, 11:13

Rosano,

uma solução bem interessante para o seu caso, seria cria modelos desses documentos no Word (Dotx) e em cima desses modelos gerar pelo Access o documentos preenchidos.

Para preencher o doc com dados do Access, utilizamos os INDICADORES (Bookmarks) no Word. Posicione o cursor no local aonde deseja inserir o INDICADOR, vá na guia Inserir da ribbon e clique em INDICADOR. Dê um nome ao INDICADOR.

Para visualizar os INDICADORES do documento, vá na guia Arquivo > Opções > Avançado > marque Mostrar Indicadores

Segue exemplo com o modelo doc e Bd para gerar o doc

o Código para gerar o DC foi este abaixo:

Código:
Private Sub brGerarDoc_Click()
Dim wdApl As Object, NomeDoc$
Set wdApl = CreateObject("Word.Application")
wdApl.Documents.Open FileName:=CurrentProject.Path & "\RosanoModelo1.dotx"
With wdApl
.ActiveDocument.Bookmarks("I1").Select: .Selection.Text = Nz(Format(Me!DataProcesso, "dd \de mmmm \de yyyy"))
.ActiveDocument.Bookmarks("I2").Select: .Selection.Text = Nz(Me!Assunto)
.ActiveDocument.Bookmarks("I3").Select: .Selection.Text = Nz(Me!Instituidor)
.ActiveDocument.Bookmarks("I4").Select: .Selection.Text = Nz(Me!Recorrente)
.ActiveDocument.Bookmarks("I5").Select: .Selection.Text = Nz(Me!Processo)
.ActiveDocument.Bookmarks("I6").Select: .Selection.Text = Nz(Me!Notificação)
.ActiveDocument.Bookmarks("I7").Select: .Selection.Text = Nz(Me!RecursoAdministrativo)
.ActiveDocument.Bookmarks("I8").Select: .Selection.Text = Nz(Me!Manifestação)
.ActiveDocument.Bookmarks("I9").Select: .Selection.Text = Nz(Me!Origem)
.ActiveDocument.Bookmarks("I10").Select: .Selection.Text = Nz(Me!Estudo)
.ActiveDocument.Bookmarks("I11").Select: .Selection.Text = Nz(Me!RecursoAdministrativo)
.ActiveDocument.Bookmarks("I12").Select: .Selection.Text = Nz(Me!Estudo)
NomeDoc = "Doc-" & Nz(Replace(Me!Assunto, " ", "")) & "-" & Format(Now, "hhmmss") & ".doc"
.ActiveDocument.SaveAs CurrentProject.Path & "\" & NomeDoc
.ActiveDocument.Close
.Quit
End With
Set wdApl = Nothing
MsgBox "Carta gerada com sucesso..." & nomeDoc, vbInformation, "Aviso"
End Sub


Aguardamos
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


ROSANO
Mensagens: 20
Registrado em: 06 Jun 2015, 22:21

Re: Tamanho Máximo de expressões no access

Mensagempor ROSANO » 12 Jul 2016, 11:57

Desculpe, mas assim, como uma mala direta nao me atende.

Tem de ser um formulário dividido onde eu possa entrar com os dados numa tabela de um lado e eles se encaixem do outro, já visualizando a correspondência pronta, com espaçamentos, negritos, tudo.

No aguardo!

Avatar do usuário
Avelino Sampaio
Mensagens: 1886
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Tamanho Máximo de expressões no access

Mensagempor Avelino Sampaio » 12 Jul 2016, 12:24

Rosano,

qual é a versão do seu Access ? creio que seja possível somente da versão 2007 em diante, para poder utilizar o formato Rich Text

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

ROSANO
Mensagens: 20
Registrado em: 06 Jun 2015, 22:21

Re: Tamanho Máximo de expressões no access

Mensagempor ROSANO » 12 Jul 2016, 13:39

Access 2010!

Segue anexo exemplo!
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

ROSANO
Mensagens: 20
Registrado em: 06 Jun 2015, 22:21

Re: Tamanho Máximo de expressões no access

Mensagempor ROSANO » 12 Jul 2016, 15:29

Não seria melhor eu usar html?

Nesse caso, como eu encaixo os campos da tabela?

Avatar do usuário
Avelino Sampaio
Mensagens: 1886
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Tamanho Máximo de expressões no access

Mensagempor Avelino Sampaio » 12 Jul 2016, 16:07

Rosano,

segue o exemplo. Acrecentei o formulário frmTeste e o relatório rltMemo

Abra o formulário frmTeste. Clique em atualizar e verá o relatório preenchido. Altere os valores dos campos e clique em atualizar e verá o relatório com os novos valores. Clique no botão imprimir.

No evento "Ao carregar" do relatório eu acrecentei o texto em richText. No texto html do RichText eu acrescentei os indicadores [p1],[p2] e [p3]. estes indicadores são substituído pelos valores dos campos correpondentes do formulário através da função REPLACE()

Usei a variável tempVars() para passar os valores do formulário para o relatório.

Código:
Private Sub Report_Load()
Dim strTexto$, k

k = Split(Nz(TempVars!strSeq, ",,"), ",")

strTexto = "<blockquote><blockquote><blockquote><blockquote><div align=right>...
...
...
strTexto = strTexto & "<div><font color=black>Centro - Imbituba – SC</font></div><div>...</div>"

strTexto = Replace(strTexto, "[p2]", k(0))
strTexto = Replace(strTexto, "[p3]", k(1))
strTexto = Replace(strTexto, "[p1]", Format(k(2), "dd \de mmmm \de yyyy"))
Me!txt1 = strTexto
End Sub


Aguardamos
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
Avelino Sampaio
Mensagens: 1886
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Tamanho Máximo de expressões no access

Mensagempor Avelino Sampaio » 14 Jul 2016, 16:05

Rosano,

o exemplo atendeu o objetivo ?

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

ROSANO
Mensagens: 20
Registrado em: 06 Jun 2015, 22:21

Re: Tamanho Máximo de expressões no access

Mensagempor ROSANO » 19 Jul 2016, 16:35

Boa Tarde!

Em primeiro lugar, peço mil desculpas!
O sr. sempre tão solícito, atencioso e rápido nas respostas e eu demorando a responder. Prometo ser mais breve no futuro.

Em segundo lugar, o seu modelo é genial e elegante, mas , infelizmente, não atende ao meu projeto.
Estou terminando um modelo mais condizente com o que pretendo e, acredito que ficará mais simples de entender se ele ficar só para os arremates finais.

Já, já eu o estarei enviando.

Muito Obrigado!

ROSANO
Mensagens: 20
Registrado em: 06 Jun 2015, 22:21

Re: Tamanho Máximo de expressões no access

Mensagempor ROSANO » 19 Jul 2016, 18:06

Boa Tarde!

Como "prometido", envio minhas dúvidas relativas ao meu projeto, pelas quais solicito e agradeço vossa imensa ajuda!

1- Menu em um formulário de 2 níveis conforme formulário de navegação 1 & 2 do arquivo em Access (anexo);
2- Como colocar textos de correspondências em uma expressão em um campo calculado TEXTO LONGO E RICH TEXT, permitindo formatação

(É minha intenção fazer aparecer a correspondência relacionada imediatamente ao lado num formulário dividido e ir completando conforme vou incluindo os dados);

3- Juntar em um relatório o que seria o processo virtual, ou seja, visualizar os DOCUMENTOS RECEBIDOS (vizualizados em PDF em leitor do access) e os DOCUMENTOS EMITIDOS no PROCESSO DIGITAL em uma linha de tempo (talvez usando XML).

Dúvidas relativas às minhas dúvidas, não se acanhe em perguntar!

Mais uma vez, Mil Desculpas e Muito Obrigado!
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.

Avatar do usuário
Avelino Sampaio
Mensagens: 1886
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Tamanho Máximo de expressões no access

Mensagempor Avelino Sampaio » 24 Jul 2016, 11:52

Rosano,

Em segundo lugar, o seu modelo é genial e elegante, mas , infelizmente, não atende ao meu projeto.

Qual o motivo de não atender? Ofereça detalhes.

Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Tabelas”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 2 visitantes