MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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]Anular em formulário continuo e voltar ao mesmo ponto

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto Empty [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto

    Mensagem  Assis em 7/5/2020, 11:54

    Bom dia Amigos

    Tenho este código para anular registos em formulário continuo.

    A função é para anular e anula, mas se eu estiver na linha 100 (cem) do formulário continuo e anular, como faz o Requery volta para a primeira linha.

    Pergunto como voltar para a linha 100 (cem) que era aonde estava ?

    Obrigado

    '***********************************************************************************************

    If MsgBox("Eliminar Linha de Produto " & Linha & Chr(10) + Chr(13), vbYesNo + vbQuestion, "Aviso") = vbYes Then
    DoCmd.SetWarnings False
    CurrentDb.Execute "DELETE * FROM Linha WHERE Linha ='" & [Linha] & "'"
    DoCmd.SetWarnings True
    MsgBox "Linha Anulada Com Sucesso.", vbExclamation, "Aviso"

    Me.Requery

    Exit Sub
    Else

    End If


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

    [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto Empty Re: [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto

    Mensagem  zcarloslopes em 7/5/2020, 12:05

    Bom dia Assis,

    Tente o seguinte código em substituição do que postou:
    Código:
    Dim wLinha As String

    wLinha = Me.Linha

    If MsgBox("Eliminar Linha de Produto " & Linha & Chr(10) + Chr(13), vbYesNo + vbQuestion, "Aviso") = vbYes Then
        DoCmd.SetWarnings False
        CurrentDb.Execute "DELETE * FROM Linha WHERE Linha ='" & [Linha] & "'"
        DoCmd.SetWarnings True
        MsgBox "Linha Anulada Com Sucesso.", vbExclamation, "Aviso"

        Me.Requery
        
        Me.Linha.SetFocus
        
        DoCmd.FindRecord (wLinha)
        
        Exit Sub
    Else

    End If
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto Empty Re: [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto

    Mensagem  Alexandre Neves em 7/5/2020, 14:41

    Boa tarde, Assis
    Eliminei o outro tema que se tratava da repetição deste (mesmo assunto, mesma hora)
    Julgo não ser a primeira vez que a situação acontece e deves ter mais cuidado na publicação de dúvidas


    .................................................................................
    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto Empty Re: [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto

    Mensagem  Assis em 7/5/2020, 14:54

    Carlos

    Elimina mas volta ao primeiro registo.

    Obrigado

    ***************
    Alexandre obrigado as vezes acontece a pensar que não foi enviada a gente volta a clicar e vão 2 Laughing Laughing


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

    [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto Empty Re: [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto

    Mensagem  zcarloslopes em 7/5/2020, 16:14

    Que tal assim:
    Código:
    Dim wLinha As String
    Dim wLinhaAnterior As String

    wLinha = Me.Linha

    wLinhaAnterior DMax("Linha","SuaTabela","Linha < '" & wLinha & "'"

    If MsgBox("Eliminar Linha de Produto " & Linha & Chr(10) + Chr(13), vbYesNo + vbQuestion, "Aviso") = vbYes Then
        DoCmd.SetWarnings False
        CurrentDb.Execute "DELETE * FROM Linha WHERE Linha ='" & [Linha] & "'"
        DoCmd.SetWarnings True
        MsgBox "Linha Anulada Com Sucesso.", vbExclamation, "Aviso"

        Me.Requery
        
        Me.Linha.SetFocus
        
        DoCmd.FindRecord (wLinhaAnterior)
        
        Exit Sub
    Else

    End If
    Substitua "SuaTabela" pelo nome da tabela que contem o campo "Linha"
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto Empty Re: [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto

    Mensagem  Assis em 7/5/2020, 17:38

    Carlos

    Esta linha fica vermelha

    wLinhaAnterior DMax("Linha","TabLinha","Linha < '" & wLinha & "'"


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

    [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto Empty Re: [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto

    Mensagem  zcarloslopes em 7/5/2020, 19:14

    Desculpe Assis,

    Esqueci o sinal = e o )
    Código:
    wLinhaAnterior = DMax("Linha", "TabLinha", "Linha < '" & wLinha & "'")
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4198
    Registrado : 06/11/2009

    [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto Empty Re: [Resolvido]Anular em formulário continuo e voltar ao mesmo ponto

    Mensagem  Assis em 7/5/2020, 20:09

    Obrigado Carlos



    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 2/7/2020, 09:19