Userform Answer Validation Problem
 

This works fine for me

Private Sub QC1Req_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim response
With Me
With QC1Req
If CDbl(.Text) < CDbl(QC1Done.Text) Then
response = MsgBox("Your 'Done value' is greater that your
'Required value.'")
Cancel = True
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End If
End With
End With

End Sub



--
HTH

Bob Phillips

"WillRn" wrote in message
...
Hello All,

I have a userform that tabulates the number of times a task was required
versus the number of times the task was actually done. A lot of my users
have
been transposing numbers so I thought I would validate that the required
value is equal or greater than the done value. So I wrote the following
line
of code and attached it to the Exit event for the field.

If QCMonitor.QC1Done.Value QCMonitor.QC1Req.Value Then
Response = MsgBox("Your 'Done value' is greater that your 'Required
value.'"
)Cancel = True
QCMonitor.QC1Req.SetFocus
End If

Problem is I can't get the cursor to go back to the Required field. I keep
getting a "Run-Time Error '-2147467259 (80004005)': Unspecified Error"

Any ideas on how to fix this?

Will

Userform Answer Validation Problem
 

I tried this but still get the same error message. The problem seems to
revolve around the SetFocus.

Weird!

"Bob Phillips" wrote:

This works fine for me

Private Sub QC1Req_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim response
With Me
With QC1Req
If CDbl(.Text) < CDbl(QC1Done.Text) Then
response = MsgBox("Your 'Done value' is greater that your
'Required value.'")
Cancel = True
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End If
End With
End With

End Sub



--
HTH

Bob Phillips

"WillRn" wrote in message
...
Hello All,

I have a userform that tabulates the number of times a task was required
versus the number of times the task was actually done. A lot of my users
have
been transposing numbers so I thought I would validate that the required
value is equal or greater than the done value. So I wrote the following
line
of code and attached it to the Exit event for the field.

If QCMonitor.QC1Done.Value QCMonitor.QC1Req.Value Then
Response = MsgBox("Your 'Done value' is greater that your 'Required
value.'"
)Cancel = True
QCMonitor.QC1Req.SetFocus
End If

Problem is I can't get the cursor to go back to the Required field. I keep
getting a "Run-Time Error '-2147467259 (80004005)': Unspecified Error"

Any ideas on how to fix this?

Will