date entry msgbox: validation

[anatomycut]

Please help, what do i add to my code so it displays the message only after 4 digits are entered in the text box. At the moment it pops up after one keystroke.


Private Sub txtYear_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYear.TextChanged

Dim Year As Integer
Year = txtYear.Text
If Year < 1900 Or Year > 2100 Then MsgBox(" Please enter a year between 1900 and 2100 ")

kind regards

[danp129]

Not sure if this will work in .Net

Private Sub txtYear_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtYear.TextChanged
 
Dim Year As integer
if len(txtYear.Text) <4 then exit sub
 
if not isnumeric(txtYear.Text) then
    msgbox "Numbers only please"
    exit sub
end if
Year = cint(txtYear.Text)
If Year < 1900 Or Year > 2100 Then MsgBox(" Please enter a year between 1900 and 2100 ")
 
end sub

[FPhoenix]

also

  If Year < 1900 Or Year > 2100 And len(txtyear.text) < 4 Then MsgBox(" Please enter a year between 1900 and 2100 ")
 

that should also work depending on if you need more actions later on with this variable depends which way you would do it.

[Killer42]

  If Year < 1900 Or Year > 2100 And len(txtyear.text) < 4 Then MsgBox(" Please enter a year between 1900 and 2100 ")
 

Seems to me, the "> 2100" test can never trigger the message box, because it would fail the "length < 4" test.

Perhaps a better approach is that seen in some programs, where the text changes colour to indicate whether it is currently valid. For example, if you started typing "2007" the text would be red (or highlighted somehow) until you got the "7" in there, then switch back to normal colour.

The final test and "dummy spit" (message box) should happen when the user leaves the textbox, or clicks "OK", or whatever happens to indicate they are finished entering the year. The Validate event procedure is probably a good place to do that.

[anatomycut]

thanks, i've used the validate event but when i set the errorprovider (using validating as per the link), vb tells me errorprovider1 is not part of my file. is this a library issue or does it need declaring?

http://msdn2.microsoft.com/en-us/lib...alidating.aspx

[anatomycut]

no worries done this now, thnx

[Killer42]

no worries done this now, thnx

So that's all sorted out now, is that right?