[Resolvido]Consulta Referencia cruzada com critério/parametro = resultado caracteres malucos

Bom Dia.
Estou com um problema que não estou conseguindo resolver.
em uma consulta de referencia cruzada com os campos MesAno e outro em questão "observacão" (Memorando),
utilizo critério e parâmetro [digite Mês/Ano].

Esta consulta de referencia cruzada funciona há bastante tempo e às vezes ela apresenta esse problema de o
campo "Observação" aparecer com esses caracteres parecendo escrito em Japonês. o que sempre se resolveu
com Ferramentas/Compactar e reparar banco de dados. incluindo ontem que fiz isso.

Porem, ocorre que hoje após inúmeras tentativas, não consigo fazer aparece normalmente o que está escrito no campo
"Observação". eliminando o critério/parâmetro fica normal.


o que poderia estar acontecendo ?????

Ei Amigos, uma ajuda aí por favor.

Peguei uma cópia de backup da base e disparei a consulta. veio normal.
Pequei a base atual e eliminei 32 registros. disparei a consulta. veio normal.
Porém só normaliza se eliminar os 32 registros. eliminando de 5 em 5 por exemplo, não dá resultado.
eliminando um a um, não dá resultado.

alguém já teve experiência desse tipo que possa me dar uma alternativa para solucionar.

obrigado.

Pessoal, como não tive qualquer resposta até o momento e continuei fazendo as tentativas. "Sem Sucesso".

Levando em conta que a consulta de referencia cruzada tem apresentado problema somente quando é executada
com  critério/parâmetro; Estou resolvendo tentar o Relatório a partir de uma tabela temporária criada a partir dessa consulta.

aí me surge uma outra dúvida:
é mais funcional criar e deletar x deletar e criar essa tabela temporária ? ou
manter essa tabela "Temp" e somente deletar e adicionar os registros ?

obrigado

Pessoal mais uma ajuda por favor.
Estou tentando contornar com este procedimento, mas não está funcionando.

FrmRelatAtendMensal = Cxtexto – Data/hora (mmmm/yyyy) / BtnOK / BtnCancela
TblAtendimentomensal mesma estrutura de CstAtendimentos1

Private Sub desok_Click()

CurrentDb.Execute ("DELETE * FROM TblAtendimentoMensal")
CurrentDb.Execute "Insert Into TblAtendimentoMensal Select * FROM CstAtendimentos1 WHERE MesAno = #" & Me.DtRelat & "#"

End Sub

Delete funciona
Insert sem critério também

Mas com critério não funciona.
Preciso que os dados inseridos na tabela seja o mês digitado no campo DtRelat do Form, para que possa inserir ainda o comando para abrir o relatório baseado nessa tabela.

Agradeço alguma ajuda.

Olá Alcides, será melhor postar base de dados com dados de exemplo para testar.

Ahteixeira, obrigado pelo retorno. cheguei a um resultado.

Private Sub desok_Click()
On Error Resume Next

Dim strDocName As String
Dim strFilter As String
Dim strTable As String
Dim strSQL As String
strTable = "TblAtendimentomensal"
strSQL = "Select * INTO " & strTable & " FROM CstAtendimentos1"
strDocName = "RltAtendimentomensal"
strFilter = "MesAno= Forms!FrmRelatAtendmensal!DtRelat" 'monta o filtro
DoCmd.DeleteObject acTable, strTable 'Deleta a tabela temporaria para o relatório
CurrentDb.Execute strSQL 'Cria uma nova tabela atualizada para o relatório

   If IsNull([DtRelat]) Then
   MsgBox "Você deve informar um mes para impressão", , "Mensagem de Erro"
   DoCmd.GoToControl "DtRelat"
   Else
   DoCmd.OpenReport strDocName, acViewPreview, , strFilter 'abre o relatório baseado na nova tabela e filtrado pelo mes
End If

Me.DtRelat = Null
Me.Visible = False
End Sub


isso parece que resolveu.

Obrigado pelo retorno, o fórum agradece.
Abraço