Date input format
Hi Guys
I have a date entry form. One box requires a date. I have several users using the form, each types the date in a different way. I would like a consistant dd/mm/yyyy format. I know that access allows an input mask to be set, can this be done in a text box on a data entry form ? thanks Roy -- thanks Roy |
Date input format
Why dont you use the calendar control or a DT Picker... OR if you dont have
these controls you can build one... You could build one. In a fresh UserForm place a textbox (TextBox1) and try pasting the below code ...Use up/down arrows to adjust the time Private Sub UserForm_Activate() Me.TextBox1 = Format(Now, "dd/mm/yyyy") End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Date and Time Picker Use down/up arrow to change date/time. Dim intPos As Integer, strType As String If KeyCode = 38 Or KeyCode = 40 Then intPos = Me.TextBox1.SelStart strType = Application.Lookup(intPos, Array(0, 3, 6), Array("d", "m", "yyyy")) Me.TextBox1 = Format(DateAdd(strType, (39 - KeyCode), TextBox1), "dd/mm/yyyy") KeyCode = 0 Me.TextBox1.SelStart = intPos End If End Sub -- Jacob (MVP - Excel) "Roy Gudgeon" wrote: Hi Guys I have a date entry form. One box requires a date. I have several users using the form, each types the date in a different way. I would like a consistant dd/mm/yyyy format. I know that access allows an input mask to be set, can this be done in a text box on a data entry form ? thanks Roy -- thanks Roy |
Date input format
Hi Jacob
thanks for reply am struggling a bit with this (probably beyond my abilities !) isthere another way without date picker or something I can insert into existing code fo rthe text box on the form ? -- thanks Roy "Jacob Skaria" wrote: Why dont you use the calendar control or a DT Picker... OR if you dont have these controls you can build one... You could build one. In a fresh UserForm place a textbox (TextBox1) and try pasting the below code ...Use up/down arrows to adjust the time Private Sub UserForm_Activate() Me.TextBox1 = Format(Now, "dd/mm/yyyy") End Sub Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Date and Time Picker Use down/up arrow to change date/time. Dim intPos As Integer, strType As String If KeyCode = 38 Or KeyCode = 40 Then intPos = Me.TextBox1.SelStart strType = Application.Lookup(intPos, Array(0, 3, 6), Array("d", "m", "yyyy")) Me.TextBox1 = Format(DateAdd(strType, (39 - KeyCode), TextBox1), "dd/mm/yyyy") KeyCode = 0 Me.TextBox1.SelStart = intPos End If End Sub -- Jacob (MVP - Excel) "Roy Gudgeon" wrote: Hi Guys I have a date entry form. One box requires a date. I have several users using the form, each types the date in a different way. I would like a consistant dd/mm/yyyy format. I know that access allows an input mask to be set, can this be done in a text box on a data entry form ? thanks Roy -- thanks Roy |
All times are GMT +1. The time now is 03:12 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com