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

2 participantes

    [Resolvido]Erro em tempo de execução '6' Estouro

    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 07/01/2016

    [Resolvido]Erro em tempo de execução '6' Estouro Empty [Resolvido]Erro em tempo de execução '6' Estouro

    Mensagem  fcamara 20/9/2022, 14:56

    Bom dia

    Venho novamente pedir ajuda dos amigo.
    estou cadastrando no sistema e apareceu esse erro no lançamento de uma nota Erro em tempo de execução '6' Estouro.
    na depuração vai direto para essa linha

    Código:
    '-- VAlida qtde informada na NOTA c/ total informado na Ata
    Private Function ValidaQtde() As Boolean
    Dim vQtdItemNF  As Integer
    Dim vQtdItem    As Integer


        '-- Define função como VERDADEIRA
        ValidaQtde = True

        '-- Carrega qtde total do subitem informado na aba Item
        vQtdItem = Nz(DSum("qtde_subitem", "tbl_Ata_Subitens", "id_ata = " & Me.Id_Ata & " AND id_subitem = " & Me.cboSubitemNF & ""), 0) ' Erro nessa Linha
      
        '-- Carrega qtde total do subitem informado na aba Notas
        vQtdItemNF = Nz(DSum("qtde_nf_subitem", "tbl_Nota_Subitens", "id_ata = " & Me.Id_Ata & " AND id_subitem = " & Me.cboSubitemNF & ""), 0)
        vQtdItemNF = vQtdItemNF + Me.txtQtdeNF
        
        
        '-- Compara os valores para não informar qtde acima do que está gravado na tbl_Ata_Subitens
        
        If vQtdItemNF > vQtdItem Then
            MsgBox "A quantidade total de subitens na Nota ultrapassa a quantidade total de subitens informada na Ata.", vbExclamation, "Aviso"
            ValidaQtde = False   '-- DEFINE COMO FALSA
        End If
        
    End Function)

    alguem pode me ajudar


    Última edição por fcamara em 20/9/2022, 15:06, editado 4 vez(es) (Motivo da edição : colocar o codigo completo)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Erro em tempo de execução '6' Estouro Empty Re: [Resolvido]Erro em tempo de execução '6' Estouro

    Mensagem  Alexandre Fim 20/9/2022, 15:51

    Flavio,

    Manda uma cópia do seu bd atualizado, por gentileza.
    Assim, fica mais fácil analisar.

    Só pra eu entender, vc fez alguma alteração no carregamento do combo "cboSubitemNF" ?

    No aguardo.

    Att

    Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro em tempo de execução '6' Estouro Setinf11
    Sistemas e Tecnologia Ltda

    fcamara gosta desta mensagem

    avatar
    fcamara
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 88
    Registrado : 07/01/2016

    [Resolvido]Erro em tempo de execução '6' Estouro Empty Re: [Resolvido]Erro em tempo de execução '6' Estouro

    Mensagem  fcamara 20/9/2022, 16:03

    Consegui arrumar, o problema era a Variavel estava Dim vQtdItemNF As Integer
    Dim vQtdItem As Integer eu alterei para Long e foi.

    Muito obrigado
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Erro em tempo de execução '6' Estouro Empty Re: [Resolvido]Erro em tempo de execução '6' Estouro

    Mensagem  Alexandre Fim 20/9/2022, 16:21

    Aeeeee.....melhor ainda !!!
    Já resolveu a parada !!!
    Muito bom...
    Sucesso


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro em tempo de execução '6' Estouro Setinf11
    Sistemas e Tecnologia Ltda

    fcamara gosta desta mensagem


      Data/hora atual: 24/9/2022, 20:11