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.
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