Reverting drop-down box value

[Someone]

Hello

I have entered the following code in the AfterUpdate property of a drop-down
box called 'Status' (I found this in a reply by Allen Browne to someone
else, so thank you!).

Dim strMsg As String
With Me.Status
If .Value <> .OldValue Then
strMsg = "You have changed the Status from " & .OldValue & _
" to " & .Value & "." & vbCrLf & "Continue?"
If MsgBox(strMsg, vbYesNo + vbQuestion) = vbNo Then
.Undo
End If
End If
End With

The drop-down box is bound (as is the whole form). If the user selects no,
how can I get the original value of the drop-down box to reappear? I'm
worried that users who select no and don't see it revert back will think
there's a problem.

Thanks
M

 

[John Vinson]

Hello

I have entered the following code in the AfterUpdate property of a drop-down
box called 'Status' (I found this in a reply by Allen Browne to someone
else, so thank you!).

Dim strMsg As String
With Me.Status
If .Value <> .OldValue Then
strMsg = "You have changed the Status from " & .OldValue & _
" to " & .Value & "." & vbCrLf & "Continue?"
If MsgBox(strMsg, vbYesNo + vbQuestion) = vbNo Then
.Undo
End If
End If
End With

The drop-down box is bound (as is the whole form). If the user selects no,
how can I get the original value of the drop-down box to reappear? I'm
worried that users who select no and don't see it revert back will think
there's a problem.

Instead of undo, put

Me.Status = Me.Status.OldValue

though actually Undo should have the same effect... doesn't it?

John W. Vinson[MVP]

 

[Someone]

Instead of undo, put

Me.Status = Me.Status.OldValue

though actually Undo should have the same effect... doesn't it?

John W. Vinson[MVP]

Marvellous - it works!

The Undo command didn't work for me. I was surprised, hence why I posted to
the group.

Thank you very much for your reply.

M