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

    Procurar registro anterior

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    Procurar registro anterior Empty Procurar registro anterior

    Mensagem  Agravina 18/3/2018, 10:17

    Tenho o seguinte código abaixo para pesquisar registros anterior , o problemas e que os registros são exibidos muito rapidamente cerca de 1segundo,
    e ai o form já vai para novo registro.


    Private Sub cupom_AfterUpdate()
    If DCount("coddetalhevenda", "tbldetalhe_sisPDV", "coddetalhevenda=" & cupom) = 0 Then
           MsgBox "Não existe nenhum registo com esta venda!!! "
           Cancel = True
           End If
    Dim stDocName As String
       Dim stLinkCriteria As String
       
       stDocName = "frmpontodevenda"
       stLinkCriteria = "[codvenda]=" & Me![cupom]
          DoCmd.OpenForm stDocName, , , stLinkCriteria
           DoCmd.Close acForm, ("pesquisavenda"), acSavePrompt
    Forms!frmpontodevenda!frmimagem.Visible = False
    End Sub
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Procurar registro anterior Empty Re: Procurar registro anterior

    Mensagem  Silvio 18/3/2018, 13:59

    Private Sub cupom_AfterUpdate()
       Dim stDocName As String
      Dim stLinkCriteria As String


    If DCount("coddetalhevenda", "tbldetalhe_sisPDV", "coddetalhevenda=" & cupom) = 0 Then
          If MsgBox ("Não existe nenhum registo com esta venda!!! ", vbinformation + vbokCancel, "Aviso...") =vbCancel then
                 Cancel = True
                     else  
      stDocName = "frmpontodevenda"
        stLinkCriteria = "[codvenda]=" & Me![cupom]
         DoCmd.OpenForm stDocName, , , stLinkCriteria
          DoCmd.Close acForm, ("pesquisavenda"), acSavePrompt
            Forms!frmpontodevenda!frmimagem.Visible = False
    end if
    end if

    End Sub

    Obs...feito "nas coxas" sem testar, talvez possa conter algum erro.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1623
    Registrado : 18/07/2010

    Procurar registro anterior Empty Re: Procurar registro anterior

    Mensagem  Agravina 20/3/2018, 21:45

    Infelizmente não funcionou , e acaba travando o sistema.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Procurar registro anterior Empty Re: Procurar registro anterior

    Mensagem  Alexandre Fim 21/3/2018, 01:48

    Olá Agravina,

    Por gentileza, porte seu banco de dados para que o fórum possa analisar e ajudá-lo a resolver esta questão.

    Grato

    []'s


    Cláudio Más
    Cláudio Más
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1314
    Registrado : 21/01/2012

    Procurar registro anterior Empty Re: Procurar registro anterior

    Mensagem  Cláudio Más 21/3/2018, 12:42

    O form vai para o novo registro propositalmente?
    Caso contrário, evitando-se que o form vá para o novo registro após atualizar o cupom, resolveria o problema?
    Para isso, deve ser suficiente alterar a propriedade "Cliclo" do formulário para "Registro atual".

    Outra coisa, "Cancel" não está disponível para o evento "Após atualizar", e sim para o evento "Antes de atualizar".

    Conteúdo patrocinado


    Procurar registro anterior Empty Re: Procurar registro anterior

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:16