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


4 participantes

    [Resolvido]Cancelamento de item em tempo real

    danilo da siva
    danilo da siva
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 15/10/2011

    [Resolvido]Cancelamento de item em tempo real Empty Cancelamento de item em tempo real

    Mensagem  danilo da siva 15/5/2012, 22:02

    Boa tarde,

    tenho um formulario frmCompras e um subformulario ItensCompra, neles eu lanço todos os meus pedidos como codigoProduto,vlr,Quantidade,Subtotal...

    tambem tenho um botao de comando chamado Cancelar itens, nele eu gostaria de cancelar algum item desejado e que seja reduzido o valor em tempo real, comecei a fazer aqui mas não consegui atualizar e reduzir os valores.
    so uma observação: Neste evento quando os valores não forem nulos, o camando abre um formulario chamado CancelaItemCompra, neste form eu queria digitar do codigo do produto para exclui-lo, porem ainda não consegui.
    alguem poderia me ajudar por favor?

    Segue o camando

    Private Sub CancelarItem_Click()
    If IsNull(Forms!frmCompras.codigoCompra) Or IsNull(Me.codigoDetalhe) Then
    MsgBox "Não há dados para Salvar...", vbCritical, "Aviso"
    Exit Sub
    Else 'não faz nada
    End If

    If MsgBox("Deseja Reamente cancelar Item de Compra?", vbYesNo, "Aviso") = vbNo Then
    MsgBox "Processo cancelado pelo usuario", vbInformation, "Aviso"
    Else
    DoCmd.OpenForm "frmCancelaItemCompra"

    End If

    End Sub


    .................................................................................
    Pensar nunca é insano.Pensar sozinho é humano.Pensar o pensamento de alguém é aprendizagem.
    O que não deu certo pode ser só uma etapa de aprendizagem pro que ainda está por vir.
    Bão
    Bão
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 105
    Registrado : 04/05/2011

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  Bão 15/5/2012, 23:22

    Danilo... Ajudaria mais se vc pudesse postar ao menos sua aplicação com esse seu formulário...

    Vendo o funcionamento fica mais fácil ajudar...
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  JPaulo 16/5/2012, 00:26

    Não será a continuação deste tópico ?

    Porque não faz o simples e insere um botão de excluir ao lado da linha no subform ?

    Assim poderia cancelar cada item lançado sem problema algum, e até poderá apenas colocar um X nesse botão.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Cancelamento de item em tempo real Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Cancelamento de item em tempo real Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Cancelamento de item em tempo real Folder_announce_new Instruções SQL como utilizar...
    danilo da siva
    danilo da siva
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 15/10/2011

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  danilo da siva 16/5/2012, 01:32

    Olá boa noite,

    Obrigado pelas respostas -> então eu gostaria de fazer desta maneira porque se encaixa melhor ao perfil do programa que estou a desenvolver. Estou disponibilizando meu Banco para analisarem.
    Se for possivel agradeço muito.


    .................................................................................
    Pensar nunca é insano.Pensar sozinho é humano.Pensar o pensamento de alguém é aprendizagem.
    O que não deu certo pode ser só uma etapa de aprendizagem pro que ainda está por vir.
    danilo da siva
    danilo da siva
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 15/10/2011

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  danilo da siva 16/5/2012, 15:13

    Olá JPaula bom dia,

    Poderia analisar este banco e me dizer se é possivel fazer da forma que mencionei por favor?

    Tentei adcionar no campo excluirItensCompra currenteDb.Execute "DELETE * FROM tblitensCompra WHERE codigoDetalhe=" & Me.ExcluirItensCompra
    DoCmd.RunCommand acCmdRefreshPage

    Para mesmo assim ele não esta atualizando, e tambem tem o problema de como subtrair este itens apos o cancelamento.

    Poderia me ajudar por favor?


    .................................................................................
    Pensar nunca é insano.Pensar sozinho é humano.Pensar o pensamento de alguém é aprendizagem.
    O que não deu certo pode ser só uma etapa de aprendizagem pro que ainda está por vir.
    avatar
    RaphaelMaciel
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 97
    Registrado : 23/04/2012

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  RaphaelMaciel 16/5/2012, 15:35

    e se após vc clicar em cancelar vc fazer um update no campo subtotal recalculando o valor?
    danilo da siva
    danilo da siva
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 15/10/2011

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  danilo da siva 16/5/2012, 15:39

    Olá bom dia eu já tentei, mas não deu certo.


    .................................................................................
    Pensar nunca é insano.Pensar sozinho é humano.Pensar o pensamento de alguém é aprendizagem.
    O que não deu certo pode ser só uma etapa de aprendizagem pro que ainda está por vir.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  JPaulo 16/5/2012, 15:53

    Private Sub ExcluirItemCompra_Click()
    CurrentDb.Execute "DELETE * FROM tblItensCompra WHERE codigoDetalhe=" & Me.NumeroDetalhe
    MsgBox "Item Excluído com sucesso!", vbInformation, "Aviso!"
    DoCmd.Close
    Forms!frmCompras.Recalc
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Cancelamento de item em tempo real Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Cancelamento de item em tempo real Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Cancelamento de item em tempo real Folder_announce_new Instruções SQL como utilizar...
    danilo da siva
    danilo da siva
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 15/10/2011

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  danilo da siva 16/5/2012, 16:06

    Funcionou direitinho obrigado mais uma vez JPaulo e RaphaelMaciel
    no meu evento eu esta colocando me.recalc, deve ser por isso que não deu certo muito obrigado.!!!


    .................................................................................
    Pensar nunca é insano.Pensar sozinho é humano.Pensar o pensamento de alguém é aprendizagem.
    O que não deu certo pode ser só uma etapa de aprendizagem pro que ainda está por vir.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  JPaulo 16/5/2012, 16:08

    Olhando bem aqui dentro do seu banco, temos muita coisa errada,

    Acabei corrigindo;

    Veja agora todo o funcionamento form frmCompras

    http://dl.dropbox.com/u/771097/Advanced_Imagen_and_Sistem_III.rar


    Estes são os dois codigos que estavam mal e que corrigi:


    Private Sub CancelarItem_Click()
    If IsNull(Forms!frmCompras.codigoCompra) Or IsNull(Me.codigoDetalhe) Then
    MsgBox "Não há dados para Salvar...", vbCritical, "Aviso"
    Exit Sub
    Else 'não faz nada
    End If

    If MsgBox("Deseja Reamente cancelar Item de Compra?", vbYesNo, "Aviso") = vbNo Then
    MsgBox "Processo cancelado pelo usuario...", vbInformation, "Aviso"
    Exit Sub
    Else
    DoCmd.OpenForm "frmCancelaItemCompra", , , , , , Me.codigoDetalhe
    End If
    End Sub


    Private Sub ExcluirCompra_Click()

    If MsgBox("ATENÇÃO!!! Tem certeza que quer excluir esta compra ?", vbYesNo + vbQuestion, "Aviso!") = vbYes Then
    CurrentDb.Execute "DELETE * FROM tblItensCompra WHERE codigoCompra=" & Me.codigoCompra
    CurrentDb.Execute "DELETE * FROM tblcompra WHERE codigoCompra=" & Forms!frmCompras!codigoCompra

    MsgBox "Resgistro excluído com sucesso!", vbInformation, "Aviso!"
    Forms!frmCompras!codigoCompra.SetFocus
    DoCmd.GoToRecord , , acNewRec
    Else
    Exit Sub
    End If
    End Sub


    No form frmCancelaItemCompra

    Alterei para:


    Private Sub ExcluirItemCompra_Click()
    CurrentDb.Execute "DELETE * FROM tblItensCompra WHERE codigoDetalhe=" & Me.NumeroDetalhe
    MsgBox "Item Excluído com sucesso!", vbInformation, "Aviso!"
    DoCmd.Close
    Forms!frmCompras.Recalc
    End Sub

    Private Sub Form_Open(Cancel As Integer)
    Me.NumeroDetalhe.Value = Me.OpenArgs
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Cancelamento de item em tempo real Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Cancelamento de item em tempo real Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Cancelamento de item em tempo real Folder_announce_new Instruções SQL como utilizar...
    danilo da siva
    danilo da siva
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 381
    Registrado : 15/10/2011

    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  danilo da siva 16/5/2012, 16:22

    Nossa muito obrigado JPaulo,

    Estava tentando resolver estes erros há um bom tempo.

    Grato!!!


    .................................................................................
    Pensar nunca é insano.Pensar sozinho é humano.Pensar o pensamento de alguém é aprendizagem.
    O que não deu certo pode ser só uma etapa de aprendizagem pro que ainda está por vir.

    Conteúdo patrocinado


    [Resolvido]Cancelamento de item em tempo real Empty Re: [Resolvido]Cancelamento de item em tempo real

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 00:09