MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Procurar registro anterior

    Compartilhe
    avatar
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

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

    Procurar registro anterior

    Mensagem  Agravina em Dom 18 Mar 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
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Procurar registro anterior

    Mensagem  Silvio em Dom 18 Mar 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.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

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

    Re: Procurar registro anterior

    Mensagem  Agravina em Ter 20 Mar 2018, 21:45

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

    Respeito às Regras 100%

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

    Re: Procurar registro anterior

    Mensagem  Alexandre Fim em Qua 21 Mar 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


    avatar
    Cláudio Más
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Procurar registro anterior

    Mensagem  Cláudio Más em Qua 21 Mar 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".

      Data/hora atual: Qua 25 Abr 2018, 19:01