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

    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2315
    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!

    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    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....

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2315
    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: Qua 07 Dez 2016, 08:37