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]Retorna Pesquisa

    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Retorna Pesquisa Empty [Resolvido]Retorna Pesquisa

    Mensagem  DEISON 24/2/2016, 13:38

    Bom Dia a Todos.

    Estou a estudar um BD, e estou precisando de ajuda.
    O caso é o seguinte.
    Eu tenho um formulário de pesquisa que quando eu clico no campo "MATRICULA"  ele abre o formulário de cadastro de alunos. Até ai tudo bem.
    Porém estou precisando que alem da combox vir com a Matricula desejada o cadastro do mesmo aparece.
    E o meu sistema está me retornando o primeiro registro.

    Segue abaixo o código que estou usando.

    Código:
    Option Compare Database
    Option Explicit

    Private Sub MATRICULA_Click()
    DoCmd.OpenForm "formAluno"
    Form_formAluno.CboBuscar.Value = Me!MATRICULA
    Form_formAluno.CboBuscar.SetFocus
    Me.Refresh
    End Sub

    Desde já agradeço a todos.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Retorna Pesquisa Empty Re: [Resolvido]Retorna Pesquisa

    Mensagem  JPaulo 24/2/2016, 14:12

    Ola;

    Teste e retorne por favor;

    Código:
    Private Sub MATRICULA_Click()
        DoCmd.OpenForm "formAluno"
        Forms!formAluno!CboBuscar.Value = Me!TXTMATRICULA
        Forms!formAluno!CboBuscar.SetFocus
        Forms("formAluno").Filter = "MATRICULA=" & Forms!formAluno!CboBuscar & ""
        Forms("formAluno").FilterOn = True
        Me.Refresh
    End Sub

    Se MATRICULA for texto;

    Código:
    Private Sub MATRICULA_Click()
        DoCmd.OpenForm "formAluno"
        Forms!formAluno!CboBuscar.Value = Me!TXTMATRICULA
        Forms!formAluno!CboBuscar.SetFocus
        Forms("formAluno").Filter = "MATRICULA='" & Forms!formAluno!CboBuscar & "'"
        Forms("formAluno").FilterOn = True
        Me.Refresh
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retorna Pesquisa Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retorna Pesquisa Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retorna Pesquisa Folder_announce_new Instruções SQL como utilizar...
    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Retorna Pesquisa Empty Retorna Pesquisa

    Mensagem  DEISON 24/2/2016, 14:49

    Bom dia

    Eu tentei usar o código mais não deu certo
    se puder dar uma olhada em meu BD ficarei grato.
    O formulário que chama o cadastro de Aluno é "FrmListadeAluno" campo "MATRICULA" ao selecionar eu queria que ele retornasse exatamente o cadastro que estou verificando, no formulário "formAluno"

    Projeto SMMA


    Desde já agradeço.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Retorna Pesquisa Empty Re: [Resolvido]Retorna Pesquisa

    Mensagem  JPaulo 24/2/2016, 15:00

    Ola;

    Não dá certo porque eu coloquei TXTMATRICULA, é só apagar o TXT

    Forms!formAluno!CboBuscar.Value = Me!TXTMATRICULA


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retorna Pesquisa Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retorna Pesquisa Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retorna Pesquisa Folder_announce_new Instruções SQL como utilizar...
    DEISON
    DEISON
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 04/07/2014

    [Resolvido]Retorna Pesquisa Empty Retorna Pesquisa

    Mensagem  DEISON 24/2/2016, 15:02

    Muito Obrigado.

    Deu certinho.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Retorna Pesquisa Empty Re: [Resolvido]Retorna Pesquisa

    Mensagem  JPaulo 24/2/2016, 15:04

    Fico feliz.

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Retorna Pesquisa Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Retorna Pesquisa Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Retorna Pesquisa Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Retorna Pesquisa Empty Re: [Resolvido]Retorna Pesquisa

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:29