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]Duvida, consulta e propagar valor por combobox

    avatar
    irailson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 83
    Registrado : 07/09/2010

    [Resolvido]Duvida, consulta e propagar valor por combobox Empty [Resolvido]Duvida, consulta e propagar valor por combobox

    Mensagem  irailson 29/10/2010, 11:06

    Olá Amigos, bom dia a todos.

    Fiquei muito feliz ao elaborar minha 1ª msgbox, agora que fiz minha 1ª consulta vista em tela estou nas nuvens.

    Eis a Situação:
    tenho uma consulta em formprincipal que tem umas duas combos: "Nome" e "Matricula"
    e um subfrmDetalhes onde a fonte é consulta "cnsOcorrências"> Após eu selecionar na combo "Nome" o nome da pessoa>>> aparece no subfrmDetalhes os detalhes desta pessoa.

    As combos tem os seguintes códigos:

    Nome: Private Sub cbo_Nome_NotInList(NewData As String, Response As Integer)
    'Inibe msg padrão do Access.
    Response = acDataErrContinue
    MsgBox "Não há registro para esse nome, tecle OK! para verificar lista!", vbInformation, "Informação do Sistema"
    Me.cbo_Nome = ""
    Me.cbo_Matrciula = ""
    End Sub

    Matricula: Private Sub cbo_Matrciula_AfterUpdate()
    ' Encontrar o registro que coincide com o controle.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Matricula] = '" & Me![cbo_Matrciula] & "'"
    Me.Bookmark = rs.Bookmark
    Me.cbo_Nome = ""
    Me.cbo_Matrciula = ""
    End Sub

    esta combos buscam de tbl_funcionario

    Minha dúvida é a seguinte no momento:

    Como faço para, nestas combos fazer uma busca pelos detalhes lá do sbfrmDetalhes:
    Tipo: Na combo selecionar buscar pelo campo "Resultado da Ocorrencia" e lá no subfrm aparecer todos os registros conforme aquele resultado.

    Espero ter sido compreendido na explanação...

    Obrigado a todos,

    Irailson
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Duvida, consulta e propagar valor por combobox Empty Re: [Resolvido]Duvida, consulta e propagar valor por combobox

    Mensagem  criquio 29/10/2010, 12:36

    No repositório de exemplos tem alguns exemplos de pesquisa que deve te ajudar na sua dúvida. Dá uma olhadinha lá.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


      Data/hora atual: 22/11/2024, 18:27