MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

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

    Mensagem  João Ricardo em Ter 07 Jan 2014, 00:13

    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

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Ter 07 Jan 2014, 09:11

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

    Cumprimentos.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

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

    Mensagem  João Ricardo em Ter 07 Jan 2014, 11:00

    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.

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Ter 07 Jan 2014, 11:27

    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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    João Ricardo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 453
    Registrado : 20/01/2013

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

    Mensagem  João Ricardo em Ter 07 Jan 2014, 15:06

    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.

    [Você precisa estar registrado e conectado para ver este link.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Ter 07 Jan 2014, 23:25

    O Fórum agradece o Retorno.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Qua 07 Dez 2016, 20:13