MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Preencher campo de subformulario automaticamente

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]Preencher campo de subformulario automaticamente Empty [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  Assis em 22/5/2020, 18:11

    Boa tarde

    Tenho 1 formulário aberto chamado "frmReqNova"

    Este formulário "frmReqNova" tem um subformulário chamado "frmEntradasProdutosSubfrm"

    No subformulário "frmEntradasProdutosSubfrm" tem um campo chamado "CboNomeProduto"

    ***************************************************************************
    Quando o formulário principal "frmReqNova" está aberto ao entrar no No subformulário "frmEntradasProdutosSubfrm", e clicar F5 no campo CboNomeProduto" abro um formulário "Lista" que tem uma caixa de listagem que mostra todos os produtos.

    Depois de selecionar um produto na caixa de listagem ao fechar o formulário "Lista".  

    Queria preencher um campo que está num subformulário chamado "CboNomeProduto"

    Private Sub Form_Close()
     Forms!frmReqNova.Form!frmEntradasProdutosSubfrm.CboNomeProduto = Me.Lista1.Column(1)
    End Sub

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 821
    Registrado : 11/11/2009

    [Resolvido]Preencher campo de subformulario automaticamente Empty Re: [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  scandinavo em 22/5/2020, 18:33

    Já tentou por o código no evento ao descarregar e não no evento ao fechar.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]Preencher campo de subformulario automaticamente Empty Re: [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  Assis em 22/5/2020, 18:55

    Boa tarde

    Em qual é que eu não tentei Very Happy Very Happy

    O erro deve estar no código

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]Preencher campo de subformulario automaticamente Empty Re: [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  Assis em 22/5/2020, 19:42

    Boa tarde

    Já envia os dados corretos, só que apareceu outro problema Very Happy Very Happy

    Como o formulário é continuo o valor vai sempre para a primeira linha do dito formulário, e mesmo que já esteja preenchida, substitui o valor que lá tiver.





    .................................................................................
    *** Só sei que nada sei ***
    scandinavo
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 821
    Registrado : 11/11/2009

    [Resolvido]Preencher campo de subformulario automaticamente Empty Re: [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  scandinavo em 22/5/2020, 22:13

    ok

    crie um record set deste sub formulário e use a opção de rs.move new rec


    mais ou mesmo isto
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]Preencher campo de subformulario automaticamente Empty Re: [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  Assis em 23/5/2020, 10:41

    Bom dia Amigos

    Segue o meu Exemplo

    Obrigado
    Anexos
    [Resolvido]Preencher campo de subformulario automaticamente AttachmentForum_Assis.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (266 Kb) Baixado 17 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]Preencher campo de subformulario automaticamente Empty Re: [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  Assis em 24/5/2020, 10:33

    Bom dia

    Com este código já consigo preencher os dados que queria.

    Mas com a linha a vermelho para enviar o foco para o mesmo formulário não resulta.

    Alguma ideia ?

    If KeyCode = vbKeyReturn Then
    DoCmd.GoToRecord , , acNewRec

    Forms!frmReqNova!frmEntradasProdutosSubfrm!CodProduto = Me.Lista1.Column(0)

    Forms!frmReqNova!frmEntradasProdutosSubfrm!Descricao = Me.Lista1.Column(3)

    Forms!frmReqNova!frmEntradasProdutosSubfrm!txtquantidade.setfocus


     DoCmd.Close

    End If


    .................................................................................
    *** Só sei que nada sei ***
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Preencher campo de subformulario automaticamente Empty Re: [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  Celso Roberto em 24/5/2020, 18:12

    Olá..

    primeiro temos que jogar o foco para o subformulário e depois para o campo.

    tente:
    Forms!frmReqNova!frmEntradasProdutosSubfrm.setfocus
    Forms!frmReqNova!frmEntradasProdutosSubfrm!txtquantidade.setfocus

    Aguardamos

    braços


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4234
    Registrado : 06/11/2009

    [Resolvido]Preencher campo de subformulario automaticamente Empty Re: [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  Assis em 24/5/2020, 23:59

    Obrigado Celso

    No acontecimento ao fechar vai para lá direitinho.


    .................................................................................
    *** Só sei que nada sei ***
    Celso Roberto
    Celso Roberto
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1071
    Registrado : 01/03/2014

    [Resolvido]Preencher campo de subformulario automaticamente Empty Re: [Resolvido]Preencher campo de subformulario automaticamente

    Mensagem  Celso Roberto em 25/5/2020, 22:51

    Olá..

    Valeu Assis cheers cheers cheers

    Abraços e sucesso


    .................................................................................


    Você fica satisfeito ao ter sua dúvida solucionada?.
    Quem te ajuda também fica quando você da o tópico por "Resolvido".
    Veja como neste Link: https://www.maximoaccess.com/t860-resolucao-de-topicos



    A Única coisa que sei é que ainda nada sei, Mas em breve Saberei.....

      Data/hora atual: 30/11/2020, 08:14