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

    [Resolvido]Atualizar caixa listagem

    Compartilhe
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 29/11/2018, 18:04

    Tenho uma Caixa de listagem que lanco os produtos das vendas, esta tudo ok.

    Porem coloquei um botao a parte que utiliza outro comando para jogar os produtos dentro desta mesma caixa de listagem/ Mas nao esta processando os produtos dentro da mesma, Mas os produtos estao sendo lancados normalmente na Tabela aplicada.

    Onde esta o erro aqui:

    Dim OBrinde
    Dim varBrinde As String
    varBrinde = InputBox("Descreva o Produto", "adicionar")
    OBrinde = varBrinde

    CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, qtdVenda, Produto) VALUES ('" & Me!txtidVenda & "' , '" & 1 & "', '" & OBrinde & "' )"
    listaItensVenda.Requery
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 29/11/2018, 20:22

    Porem coloquei um botao a parte que utiliza outro comando para jogar os produtos dentro desta mesma caixa de listagem/ Mas nao esta processando os produtos dentro da mesma, Mas os produtos estao sendo lancados normalmente na Tabela aplicada.

    Aqui acima uma correcao.

    Os produtos nao estao sendo jogados nao na tabela.

    Existe a TBlVendas e a TBlVendasDet,
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 22/11/2016

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  IvanJr. em 30/11/2018, 01:54

    surge alguma mensagem de erro?

    Confira os campos do tipo texto que devem estar entre aspas
    Confira também os campos do tipo numérico que não precisam de aspas

    Caso ainda persista o erro, anexo os objetos envolvidos aqui.
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 11:52

    Ola, entao estou usando este comando abaixo

    Dim OBrinde
    Dim varBrinde As String
    varBrinde = InputBox("Descreva o Produto", "adicionar")
    OBrinde = varBrinde

    CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, qtdVenda, Produto) VALUES ('" & Me!txtidVenda & "' , '" & 1 & "', '" & OBrinde & "' )"
    listaItensVenda.Requery

    Porem listaitensVenda é uma consulta nao sei se issi faz diferenca, pois Meu PDV usa a caixa de listagem dentro do PDV com referencia a esta consulta.

    No comando acima eu estou dando o caminho correto para que os Dados sejam armazenados em TblVendaDet que esta relacionada com TblVenda
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 22/11/2016

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  IvanJr. em 30/11/2018, 12:02

    Anexe o banco com os objetos envolvidos para que tenhamos melhor chance de encontrar o que acontece.
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 12:16

    Sabe o que reparei aqui, fiz o procedimento normal, e o produto dentro do Form PDV, entrou certinho dentro da caixa de listagem. Dai eu abri a Consulta CSLISTAVENDA, pois a caixa de listagem do PDV se refere a essa consulta em Origem da linha, e la estava o item escrito na Consulta.

    Entao usei o Botao que adicionei o codigo acima nao deu erro nehum , mas abri novamente a Consulta CSLISTAVENDA mas o produto nao aparece la, entao abri a TBLVENDADET e o produto aparece na Tabela , soo nao aparece na consulta, entao e esse o motivo pelo qual o item nao esta entrando na caixa de listagem.

    Agora porque eu nao sei???

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 22/11/2016

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  IvanJr. em 30/11/2018, 12:24

    Anexou o banco aqui como foi solicitado?

    Confira o IDVenda se está casando. Se registro na tabela atende aos filtros da consulta. Etc etc etc
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 12:29

    oi eu nao anexei porque meu sistema esta todo amarrado, a varios formularios, so pra ter ideia o tamanho e de 625.984kb

    Um formulario esta marrado a outro, cliente, pesquisa cliente, estoque, pesquisa estoque, etc e as tabelas tb.

    Nao sei se te facilita mas fui fazendo a venda passo a passo nos comandos atraves de F8.

    Neste comando abaixo e onde joga o produto dentro da COnsulta e tb dentro da caixa de listagem.

    CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, ProdutoID, precoVendaDet, qtdVenda, Validade, Produto, Sabor, Apres, RefValidade, valorNormal, RefDesc, Origem_Produto) VALUES ('" & Me!txtidVenda & "' , '" & Me!txtCodigoBarra & "' , '" & Me!txtPrecoUnitario & "' , '" & Me!txtQuantidade & "', '" & Me!txtValidade & "', '" & Me!txtDescricaoProduto & "' , '" & Me!txtsabor & "' , '" & Me!txtUnidade & "' , '" & Me!RefValidade & "' , '" & Me!txtPrecoUnitario * Me!txtQuantidade & "', '" & Me!txtPrecoUnitario & "', '" & Me!Ref_Empresa & "' )"


    O comando a parte que estou querendo que funcione e assim:

    CurrentDb.Execute "INSERT INTO tblVendaDet (vendaID, qtdVenda, Produto) VALUES ('" & Me!txtidVenda & "' , '" & 1 & "', '" & OBrinde & "' )"
    listaItensVenda.Requery

    Estou usando o mesmo que acima era pra funcionar
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 22/11/2016

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  IvanJr. em 30/11/2018, 12:33

    Anexe o banco apenas com a tabela venda, vendadet e a consulta.
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 12:41

    momento te mandar
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 12:51

    em anexo
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 22/11/2016

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  IvanJr. em 30/11/2018, 12:53

    não veio o anexo
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 12:56

    Me passe um email pode ser, nao esta indo aqui

    Os seguintes erros foram encontrados
    O arquivo adicionado não é valido: tamanho máximo de anexo ultrapassado (2000 kB).
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 12:56

    estou mandando .zip mas nao ta indo
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 22/11/2016

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  IvanJr. em 30/11/2018, 12:59

    Utilize a opção compactar e reparar antes de anexar. Se continuar ultrapassando 2mb, experimente anexar no dropbox e deixar aqui no tópico o link ou enviar por email (damascenojr@outlook.com)
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 13:03

    mandei email
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 421
    Registrado : 22/11/2016

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  IvanJr. em 30/11/2018, 14:25

    A sua consulta vinculada a tabela vendadet com a tabela produtos (inner join). Se seus brindes não estão cadastrados na tabela produtos então não aparecerão.

    Cadastre os brindes na tabela produtos ou então use uma consulta com right join (se escolher a última opção, fique atento aos nomes dos campos).
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 14:31

    Deixo aqui meus agardecimentos ao IvanJR e extendo é claro atodos os outros que sempre me ajudam nas minhas testes aqui.

    Fiz conforme me explicou e tudo deu certo, em Consulta fiz a alteracao e nas propriedades da Juncao entre as tabelas. Feito isso tudo ok.

    Agradeco

    Andre
    avatar
    fazerbem
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 322
    Registrado : 05/03/2017

    Re: [Resolvido]Atualizar caixa listagem

    Mensagem  fazerbem em 30/11/2018, 14:31

    fechando este topico

      Data/hora atual: 23/1/2019, 08:14