Validation message in Combo box 2

[knuckelhead]

I have a Combo box where you select an item. I would like to have a message after i pick a choice:

"You changed the Value; Do you want to change this? "

something like that.

Secondly, Will the person need to enter Y or N? Or is there another way? Below is my starter After Update.

====================================================
Private Sub cboBlendClassIDfilter_AfterUpdate()

xyz message

End Sub
====================================================

thanks

 

[TheAceMan1]

How are ya knuckelhead . . .

The BeforeUpdate event is perfect for this as the Cancel arguement can be used if the user selects no.

[blue]   Dim Msg As String, Style As Integer
   Dim Title As String, DL As String
   
   DL = vbNewLine & vbNewLine
   
   Msg = "You changed the Value; Do you want to change this?" & DL & _
         "Click 'Yes' to continue with the change." & DL & _
         "Click 'No' to abort the change . . ."
   Style = vbInformation + vbYesNo
   Title = "User Action Required! . . ."
   
   If MsgBox(Msg, Style, Title) = vbNo Then
      Cancel = True
   End If[/blue]

See Ya! . . . . . .

 

[knuckelhead]

This is terrific so far. Can I ask one more thing? When I click on NO to cancel the change, i still need to hit the ESC key to make it revert back to the original entry.

I could add a phrase to hit NO and then ESC.

but i wonder if you have a slick way to just let the NO make the previous value go back (including if it were originally blank).

what do you think?
Knucklehead

 

[Pampers]

If MsgBox(Msg, Style, Title) = vbNo Then
Cancel = True
Undo
End If

Pampers
Just let it go...

 

[knuckelhead]

It woiks Moe. That's for the double team.
I will send another donation to the club.
For readers, i will summarize what i used here successfully.

In the combo fields Before Update line:


Private Sub cboBlendClassID_BeforeUpdate(Cancel As Integer)

Dim Msg As String, Style As Integer
Dim Title As String, DL As String

DL = vbNewLine & vbNewLine

Msg = "You changed the Value; Do you want to change this?" & DL & _
"Click 'Yes' to continue with the change." & DL & _
"Click 'No' to abort the change . . ."
Style = vbInformation + vbYesNo
Title = "User Action Required! . . ."

If MsgBox(Msg, Style, Title) = vbNo Then
Cancel = True
Undo
End If

End Sub


Knucklehead