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

    Agravina
    Agravina
    VIP
    VIP

    Respeito às Regras 100%

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

    Procurar registro anterior Empty Procurar registro anterior

    Mensagem  Agravina em 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 100%

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

    Procurar registro anterior Empty Re: Procurar registro anterior

    Mensagem  Silvio em 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
    VIP
    VIP

    Respeito às Regras 100%

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

    Procurar registro anterior Empty Re: Procurar registro anterior

    Mensagem  Agravina em 20/3/2018, 21:45

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

    Respeito às Regras 100%

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

    Procurar registro anterior Empty Re: Procurar registro anterior

    Mensagem  Alexandre Fim em 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 100%

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

    Procurar registro anterior Empty Re: Procurar registro anterior

    Mensagem  Cláudio Más em 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: 25/5/2019, 06:59