Voltar informação anterior

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.

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

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

silvao nao deu certo!


Segue o bd !

Abraços

Boa tarde.

Se possível for, manda em AC2007.

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

e a empresa é restrita aqui com software externos.

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.

alguem pode cinverter pf ?

alguem pra converter ?

alguem que possa ajudar ?

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