InputBox cancel button/data type problem (SOLVED)

[phantom1975]

I have the following:

Private Sub CommandButton1_Click()
Dim TransAmt as Long
TransAmt = InputBox("Enter Amount","Enter Amount","1234")
If TransAmt = "" Then
Exit Sub
End If
MsgBox "Your amount is " & TransAmt
End Sub

I get an error message when the CANCEL button is clicked. I'm certain that is because I have the variable set as LONG instead of STRING. What else can I do other than change the data type?

I've also tried:

If TransAmt = vbCancel Then
Exit Sub

And that doesn't work either. I even thought I had seen something like:

If Cancel = True Then

But that didn't do the trick either.

_________________
Pass on what you have learned. Support this great website by clicking on the sponsor's ads!.
This message was edited by phantom1975 on 2002-08-22 23:53
This message was edited by phantom1975 on 2002-08-23 00:21

 

[Nybbe]

Add error-testing:

Private Sub CommandButton1_Click()
Dim TransAmt As Long
On Error Resume Next
TransAmt = InputBox("Enter Amount", "Enter Amount", "1234")
errorcode = Err.Number
On Error GoTo 0
If errorcode <> 0 Then
Exit Sub
End If
MsgBox "Your amount is " & TransAmt
End Sub

 

[phantom1975]

That does the trick. Are there other methods of making the Cancel button work? For instance, I have seen:

If Cancel = True

How is that used?

 

[Nybbe]

I don't know. I have never seen it, but on the ather hand, I think I have a LOT!!! more to see....