ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Textbox mask for textboxes in my Userform (Excel 2007) (https://www.excelbanter.com/excel-programming/431395-textbox-mask-textboxes-my-userform-excel-2007-a.html)

Webtechie

Textbox mask for textboxes in my Userform (Excel 2007)
 
Hello,

I need my users to input a two character day and two character month for the
date (I don't need the year). I can give a default year if need be.

I don't see the masked edit control in Excel 2007.

How do you control how data is keyed in the textboxes of the userforms?

Thanks.

joel

Textbox mask for textboxes in my Userform (Excel 2007)
 
Use ISDARE to validae the date. Build a sring like I did below. I hardcoded
a string to give you an idea how to do this. You can also read the string
from a text box like the code Icommented out below.

Do

'datestr = textbox1.value
datestr = "1302"
MyDate = Left(datestr, 2) & "/" & Mid(datestr, 2, 2) & "/" & Year(Date)
If IsDate(MyDate) Then
Exit Do
Else
MsgBox ("Bad Date - Enter Date again")
End If

Loop

"Webtechie" wrote:

Hello,

I need my users to input a two character day and two character month for the
date (I don't need the year). I can give a default year if need be.

I don't see the masked edit control in Excel 2007.

How do you control how data is keyed in the textboxes of the userforms?

Thanks.


joel

Textbox mask for textboxes in my Userform (Excel 2007)
 
Use ISDATE to validae the date. Build a sring like I did below. I hardcoded
a string to give you an idea how to do this. You can also read the string
from a text box like the code Icommented out below.

Do

'datestr = textbox1.value
datestr = "1302"
MyDate = Left(datestr, 2) & "/" & Mid(datestr, 2, 2) & "/" & Year(Date)
If IsDate(MyDate) Then
Exit Do
Else
MsgBox ("Bad Date - Enter Date again")
End If

Loop

"Webtechie" wrote:

Hello,

I need my users to input a two character day and two character month for the
date (I don't need the year). I can give a default year if need be.

I don't see the masked edit control in Excel 2007.

How do you control how data is keyed in the textboxes of the userforms?

Thanks.


Webtechie

Textbox mask for textboxes in my Userform (Excel 2007)
 
Joel,

Thanks Joel, that sure helps after the fact. Any idea of how to notify the
user as they are typing. Along the same lines as the masked edit control?

Thanks,

Tony

"Joel" wrote:

Use ISDATE to validae the date. Build a sring like I did below. I hardcoded
a string to give you an idea how to do this. You can also read the string
from a text box like the code Icommented out below.

Do

'datestr = textbox1.value
datestr = "1302"
MyDate = Left(datestr, 2) & "/" & Mid(datestr, 2, 2) & "/" & Year(Date)
If IsDate(MyDate) Then
Exit Do
Else
MsgBox ("Bad Date - Enter Date again")
End If

Loop

"Webtechie" wrote:

Hello,

I need my users to input a two character day and two character month for the
date (I don't need the year). I can give a default year if need be.

I don't see the masked edit control in Excel 2007.

How do you control how data is keyed in the textboxes of the userforms?

Thanks.


joel

Textbox mask for textboxes in my Userform (Excel 2007)
 
The masked edit control is part of access 2007. I suspect that if you added
the microsoft access object library 12.0 as a reference to your VBA project
and then create an access object you should be able to get to the control. I
haven't used the edit control before. How are you opening up the control in
2003?

"Webtechie" wrote:

Joel,

Thanks Joel, that sure helps after the fact. Any idea of how to notify the
user as they are typing. Along the same lines as the masked edit control?

Thanks,

Tony

"Joel" wrote:

Use ISDATE to validae the date. Build a sring like I did below. I hardcoded
a string to give you an idea how to do this. You can also read the string
from a text box like the code Icommented out below.

Do

'datestr = textbox1.value
datestr = "1302"
MyDate = Left(datestr, 2) & "/" & Mid(datestr, 2, 2) & "/" & Year(Date)
If IsDate(MyDate) Then
Exit Do
Else
MsgBox ("Bad Date - Enter Date again")
End If

Loop

"Webtechie" wrote:

Hello,

I need my users to input a two character day and two character month for the
date (I don't need the year). I can give a default year if need be.

I don't see the masked edit control in Excel 2007.

How do you control how data is keyed in the textboxes of the userforms?

Thanks.


joel

Textbox mask for textboxes in my Userform (Excel 2007)
 
The masked edit control is in MSMASK32.OCX. You probably can copy this file
from the windows system32 folder in an windows XP application. You may also
have to copy the DLL. Not sure if there are other libraries you will need.
This library was not distributed with Vista but from what I found on the web
it can be installed on Vista. The comments were to contact the deplorer of
your Vista software if you need the library.

"Webtechie" wrote:

Joel,

Thanks Joel, that sure helps after the fact. Any idea of how to notify the
user as they are typing. Along the same lines as the masked edit control?

Thanks,

Tony

"Joel" wrote:

Use ISDATE to validae the date. Build a sring like I did below. I hardcoded
a string to give you an idea how to do this. You can also read the string
from a text box like the code Icommented out below.

Do

'datestr = textbox1.value
datestr = "1302"
MyDate = Left(datestr, 2) & "/" & Mid(datestr, 2, 2) & "/" & Year(Date)
If IsDate(MyDate) Then
Exit Do
Else
MsgBox ("Bad Date - Enter Date again")
End If

Loop

"Webtechie" wrote:

Hello,

I need my users to input a two character day and two character month for the
date (I don't need the year). I can give a default year if need be.

I don't see the masked edit control in Excel 2007.

How do you control how data is keyed in the textboxes of the userforms?

Thanks.



All times are GMT +1. The time now is 12:35 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com