Instrução SQL

Pessoal bom dia,
Possuo a seguinte instrução SQL para pesquisa de referência cruzada

TRANSFORM FORMAT(Max(Cred_desc.Valor),'0.00') AS Expr1
SELECT Funcionários.Código, Funcionários.Nome, Cred_desc.Data
FROM (Funcionários INNER JOIN Cred_desc ON Funcionários.Código=Cred_desc.[Código funcionário]) INNER JOIN Convênios ON Cred_desc.[Código convênio]=Convênios.[Código convênio]
GROUP BY Funcionários.Código, Funcionários.Nome, Cred_desc.Data
PIVOT Convênios.Desconv;

Está funcionando quase 100%, o problema é que o campo "Convênios.Desconv" que é de tamanho (20 caracteres) passa para 255.
Gostaria de saber como fazer para redimensiona-lo novamente para o tamanho 20.

Grato.

Olá, seja bem vindo ao fórum!

Isso causa algum efeito estranho nos dados exibidos no campo? Talvez não seja preciso mexer nisso, pois, o que importa é o que está na tabela. A consulta apenas exibe os dados.

Boa tarde, preciso de ajuda urgente.
Sou novo no forum e venho aprendendo a programar em Access meu conhecimento não é grande.
É o seguinte.
Possuo um Formulário que contém 2 Listbox
1 - Bimestre - Setado a tabela (DIARIO) valores de seleção 1,2,3,4.
2 - Alunos - Setado a tabela (ALUNOS) valores de seleção nones dos alunos

Criei um SQL que é executado quando seleciono o nome do aluno na Listbox "2".

Estou tentando nesta consulta sql, buscar a nota do bimestre do aluno cujo nome for igual ao selecionado na Listbox "2".
Estou tendo erro de Sintaxe.

SQL que estou utilizando:

Dim db As Database
Dim tb As Recordset
Dim strSQL As String
Set db = OpenDatabase("C:\GET_COL\GET_COL.accdb"
strSQL = "SELECT DIARIO.NOTBIM_DIARIO, DIARIO.NOMEALUNO_DIARIO FROM DIARIO WHERE (((DIARIO.BIMESTRE_DIARIO) = '2')) AND ((DIARIO.NOMEALUNO_DIARIO) = " '&[Form]![Diário_Escolar]![Alunos].Text"'")));"
Set tb = db.OpenRecordset(strSQL, dbOpenDynaset)
Me.ACU_NOTA.SetFocus
Me.ACU_NOTA.Text = tb!NOTBIM_DIARIO
tb.Close
Set db = Nothing
End Sub

Se deixo desta forma funciona normal a caixa de texto recebe o valor.
Dim db As Database
Dim tb As Recordset
Dim strSQL As String
Set db = OpenDatabase("C:\GET_COL\GET_COL.accdb"
strSQL = "SELECT DIARIO.NOTBIM_DIARIO, DIARIO.NOMEALUNO_DIARIO FROM DIARIO WHERE (((DIARIO.BIMESTRE_DIARIO) = '2'))

Porém ao buscar o nome do aluno selecionado na Listbox 2 da o erro.
Por favor estou atrasado para entrega este projeto.
E obrigado.

Cosme, nova dúvida, novo tópico. Por favor, crie um novo tópico para a sua dúvida. Não se esqueça de colocar um título que descreva a sua necessidade.