MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Inclusão de itens em subformulário

    Compartilhe
    avatar
    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 27/02/2013

    Inclusão de itens em subformulário

    Mensagem  percoski em Ter 16 Ago 2016, 01:07

    Olá, estou usando o seguinte codigo para incluir os itens da venda em um subformulario mas quando vou incluir ele subscreve e não vai para o proximo registro, sei que estou esquecendo de alguma coisa mas não estou identificando onde, alguem pode me ajudar?
    Código:
    DoCmd.GoToControl "frmdetalhesvenda"
    DoCmd.GoToRecord , , acNewRec

    Forms!pdv!Texto58 = DLookup("[ccPreçoVenda]", "Tbl_Produtos", "ccBarras='" & Forms!pdv!Barra & "'")
    Forms!pdv!frmdetalhesvenda!quant = Me.txtQtd 'Essa linha aqui que está atribuíndo a quantidade
    Forms!pdv!frmdetalhesvenda!vlrunitario = DLookup("[ccPreçoVenda]", "tbl_Produtos", "ccBarras='" & Forms!pdv!codbarras & "'")
    Forms!pdv!frmdetalhesvenda!codbarras = Format(DLookup("ccBarras", "tbl_Produtos", "ccBarras='" & Forms!pdv!Barra & "'"), "0000000000")

    Forms!pdv!TxtProduto = DLookup("ccNomPro", "Tbl_Produtos", "ccBarras='" & Forms!pdv!codbarras & "'")
    Forms!pdv!frmdetalhesvenda!Texto3 = DLookup("ccNomPro", "tbl_Produtos", "ccBarras='" & Forms!pdv!codbarras & "'")
    Forms!pdv!frmdetalhesvenda!IdMovimento = Me.TxtVenda

    Forms!pdv!frmdetalhesvenda!Total = Me.txtQtd * DLookup("[ccPreçoVenda]", "tbl_Produtos", "Barra='" & Forms!pdv!codbarras & "'")
    Forms!pdv!codbarras = ""
    Forms!pdv!codbarras.SetFocus
    Me.txtQtd = 1
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2998
    Registrado : 14/08/2013

    Re: Inclusão de itens em subformulário

    Mensagem  FabioPaes em Ter 16 Ago 2016, 01:19

    Amigo, faltou nos passar varios detalhes...

    MAS se esse codigo e executado por completo todas as vezes, veja que ele add um Novo registro DoCmd.GoToRecord , , acNewRec logo no inicio...

    Outra coisa que deve observar e se os campos estao vinculados a campos da tabela...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 27/02/2013

    Re: Inclusão de itens em subformulário

    Mensagem  percoski em Ter 16 Ago 2016, 01:33

    Sim, é executado por completo todas vez....
    e os campos estão vinculados sim....
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2998
    Registrado : 14/08/2013

    Re: Inclusão de itens em subformulário

    Mensagem  FabioPaes em Ter 16 Ago 2016, 01:59

    Entao pode ser esse o problema amigo... toda vez ele insere novo registro... Mas posta aqui o exemplo pra analise...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Seg 27 Mar 2017, 19:27