MsgBox alert if a number hasn't changed in the userform textbox.

[danbates]

Hi,

I was wondering this was possible.

I have a userform which enters the last number in the textbox1 from my worksheet.

What I would like is if the operator hasn't changed the number in textbox1 and then clicks the send button a message box appears telling them exactly that.

Basically I don't want the userform to be able to send the same number twice.

I hope this makes sense and any help would be appreciated.

Kind Regards

Dan

 

[mikerickson]

If you put code like this in the userform code module, it should help.

Note that the .TakeFocus******* property of the command button should be true.

Dim TBChanged As Boolean

Private Sub CommandButton1_Click()
    If TBChanged Then
        MsgBox "user has changed the textbox value"
    Else
        MsgBox "textbox not changed"
    End If
    TBChanged = False
End Sub

Private Sub TextBox1_AfterUpdate()
    With TextBox1
        TBChanged = (.Tag <> .Text)
        .Tag = .Text
    End With
End Sub

 

[danbates]

Hi,

Thank you your code works perfectly.

Kind Regards

Dan