Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Must Answer Data Validation Question | Excel Discussion (Misc queries) | |||
Userform with validation... | Excel Programming | |||
UserForm Date Validation | Excel Programming | |||
Userform Validation | Excel Programming | |||
Userform Date validation | Excel Programming |