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

    Baixa em Estoque Access

    Compartilhe

    samuel_drun
    Novato
    Novato

    Respeito às Regras 100%

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

    Baixa em Estoque Access

    Mensagem  samuel_drun em 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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Baixa em Estoque Access

    Mensagem  FabioPaes em 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: [Você precisa estar registrado e conectado para ver este link.]


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

    samuel_drun
    Novato
    Novato

    Respeito às Regras 100%

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

    Baixa em Estoque Access

    Mensagem  samuel_drun em 10/1/2018, 18:30

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

    Respeito às Regras 100%

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

    Re: Baixa em Estoque Access

    Mensagem  bigfill em 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
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Baixa em Estoque Access

    Mensagem  FabioPaes em 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!

    samuel_drun
    Novato
    Novato

    Respeito às Regras 100%

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

    Baixa em Estoque Access

    Mensagem  samuel_drun em 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 ?
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Baixa em Estoque Access

    Mensagem  bigfill em 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
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Baixa em Estoque Access

    Mensagem  bigfill em 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 & "#")

    samuel_drun
    Novato
    Novato

    Respeito às Regras 100%

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

    Baixa em Estoque Access

    Mensagem  samuel_drun em 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
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Baixa em Estoque Access

    Mensagem  bigfill em 11/1/2018, 00:32

    samuel_drun, Fiz um modelo para você adapta-lo conforme seu projeto.
    Anexos
    Update.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (24 Kb) Baixado 28 vez(es)
    avatar
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

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

    Re: Baixa em Estoque Access

    Mensagem  bigfill em 12/1/2018, 11:47

    Bom dia samuel_drun

    Conseguiu resolver ?

      Data/hora atual: 15/11/2018, 04:46