[Resolvido]Erro em função para carregar lista de nomes

Olá Amigos.

Por favor, deêm uma olhada no código abaixo e veja o que pode estar errado.
Esta função está presente no arquivo disponibilizado pelo Mestre Avelino, o Maestro.
O erro é o seguinte: A lista é carregada pelo RGM e não pelo NomeAluno.
RGM é a chave primária e é um campo do tipo número.

Código:

Private Function fncCarregaLista(filtro As String)
Dim strsql As String
strsql = "SELECT RGM, NomeAluno "
strsql = strsql & "FROM tblAlunos "
strsql = strsql & "WHERE NomeAluno like ""*" & filtro & "*"" "
strsql = strsql & "ORDER BY NomeAluno;"
Me!ListaAluno.RowSource = strsql
End Function


Código:

Private Sub txtLocalizaAluno_Change()
    Call fncCarregaLista(Me!txtLocalizaAluno.Text)
End Sub


Código:

Private Sub txtLocalizaAluno_GotFocus()
    Me!txtLocalizaAluno.SelStart = Len(Me!txtLocalizaAluno & "")
    Call fncCarregaLista(Me!txtLocalizaAluno.Text)
End Sub


Bom dia João, explique: é carregada pelo RGM e não pelo nome...

Cumprimentos.

Olá HARYSOHN!

Grato pelo retorno!

O RGM serve como referência para carregar o nome. Na lista tem que aparecer o nome.
Tenho outro bd semelhante e que está funcionando bem. Como não tenho muita experiência em VBA, fiz um comparativo entre os dois e não encontrei erro, mas também não compreendi porque está com esse comportamento.

No horário de almoço eu te envio uma cópia do bd.

Bem, você está carregando duas colunas na listBox:

Código:

strsql = "SELECT RGM, NomeAluno "

Portanto deves configurar sua lista para exbir 2 colunas, ocultando a primeira

Abra o formulário em modo design, clique na lista, vá em propriedades, aba Formato:

Número de colunas: 2
Largura: 0;3 ---- Onde 3 é o tamanho do campo da segunda coluna.

Cumprimentos.

Olá amigo!

Tudo certo!

Grato pelo seu retorno. Aproveitei e incluí o campo série na lista junto com o nome e o RGM do aluno.

Se não for pedir muito, dê uma olhada no post do link abaixo.

http://maximoaccess.forumeiros.com/t16841-erro-ao-solicitar-a-impressao-de-relatoria-via-formulario

O Fórum agradece o Retorno.