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


2 participantes

    [Resolvido]Filtrar por meio combox

    avatar
    SA Iniciante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 19/04/2012

    [Resolvido]Filtrar por meio combox Empty Filtrar por meio combox

    Mensagem  SA Iniciante 19/4/2012, 21:52

    Boa tarde,
    Sou iniciante no Access, mais bem iniciante mesmo. C Tenho um BD simples, com uma tabela denominada "Cadastro Geral" e um formulário denominado "Cadastra Colaborador" que a alimenta.

    Adicionei uma combo denominada "cboconsulta" no formulário para pesquisar os colaboradores. A consulta foi gerada, mas não consigo fazer com que ao selecionar o colaborador as demais informações relacionadas a ele constantes na tabela apareçam.
    Alguém pode me ajudar. Desde já agradeço. Embarassed
    avatar
    Convidad
    Convidado


    [Resolvido]Filtrar por meio combox Empty Re: [Resolvido]Filtrar por meio combox

    Mensagem  Convidad 19/4/2012, 22:13


    Olá!

    Sugiro que não deixe espaços em nomes de campos e tabelas.

    A Origem-da-Linha da sua combo deve ser uma consulta ou instrução que inclua o campo chave-primária da tabela e o campo nome do cadastrado.

    SELECT CadastroGeral.Id, CadastroGeral.Nome FROM CadastroGeral ORDER BY CadastroGeral.Nome;

    No evento ApósAtualizar da combo entra este código:


    Private Sub NomeCombo_AfterUpdate()
    If Not IsNull(Me.NomeCombo) Then
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "]Id] = " & str(Me!]NomeCombo])
    Me.Bookmark = rs.Bookmark
    Set rs = Nothing
    End If
    Me.NomeCombo = Null
    Me.Nome.SetFocus
    End Sub



    Última edição por Norberto Rost em 20/4/2012, 15:16, editado 1 vez(es) (Motivo da edição : Destacar nomes que devem ser substituídos)
    avatar
    SA Iniciante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 19/04/2012

    [Resolvido]Filtrar por meio combox Empty Re: [Resolvido]Filtrar por meio combox

    Mensagem  SA Iniciante 20/4/2012, 14:57

    Bom dia,
    NORBERTO obrigada pela informação, mas não deu certo, ao rodar aparece o seguinte erro: Erro em tempo de execução '13': Tipos incompatíveis.
    avatar
    Convidad
    Convidado


    [Resolvido]Filtrar por meio combox Empty Re: [Resolvido]Filtrar por meio combox

    Mensagem  Convidad 20/4/2012, 15:17


    Olá!

    Substituiu os nomes dos controle no código pelos nomes verdadeiros?

    Os campos em azul devem ser renomeados para os que constam na propriedade Nome de cada um.

    A coluna acoplada da combo deve ser 1.

    Se não for isso, poste o sql da consulta e o código que colocou no evento.
    avatar
    SA Iniciante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 19/04/2012

    [Resolvido]Filtrar por meio combox Empty Re: [Resolvido]Filtrar por meio combox

    Mensagem  SA Iniciante 20/4/2012, 16:19

    não havia alterado o ID para o nome do campo, mas mesmo com a alteração não deu certo segue as informações
    SELECT CadastroGeral.NCOLABORADOR AS Expr1, CadastroGeral.COLABORADOR
    FROM CadastroGeral
    ORDER BY CadastroGeral.COLABORADOR;
    O código é Private Sub CBOCONSULTA_AfterUpdate()
    If Not IsNull(Me.CBOCONSULTA) Then
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[NCOLABORADORES] = " & Str(Me![CBOCONSULTA])
    Me.Bookmark = rs.Bookmark
    Set rs = Nothing
    End If
    Me.CBOCONSULTA = Null
    Me.COLABORADOR.SetFocus
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Filtrar por meio combox Empty Re: [Resolvido]Filtrar por meio combox

    Mensagem  Avelino Sampaio 20/4/2012, 16:31

    Olá

    Já que vc é bem iniciante, eu sugiro este tutorial com vídeo-aula e arquivo exemplo:

    http://www.usandoaccess.com.br/tutoriais/tuto35.asp?id=1#inicio

    Bom estudo!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Convidad
    Convidado


    [Resolvido]Filtrar por meio combox Empty Re: [Resolvido]Filtrar por meio combox

    Mensagem  Convidad 20/4/2012, 17:17


    O campo NCOLABORADOR na usa tabela deve ser Número, certo?

    Então tente assim:

    SELECT CadastroGeral.NCOLABORADOR, CadastroGeral.COLABORADOR
    FROM CadastroGeral
    ORDER BY CadastroGeral.COLABORADOR;


    Private Sub CBOCONSULTA_AfterUpdate()
    If Not IsNull(Me.CBOCONSULTA) Then
    Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[NCOLABORADOR] = " & Str(Me![CBOCONSULTA])
    Me.Bookmark = rs.Bookmark
    Set rs = Nothing
    End If
    Me.CBOCONSULTA = Null
    Me.COLABORADOR.SetFocus
    End Sub

    avatar
    Convidad
    Convidado


    [Resolvido]Filtrar por meio combox Empty Re: [Resolvido]Filtrar por meio combox

    Mensagem  Convidad 12/5/2012, 17:54


    Como não tivemos retorno, o tópico passa a resolvido.

    Se necessário, basta dar continuidade.


    Conteúdo patrocinado


    [Resolvido]Filtrar por meio combox Empty Re: [Resolvido]Filtrar por meio combox

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 07:24