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


    [Resolvido]Problema com inputbox...

    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Problema com inputbox... Empty Problema com inputbox...

    Mensagem  formiga10x 30/10/2013, 04:19

    Um dia abençoado para todos.
    Bom estou com um problema em parte de um código onde uma inputbox surge pedindo o código de um produto a ser excluído pois bem.
    Se por acidente eu digitar um código que não esteja na lista da erro como tratar isso.

    vai o código...

    Private Sub btnExcluirProduto_Click()

    Dim codigoProduto As String
    Dim IntQtd As Integer

    If Not IsNull(txtCodigoVenda) Then
    codigoProduto = InputBox("Informe o código do produto a ser excluído:", _
    "Exclusão de Produto")
    txtNomePro.SetFocus
    Else
    Exit Sub
    End If

    'Aqui que da o erro mas não sei como resolver.
    If codigoProduto <> "" Then
    If IsNumeric(codigoProduto) Then
    'Coloca na variável a soma das quantidades do mesmo produto para a venda corrente
    IntQtd = DSum("qtdProduto", "DetalheVenda", "codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & "")
    'Deleta o registro na tabela DetalheVenda
    CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & ""
    'Atualiza o estoque na tabela Produto
    CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & IntQtd & " WHERE CodProduto = " & codigoProduto & ""
    atualizaLista
    Else
    MsgBox "Código de produto inválido!", _
    vbExclamation, "Exclusão de Produto"
    txtProdutoQtd.SetFocus
    End If
    End If

    End Sub
    avatar
    Convidado
    Convidado


    [Resolvido]Problema com inputbox... Empty Re: [Resolvido]Problema com inputbox...

    Mensagem  Convidado 30/10/2013, 12:37

    Coloque um Dcount para pesquisar a tabela...

    If DCount("Código","SuaTabela","Código = " & CodigoProduto & "") = 0 Then
       MsgBox "Produto não cadastrado",VbCritical,"ATENÇÃO"
    Else

    Código para exclusão
    End If


    Cumprimentos.
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 818
    Registrado : 11/09/2013

    [Resolvido]Problema com inputbox... Empty Muito Obrigado Piloto

    Mensagem  formiga10x 30/10/2013, 19:43

    Valeu mesmo Piloto pela ajuda e consegui fazer um código para verificar se o valor digitado na inputbox é diferente de int e sair da sub
    olha como ficou Very Happy Vlw mesmo que Deus o Abençoe sempre!

    Private Sub btnExcluirProduto_Click()

    Dim codigoProduto As String
    Dim IntQtd As Integer



    If Not IsNull(txtCodigoVenda) Then
    codigoProduto = InputBox("Informe o código do produto a ser excluído:", _
    "Exclusão de Produto")
    txtNomePro.SetFocus

    Else
    Exit Sub
    End If
    'Esse aqui que fiz rs
    If Not IsNumeric(codigoProduto) Then
    MsgBox "Somente Números Neste Campo!"
    Exit Sub
    End If

    If DCount("codVenda", "DetalheVenda", "CodProduto = " & codigoProduto & "") = 0 Then
    MsgBox "Produto não cadastrado", vbCritical, "ATENÇÃO"

    Else

    If codigoProduto <> "" Then
    If IsNumeric(codigoProduto) Then


    'Coloca na variável a soma das quantidades do mesmo produto para a venda corrente
    IntQtd = DSum("qtdProduto", "DetalheVenda", "codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & "")
    'Deleta o registro na tabela DetalheVenda
    CurrentDb.Execute "DELETE * FROM DetalheVenda WHERE codVenda = " & Me.txtCodigoVenda & " And CodProduto = " & codigoProduto & ""
    'Atualiza o estoque na tabela Produto
    CurrentDb.Execute "UPDATE Produto Set qtdEstoque = qtdEstoque + " & IntQtd & " WHERE CodProduto = " & codigoProduto & ""

    atualizaLista
    Else
    MsgBox "Código de produto inválido!", _
    vbExclamation, "Exclusão de Produto"
    txtProdutoQtd.SetFocus
    End If
    End If
    End If

    End Sub

    avatar
    Convidado
    Convidado


    [Resolvido]Problema com inputbox... Empty Re: [Resolvido]Problema com inputbox...

    Mensagem  Convidado 30/10/2013, 20:06

    O Fórum agradece o Retorno.

    Conteúdo patrocinado


    [Resolvido]Problema com inputbox... Empty Re: [Resolvido]Problema com inputbox...

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 23:40