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

    SA Iniciante
    avatar
    SA Iniciante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 19/04/2012
    • Mensagem nº1

    [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
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº2

    [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)
    • Ir para o topo
    SA Iniciante
    avatar
    SA Iniciante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 19/04/2012
    • Mensagem nº3

    [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.
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº4

    [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.
    • Ir para o topo
    SA Iniciante
    avatar
    SA Iniciante
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 3
    Registrado : 19/04/2012
    • Mensagem nº5

    [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
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº6

    [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.
    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº7

    [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

    • Ir para o topo
    Convidad
    avatar
    Convidad
    Convidado


    • Mensagem nº8

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

    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº9

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 8/5/2024, 20:35