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


3 participantes

    Voltar informação anterior

    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Voltar informação anterior

    Mensagem  maguim 24/4/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

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  Silvio 24/4/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.
    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."
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  maguim 24/4/2017, 15:53

    silvao nao deu certo!


    Segue o bd !

    Abraços
    Anexos
    Voltar informação anterior AttachmentBeta1.zip
    bp
    Você não tem permissão para fazer download dos arquivos anexados.
    (965 Kb) Baixado 5 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  Silvio 24/4/2017, 17:31

    Boa tarde.

    Se possível for, manda em AC2007.


    .................................................................................
    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."
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  maguim 24/4/2017, 18:14

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

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


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  Silvio 24/4/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.
    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."
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  maguim 24/4/2017, 18:54

    alguem pode cinverter pf ?
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  maguim 24/4/2017, 20:35

    alguem pra converter ?
    maguim
    maguim
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  maguim 25/4/2017, 12:02

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


    Respeito às regras : Respeito às Regras 100%

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

    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  Alexandre Neves 11/6/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

    Conteúdo patrocinado


    Voltar informação anterior Empty Re: Voltar informação anterior

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 09:01