MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    Baixa em Estoque Access

    avatar
    samuel_drun
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Baixa em Estoque Access Empty Baixa em Estoque Access

    Mensagem  samuel_drun 10/1/2018, 17:32

    Estou desenvolvendo um form que pretende dar baixa em uma tabela de estoque porem estou utilizando esse código e me deparei com um erro nesse trecho:

    Dim I As Integer
    I = DLookup("Quantidade", "Cadastro_Estoque", "[Cod_Barras]=" & Me.Texto13.Value)
    If I <= 0 Or (I - Me.Quantidade_Fornecida.Value) < 0 Then
    MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
    Exit Sub

    Else
    DoCmd.SetWarnings False

    DoCmd.RunSQL "update Cadadastro_Estoque set Quantidade = Quantidade - Forms![Cadastro_Saída]![Quantidade_Fornecida]" _
    & " where Cadastro_Estoque.Cod_Barras=Forms![Cadastro_Saída]![Cod_Barras_Saida]"
    DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
    MsgBox "Pedido Efetuado com Sucesso!", vbInformation, "Pedido Efetuado com Sucesso"
    End If
    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Baixa em Estoque Access Empty Re: Baixa em Estoque Access

    Mensagem  FabioPaes 10/1/2018, 18:05

    Olá, seja bem Vindo Ao Fórum!
    É necessário informa qual erro está acontecendo...

    Veja Também esse Tópico aqui: https://www.maximoaccess.com/t30841-entrada-saida-de-estoque-no-clique-de-um-botao


    .................................................................................
    _____________________________________________________________________
    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
    samuel_drun
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Baixa em Estoque Access Empty Baixa em Estoque Access

    Mensagem  samuel_drun 10/1/2018, 18:30

    Amigo pra mim alteraria toda estrutura dos meus dados eu só preciso entender o que está ocasionando o erro
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    Baixa em Estoque Access Empty Re: Baixa em Estoque Access

    Mensagem  bigfill 10/1/2018, 18:57

    samuel_drun, veja se resolve o seu problema. Caso não resolva poste a parte do banco envolvida no erro para analisarmos.


    Dim I As Integer
    I = DLookup("Quantidade", "Cadastro_Estoque", "Cod_Barras = " & Me.Texto13)
    If I <= 0 Or (I - Me.Quantidade_Fornecida.Value) < 0 Then
    MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
    Exit Sub

    Else
    DoCmd.SetWarnings False

    DoCmd.RunSQL "update Cadadastro_Estoque set Quantidade = Quantidade - Forms![Cadastro_Saída]![Quantidade_Fornecida]" _
    & " where Cadastro_Estoque.Cod_Barras=Forms![Cadastro_Saída]![Cod_Barras_Saida]"
    DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
    MsgBox "Pedido Efetuado com Sucesso!", vbInformation, "Pedido Efetuado com Sucesso"
    End If
    End Sub
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    Baixa em Estoque Access Empty Re: Baixa em Estoque Access

    Mensagem  FabioPaes 10/1/2018, 19:00

    Como te falei na Mensagem anterior... Tem que Falar qual erro esta dando amigo!!! Sem saber o erro, estaríamos aqui dando chutes até acertar!!!


    .................................................................................
    _____________________________________________________________________
    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
    samuel_drun
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Baixa em Estoque Access Empty Baixa em Estoque Access

    Mensagem  samuel_drun 10/1/2018, 19:14

    Amigos acho que estou perto de identificar o problema,

    Cod_Barras é tipo texto curto no caso tipo string e tambem vem a ser a chave primaria da tabela de estoque( estou usando como texto curto pq preciso inserir numero de codigo de barras e o access nao permite usar como inteiro longo)


    ja a quantidade é do tipo inteiro acho que é isso que esta dando divergencia, alguma dica ?
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    Baixa em Estoque Access Empty Re: Baixa em Estoque Access

    Mensagem  bigfill 10/1/2018, 19:24

    samuel_drun, veja se resolve o seu problema.

    Seu campo "Texto13" também e tipo texto ?


    Dim I As Integer
    I = DLookup("Quantidade", "Cadastro_Estoque", "Cod_Barras = '" & Me.Texto13 & "'")
    If I <= 0 Or (I - Me.Quantidade_Fornecida.Value) < 0 Then
    MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
    Exit Sub

    Else
    DoCmd.SetWarnings False

    DoCmd.RunSQL "update Cadadastro_Estoque set Quantidade = Quantidade - Forms![Cadastro_Saída]![Quantidade_Fornecida]" _
    & " where Cadastro_Estoque.Cod_Barras=Forms![Cadastro_Saída]![Cod_Barras_Saida]"
    DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
    MsgBox "Pedido Efetuado com Sucesso!", vbInformation, "Pedido Efetuado com Sucesso"
    End If
    End Sub
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    Baixa em Estoque Access Empty Re: Baixa em Estoque Access

    Mensagem  bigfill 10/1/2018, 19:26

    Eu guardo sempre estes modelos na minha maquina pois sempre me esqueço, ajuda bastante.

    Complementando aqui para não se perder a noção da utilização da função DLookup;


    Para valores numericos: (sem aspas)

    DLookup("Campo" , "Tabela" , "CampoFiltro = 123")

    Para Texto: (aspas simples)

    DLookup("Campo" , "Tabela" , "CampoFiltro= 'abcd'")

    Para datas: (cardinal)

    DLookup("Campo" , "Tabela" , "CampoFiltro= #01-08-2012#")




    Referencia a um Controle:

    Para valores numericos: (sem aspas)

    DLookup("Campo", "Tabela", "CampoFiltro = " & forms!NomeDoFormulario!NomeDoCampo)

    Para Texto: (aspas simples)

    DLookup("Campo", "Tabela", "CampoFiltro = '" & forms!NomeDoFormulario!NomeDoCampo & "'")

    Para datas:

    DLookup("Campo", "Tabela", "CampoFiltro = #" & forms!NomeDoFormulario!NomeDoCampo & "#")
    avatar
    samuel_drun
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 10/01/2018

    Baixa em Estoque Access Empty Baixa em Estoque Access

    Mensagem  samuel_drun 10/1/2018, 19:35

    essa parte do codigo eu consertei agr esta dando erro aqui o erro é 2450

    Dim I As Integer
    I = DLookup("Quantidade", "Cadastro_Estoque", "Cod_Barras= " & Me.Cod_Barras_Saida)
    If I <= 0 Or (I - Me.Quantidade_Fornecida.Value) < 0 Then
    MsgBox "Não há quantidade suficiente em estoque para efetivar este pedido!", vbInformation, "Estoque baixo"
    Exit Sub

    Else
    DoCmd.SetWarnings False

    DoCmd.RunSQL "update Cadastro_Estoque set Quantidade = Quantidade - Forms![Cadastro_Saida]![Quantidade_Fornecida]" _
    & " where Cadastro_Estoque.Cod_Barras=Forms![Cadastro_Saida]![Cod_Barras_Saida]"

    DoCmd.SetWarnings True 'É aconselhavel ativar os avisos novamente
    MsgBox "Pedido Efetuado com Sucesso!", vbInformation, "Pedido Efetuado com Sucesso"
    End If
    End Sub
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    Baixa em Estoque Access Empty Re: Baixa em Estoque Access

    Mensagem  bigfill 11/1/2018, 00:32

    samuel_drun, Fiz um modelo para você adapta-lo conforme seu projeto.
    bigfill
    bigfill
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 477
    Registrado : 27/03/2015

    Baixa em Estoque Access Empty Re: Baixa em Estoque Access

    Mensagem  bigfill 12/1/2018, 11:47

    Bom dia samuel_drun

    Conseguiu resolver ?

    Conteúdo patrocinado


    Baixa em Estoque Access Empty Re: Baixa em Estoque Access

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/6/2024, 09:32