control validation problems in XL 97 VBA

[taupirho]

I have a date picker field, a text field and an exit button on my userform.
I have coded some validation in the exit event of the text field which works as expected except when I click on the drop down arrow of my date picker control. Although I get my validation message OK it still insists on causing the calendar part of the date picker control to appear even though I have a cancel=true and textbox1.setfocus statements in my textbox validation routine. My other problem is that the textbox validation also fires when I click on my exit button even though I have its getfocusonclick property to false. Any help on these two problems is much appreciated.

 

[RobBroekhuis]

Post your code (just the essential parts). I'm sure we can help with both issues.
Rob

 

[taupirho]

Here is my validation code as requested:-

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

Cancel = False
If TextBox1.Value = "" Then
Exit Sub
Else
Dim SQLstr As String


Set DBnum = New Connection
DBnum.CursorLocation = adUseClient
DBnum.Open "PROVIDER=MSDASQL;dsn=Text Files;uid=;pwd=;database=;"

Set ADOnum = New Recordset
SQLstr = "select num from c:\valid_nums.csv where num=" & UserForm2.TextBox1.Value

ADOnum.Open SQLstr, DBnum, adOpenStatic, adLockOptimistic

If ADOnum.RecordCount < 1 Then
MsgBox (&quot;Invalid number, please re-enter&quot
Cancel = True
UserForm2.TextBox1.SetFocus
End If

End Sub