MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


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

    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  João Ricardo 7/1/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
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 7/1/2014, 09:11

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

    Cumprimentos.
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  João Ricardo 7/1/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.
    avatar
    Convidado
    Convidado


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

    Mensagem  Convidado 7/1/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.
    João Ricardo
    João Ricardo
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  João Ricardo 7/1/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.

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


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

    Mensagem  Convidado 7/1/2014, 23:25

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 20:36