MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Procurar registro em subformulario igual a um valor de campo no formulário principal, a partir do formulario principal

    Compartilhe

    tuga38
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 28
    Registrado : 05/09/2014

    Procurar registro em subformulario igual a um valor de campo no formulário principal, a partir do formulario principal

    Mensagem  tuga38 em Seg 22 Set 2014, 14:41

    Boas
    precisava de ajuda com o código VBA para localizar um registro (ID) e apresentar os dados no subform, estando no formulario principal, Depois de Atualizar o valor ID numa caixa de combinação.
    Escolho o ID no formulário principal e quero que no subform os dados seja apresentados.

    Que código devo usar?

    Obrigado
    avatar
    Kebao10
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 16/07/2011

    Re: Procurar registro em subformulario igual a um valor de campo no formulário principal, a partir do formulario principal

    Mensagem  Kebao10 em Seg 22 Set 2014, 14:50

    Bota um bd exemplo que fica mais fácil de entender o que você deseja!

    tuga38
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 28
    Registrado : 05/09/2014

    Imagem em anexo

    Mensagem  tuga38 em Seg 22 Set 2014, 16:09

    Com ve... queria que quando clicasse e alterasse o valor no botão "Sintoma" do formulário, que um procedimento de evento fosse procurar esse registo no campo "sintoma" no subformulário e exibisse todos os campos do mesmo, sem estar a vincular campos entre o formulario e o subformulario, pois quando não existir sintoma, quero proceder á criação de um no subformulário.
    Deu para entender?
    Não envio a BD, porque é um programa já quase completo com valor maior que pernmitido, e que seria dificil de explicar aquilo que pretendo.
    Julgo ser mais facil com esta imagem.

    Abraço e obrigado
    Anexos
    bd.jpg
    Você não tem permissão para fazer download dos arquivos anexados.
    (34 Kb) Baixado 12 vez(es)

    tuga38
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 28
    Registrado : 05/09/2014

    Topico encerrado... ja consegui

    Mensagem  tuga38 em Seg 22 Set 2014, 19:36

    Já consegui
    Agradecido
    Abraço


    Private Sub ID_AfterUpdate()
    Screen.ActiveForm.Requery
    DoCmd.FindRecord Me.ID, , True, , True
    End Sub


      Data/hora atual: Qua 13 Dez 2017, 18:26