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

    Voltar informação anterior

    Compartilhe

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Voltar informação anterior

    Mensagem  maguim em Seg 24 Abr 2017, 13:49

    Amigos

    Bom dia !

    Gostaria de agradecer a todos que me ajudaram nesses ultimo mes com meu Aplicativo. Sem vcs eu nao conseguiria entregar no prazo. Wink

    Mas vamo o que interessa.


    Minha duvida é:

    Tenho uma combo onde tem um msgbox com VBYES

    tenho uma situação no codigo na parte ELSE, se o comando for VBNO for Executado gostaria de voltar a informação anterior, Uma vez que eu já tivesse atualizado a COMBO

    Como poderia fazer isso em VBA?

    Segue codigo abaixo:


    If Me.STATUS.Column(1) Then
    If MsgBox("Tem Certeza que deseja Alterar a STATUS do Prestador", vbYesNo, "Exit") = vbYes Then

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("select codpasta, STATUS from BANCODEDADOSCENTRAL where codpasta = " & Me.CODPASTA & "")
    rs.Edit
    rs("STATUS") = Me.STATUS.Column(1)
    rs.Update
    rs.Close

    Me.STATUS.Enabled = False
    Else
    AQUI !!!!!
    End If

    ABRAÇOS

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Voltar informação anterior

    Mensagem  Silvio em Seg 24 Abr 2017, 13:58

    Bom dia...

    Sem ter a base de dados para testes, talvez algo assim...

    If Me.STATUS.Column(1) Then
    If MsgBox("Tem Certeza que deseja Alterar a STATUS do Prestador", vbYesNo, "Exit") = vbNo Then
    me.undo
    docmd.CancelEvent
    msgbox"Status não alterado", vbinformation, "...Exit..."
    exit sub

    else

    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("select codpasta, STATUS from BANCODEDADOSCENTRAL where codpasta = " & Me.CODPASTA & "")
    rs.Edit
    rs("STATUS") = Me.STATUS.Column(1)
    rs.Update
    rs.Close
    End If
    end IF


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: Voltar informação anterior

    Mensagem  maguim em Seg 24 Abr 2017, 15:53

    silvao nao deu certo!


    Segue o bd !

    Abraços
    Anexos
    Beta1.zip
    bp
    Você não tem permissão para fazer download dos arquivos anexados.
    (965 Kb) Baixado 4 vez(es)
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Voltar informação anterior

    Mensagem  Silvio em Seg 24 Abr 2017, 17:31

    Boa tarde.

    Se possível for, manda em AC2007.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: Voltar informação anterior

    Mensagem  maguim em Seg 24 Abr 2017, 18:14

    silvio nao consigo mudar o arquivo, pois só tenho access 2016

    e a empresa é restrita aqui com software externos.
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: Voltar informação anterior

    Mensagem  Silvio em Seg 24 Abr 2017, 18:26

    Ai fica complicado para mim, pois tenho apenas o AC2007 aqui comigo, que é oficial também.

    Vamos aguardar algum colega que tenho o AC2016, instalado para nos ajudar.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: Voltar informação anterior

    Mensagem  maguim em Seg 24 Abr 2017, 18:54

    alguem pode cinverter pf ?

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: Voltar informação anterior

    Mensagem  maguim em Seg 24 Abr 2017, 20:35

    alguem pra converter ?

    maguim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 197
    Registrado : 15/05/2013

    Re: Voltar informação anterior

    Mensagem  maguim em Ter 25 Abr 2017, 12:02

    alguem que possa ajudar ?
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Voltar informação anterior

    Mensagem  Alexandre Neves em Dom 11 Jun 2017, 19:53

    Boa tarde,
    Crie variável global
    ao entrar no controlo, passe o valor do controlo para a variável global
    no caso de vbno atribua ao controlo o valor armazenado na varável


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

      Data/hora atual: Ter 19 Set 2017, 12:48