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

    Input box para cancelar determinado registro

    avatar
    lsansilver
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 22/04/2016

    Input box para cancelar determinado registro Empty Input box para cancelar determinado registro

    Mensagem  lsansilver 28/4/2017, 06:29

    Eu estou usando este código pra deletar produtos de um pedido em edição, porém quando, se o usuario digitar um codigo errado, poderá apagar um item de outra venda, neste caso gostaria de saber se voces tem como me ajudar, Grato.

    Lembrando que temos os campos vendanumero que é automatico
    e no subform tem o vendanumero que cria o vinculo, tem o CodigoOrdemProdutos,
    ao abrir o form, filtra pelo vendanumero, e aparece todos os produtos lançados.

    On Error GoTo Err_Delete
       Dim numOrdem As Integer
       numRecord = InputBox("Informe o Código do Produto #:", "Exclusão de Produtos")
    If MsgBox("Deseja Excluir o Produto Cadastrado " & numRecord & "?", vbQuestion + vbYesNo, "Exclusão de Produtos!") = vbYes Then
           Dim SQL As String
           DoCmd.SetWarnings False
           SQL = "DELETE * FROM VendaProdutos WHERE CodigoOrdemProdutos = " & numRecord
           DoCmd.RunSQL SQL 'Executa consulta
           Forms!OrdemServico![VendaProdutosSub].Requery
       Else
       End If
    Exit_Delete:
    Exit Sub
    Err_Delete:
       MsgBox "Erro número: " & Err.Number & vbLf & vbLf & Err.Description, vbCritical, "Sistema"
    Resume Exit_Delete
    End If
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    Input box para cancelar determinado registro Empty Re: Input box para cancelar determinado registro

    Mensagem  JPaulo 28/4/2017, 09:24

    Olá seja bem vindo ao forum;

    Se você já informa o usuário por mensagem, se pretende mesmo deletar o registro que digitou, qual seria o objectivo do seu pedido de ajuda ?


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

    Input box para cancelar determinado registro Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Input box para cancelar determinado registro Folder_announce_new 102 Códigos VBA Gratuitos...
    Input box para cancelar determinado registro Folder_announce_new Instruções SQL como utilizar...
    avatar
    lsansilver
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 22/04/2016

    Input box para cancelar determinado registro Empty Re: Input box para cancelar determinado registro

    Mensagem  lsansilver 1/5/2017, 16:06

    Porque se o usuario digitar outro codigo por erro, irá deletar outro registro de outro form.

    por exemplo

    Estamos lançando uma venda que o subform tem o produto "codigoordem" 353, porém se o usuario decidir excluir ele, e por erro ele colocar 351,
    se existir uma venda em que o produto esteja com "codigoordem" 351. O Sistema irá excluir o item 351.

    Eu queria saber se existe alguma forma de usar o comando SQL, amarrando as duas informações o "códigoordemprodutos" e "numerovenda"
    sendo assim ao clicar em excluir, o sistema iria pedir o "codigoordemproduto" e iriam apagar somente os itens referente ao numerovenda


    SQL = "DELETE * FROM VendaProdutos WHERE CodigoOrdemProdutos = " & numRecord
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    Input box para cancelar determinado registro Empty Re: Input box para cancelar determinado registro

    Mensagem  Alexandre Neves 11/6/2017, 20:12

    Boa tarde,
    Não estando por dentro do processo, crie tabela temporária dos registos que o utilizador vai criando (ou esteja em criação)
    Se pretender eliminar, permita só dentre os registos que o utilizador tenha criado (ou esteja a criar)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Input box para cancelar determinado registro Empty Re: Input box para cancelar determinado registro

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 15:09