Textbox2 checks to see if it matches textbox1?

[tsgtnissen]

Question: Is there a way to check if the value in textbox2 DOES NOT = textbox1 to make it do something like this:

MsgBox ("The value you just entered does not match the original value. Would you still like to enter this value?", vbQuestion + vbYesNo) = vbYes Then

"allow the value to be entered"

Else

"clear textbox2"






...and maybe as a bonus... if it matches perfectly it says something like
MsgBox ("The value you just entered matches the original value."



Once again thank you sooooo much!


V/R
Justin

[June7]

Okay, you have the right idea with that code. Real question is what event should it go in - maybe Textbox2 BeforeUpdate? Something like:

If Nz(Me.textbox2,"") <> Nz(Me.textbox1,"") Then
If MsgBox("The value you just entered does not match the original value. Would you still like to enter this value?", vbQuestion + vbYesNo) = vbNo Then
Cancel = True
End If
End If

Suggest you forego the alternate message popup. I think user would just find it annoying.

[tsgtnissen]

The code you provided works, but I need help with one more thing. To ensure the value entered into .Basic_Amount & .Debit is always a negative number, I have this code in the afterupdate():

Private Sub Basic_Amount_AfterUpdate()Me.Basic_Amount = -1 * (Abs(Me.Basic_Amount))
End Sub

The crappy thing is every time a user enters a positive number your code runs before the number can be converted.

Is there a way to work in the code above to make sure it converts the number first, then checks to see if the numbers match?

Private Sub Basic_Amount_BeforeUpdate(Cancel As Integer)If Nz(Me.Basic_Amount, "") <> Nz(Me.Debit, "") Then
If MsgBox("The value you just entered does not match the original value. Would you still like to enter this value?", vbQuestion + vbYesNo) = vbNo Then
Cancel = True
End If
End If
End Sub

[June7]

Maybe:

If Abs(Nz(Me.Basic_Amount, 1)) * -1 <> Abs(Nz(Me.Debit, 1)) * -1 Then

[tsgtnissen]

First, I would like to thank you for all the help you have already provided!

Private Sub Basic_Amount_BeforeUpdate(Cancel As Integer)
If Abs(Nz(Me.Basic_Amount, 1)) * -1 <> Abs(Nz(Me.Debit, 1)) * -1 Then 'This is the code that will check the two text fields and see if they are the same. Then the afterupdate will ensure the output is a negitive number.
 If MsgBox("The value you just entered does not match the original value. Would you still like to enter this value?", vbQuestion + vbYesNo) = vbNo Then
    Cancel = True

    End If
 End If

End Sub

This is what I have so far...and it works.... there is only one last super small detail I need to adjust.

 Then
    Cancel = True

This does not clear the text box. It just closes the msgbox and prevents the afterupdate() code from running. This leaves me with whatever was typed in to the textfield.

I have tried

me.Basic_Amount = ""

and it does not work.

My end goal is if they click "No" it clear the field of all data.


V/R
Justin

[June7]

Try:

Me.Basic_Amount = Null

[tsgtnissen]

Nope still wont work. It just give me an error and highlights that code.

[June7]

Sorry, I should have remembered that won't work.

Reference control name (not field name) with Undo method.

Me.Basic_Amount.Undo

I name controls different from the fields they are bound to, like: tbxBasic