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

    Inclusão de itens em subformulário

    Compartilhe
    avatar
    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 275
    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 : 3335
    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 : 275
    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 : 3335
    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: Ter 26 Set 2017, 06:43