check date format

[scouse13]

hi guys I am using the below code on textbox 1 (userform) that runs smoothly doing what it is supposed to do, what I need is some code that will check the date format in textbox1, to ensure it is entered as dd/mm/yyyy, if correct then run the afterupdate code if not then show a message asking the user to enter the date correctly, I also have some code that copies all the data from the userform to another sheet on a command button, could some code here highlight if the format is not correct before copying

Please Login or Register  to view this content.

scouse13

[Greg M]

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M

[scouse13]

Hi there,

See if the following code does what you need:

Please Login or Register  to view this content.

Hope this helps - please let me know how you get on.

Regards,

Greg M

thanks for that greg, the only other thing I need is for the focus to go back to textbox1 so the user has to change the format, at the moment, once the message box is acknowledged the user could just carry on without changing the format

scouse13

[Greg M]

Hi again,

Many thanks for your feedback and also for the Reputation increase - much appreciated!

I don't think you can use the AfterUpdate event to guarantee that the User will change an invalid value - the TextBox will receive the focus but the User can just leave the invalid value in place and tab to or select another control. The displayed (invalid) value will not have changed, so the AfterUpdate event will not be triggered.

The following code uses the Exit event - see if it does what you need:

Please Login or Register  to view this content.

Hope this helps - as before, please let me know how you get on.

Regards,

Greg M

[scouse13]

hi greg, thanks for your help, I figured out by adding the bit of code below at the end of the Else statement, this should force the user to tab back to enter the date correctly, if not before the, the code I have on the update command button before everything is copied checks also to ensure the textbox is not blank, this all seems to work fine.
thanks again

Please Login or Register  to view this content.

scouse13

[Rick Rothstein]

Please Login or Register  to view this content.

In the code you posted in Message #2 and then again in Message #4, you had the above series of If..Then blocks. I am wondering why you chose to test TextBox1 three separate times rather than just once...

Please Login or Register  to view this content.

[scouse13]

In the code you posted in Message #2 and then again in Message #4, you had the above series of If..Then blocks. I am wondering why you chose to test TextBox1 three separate times rather than just once...

Please Login or Register  to view this content.

Good point Rick, That's why you are a valued forum contributor, and I use this site a lot for help, from people like yourself, didn't really think about it to be honest- but it being pointed out to me, will hopefully make me think in future, thanks a lot for the advice
scouse13

[Greg M]

@Scouse13

Hi again,

Although your approach "works" it probably isn't the most elegant from either a User or a programming point of view

Clearing the input box means that the User is forced to re-enter the full 10-digit date value, but in many cases all that will be required is to insert a missing zero or a four- (instead of two-) digit year value.

Clearing the input box also means that the AfterUpdate event is triggered again, and although that doesn't really matter much in this case, the routine is needlessly re-executed and you're starting down the road of recursive programming which is a whole new ballgame


@Rick Rothstein

Hi Rick,

Well spotted!

Without thinking too much about it I just grabbed the OP's code and stuffed it inside a date format test - just goes to show that an extra pair of eyes is always useful!


Regards to you both,

Greg M