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

    Automação preenchimento subformulário

    Compartilhe

    Cfrosenh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 10/07/2017

    Automação preenchimento subformulário

    Mensagem  Cfrosenh em Qui 10 Ago 2017, 12:48

    Olá pessoal, estou precisando de uma ajuda com a questão abaixo.

    No “formularioVenda” eu coloquei um campo chamado Txtcodigo e consegui com o código vb abaixo inserir o código digitado no campo Txtcodigo e as quantidades nos campos de quantidade e retorno no subformulário chamado “DetalhedoPedidosub”, mas não sei como fazer o código vb para verificar a última linha preenchida e inserir as novas informações na linha de baixo, eu também preciso que quando ele lesse este código do campo “Txtcodigo” ele procurasse no sobformulário se esse item já foi armazenado e acrescentasse 1 na quantidade ao invés de criar mais uma linha com o mesmo código.

    Private Sub Comando103_Click()
    Forms!FormularioVenda!DetalhedoPedidosub!CodigoProduto.Value = Forms!FormularioVenda!Txtcodigo
    Forms!FormularioVenda!DetalhedoPedidosub!Quantidade.Value = 1
    Forms!FormularioVenda!DetalhedoPedidosub!Retorno.Value = 0
    Me.Txtcodigo = ""
    Me.Txtcodigo.SetFocus
    End Sub

    Desde já agradeço a ajuda
    Cristiano
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Automação preenchimento subformulário

    Mensagem  FabioPaes em Qui 10 Ago 2017, 13:48

    Olá, a inserção dos dados devem ser feitos direto na tabela, e não no Formulário. Se inserir direto no Formulário, ele sempre ira sobrescrever o produto ja inserido!

    Utilize a Instrução INSERT... para inserir os dados na tabela, e depois somente atualiza o subformulário para mostrar o produto lançado.


    .................................................................................
    _____________________________________________________________________
    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!

    Cfrosenh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 10/07/2017

    Re: Automação preenchimento subformulário

    Mensagem  Cfrosenh em Qui 10 Ago 2017, 14:12

    Obrigado pela ajuda Fabio, mas se eu inserir direto na tabela como vou atrelar ao pedido já que são duas tabelas uma com o pedido (que consta o n° do pedido e os dados do cliente) e outra com o detalhe do pedido (que consta as informações dos produtos vendidos)?
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Automação preenchimento subformulário

    Mensagem  FabioPaes em Qui 10 Ago 2017, 16:36

    Quando vc insere um produto, vai junto o Código do Pedido (ID), essa é a ligação entre a tabela com os dados básicos do pedido... e os produtos (detalhe).
    Quando enviar o Codigo e a quantidade, manda também o ID do pedido.


    .................................................................................
    _____________________________________________________________________
    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!

    Cfrosenh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 10/07/2017

    Instrução insert

    Mensagem  Cfrosenh em Dom 15 Out 2017, 12:58

    Olá Fabio,

    Anteriormente você havia me ajudado com a instrução insert e ficou funcionando super bem para inserir os dados na tabela, mas como eu faria para antes de inserir ele consultar se o código já existe para um pedido específico e ao invés de criar um novo registro ele apenas atualizasse a quantidade somando 1 unidade?

    O insert ficou asim

    Private Sub Comando98_Click()

    CurrentDb.Execute " INSERT INTO DetalhedoPedido(CodigoProduto, CodigoPedido, Quantidade)" & _
    "VALUES(" & Me.TxtCodigoBarras & ",'" & Me.CodigoPedido & "','1')"

    DetalhedoPedidosub.Form.Requery
    Me.TxtCodigoBarras = ""
    Me.TxtCodigoBarras.SetFocus

    End Sub


    Desde já agradesço

    Cristiano

      Data/hora atual: Sab 18 Nov 2017, 01:05