simple one

[merlin]

greetings to all. i am new to the group and to access. I am using
access 97 to setup our clinic's database and in one of the tables I
need to be able to type in a date only in terms of the Month/Year
format? How do I do that? I can't seem to be able to find this either
through the help file or with playing around with the properties. I
know it's a silly one but we all have to start from as low as this lol
:)

thanks in advance

yanni

[PC Datasheet]

Use separate textboxes to enter the Month and Year then use the DateSerial
function to convert that to a date. Look up DateSerial function in the Help
file.

--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
re******@pcdatasheet.com
www.pcdatasheet.com
"merlin" <ma*******@gmail.com> wrote in message
news:11*********************@c13g2000cwb.googlegro ups.com...

greetings to all. i am new to the group and to access. I am using
access 97 to setup our clinic's database and in one of the tables I
need to be able to type in a date only in terms of the Month/Year
format? How do I do that? I can't seem to be able to find this either
through the help file or with playing around with the properties. I
know it's a silly one but we all have to start from as low as this lol
:)

thanks in advance

yanni

[merlin]

thanx but doesn't that complicate things? the thing is that for some of
the things i want to record (ie. onset of episodes) there are no
specific dates (ie. 10/01/05 ) the patient usually reports approximate
data mid jan 05 - so my idea is to simply record month and year...i am
playing with this format at the moment mm:yy but it does funny things
when i try to type in the data like that 01/05 for example...

y

[fredg]

On 18 Jan 2005 07:28:35 -0800, merlin wrote:

thanx but doesn't that complicate things? the thing is that for some of
the things i want to record (ie. onset of episodes) there are no
specific dates (ie. 10/01/05 ) the patient usually reports approximate
data mid jan 05 - so my idea is to simply record month and year...i am
playing with this format at the moment mm:yy but it does funny things
when i try to type in the data like that 01/05 for example...

y

Enter the year with 4 digits. 2005, not 2.

If you do not use an input mask, you can enter the month and year (as
a 4 digit year). Access will default to the first day of that month,
i.e. enter 2/2005 and Access will store 2/1/2005. However, if the
user enters a 2 digit year, i.e. 2/05, Access will assume 2/05/2005.
--
Fred
Please only reply to this newsgroup.
I do not reply to personal email.

[Tim Marshall]

merlin wrote:

thanx but doesn't that complicate things? the thing is that for some of
the things i want to record (ie. onset of episodes) there are no
specific dates (ie. 10/01/05 )

It would still be best to record the year as well. You can always use
month() and year() functions to get that sort of thing.

Now, if you want to just enter month/day or whatever, here is a function
I use frequently, developed in A97. If you use this in a later version
of Access, drop the @@ in the msgbox text. I use this in the after
update event of a text box, allowing me to enter enter a single number,
which the function interprets as a day of the current month/year, or a
month/year which the function interprets as the current year. If you're
ambitious, you can fiddle around with text values and use it in a before
update event, but after update works for me. References to "FM EPS" are
to a specific app I pulled this from.

Please watch the wrap, I'm just plopping this down into this message:

Function fGetDate(txtDate As Access.TextBox) As Boolean

'Used to get proper date format in the after update event. Must be used
with a text box

Dim strGetDateMessage As String

Dim strGetDateError As String

Dim dteDate As Date

Dim strDate As String

On Error GoTo Err_Proc

strDate = txtDate

If IsNumeric(strDate) Then 'if only numbers, then insert slash

Select Case Len(strDate)

Case 1, 2 'if numeric and only one or two, interpet as day

strDate = Month(Date) & "/" & strDate & "/" & Year(Date)

Case 3, 4 'at least two numbers, then interpret first two
as month, after as day

strDate = Mid(strDate, 1, 2) & "/" & Mid(strDate, 3) &
"/" & Year(Date)

Case Else

strDate = Mid(strDate, 1, 2) & "/" & Mid(strDate, 3, 2)
& "/" & Mid(strDate, 5)

End Select

End If

'strDate = DateValue(strDate) 'cdate could also be used

'if the above works, then everything is fine otherwise error 13

txtDate = DateValue(strDate) 'this will raise an error 2115 if it
doesn't work

fGetDate = True

Exit_Proc:

Exit Function

Err_Proc:

Select Case Err.Number

Case 13

strGetDateError = "Date entered improperly @@" & _
"There are a number of formats you may use:" & vbCrLf
& vbCrLf & _
"1. Numbers and slashes, eg, MM/DD/YY (or YYYY),
M/D/YY" & vbCrLf & vbCrLf & _
"2. Name of a month (3 or more letters) day, year (in
any order) with spaces or commas between" & vbCrLf & vbCrLf & _
" eg, 12 Apr 1999, Apr 2000 12, April 1, 99,
etc" & vbCrLf & vbCrLf & _
"(for 1 & 2, if the year is left out, the current year
will be assumed)" & vbCrLf & vbCrLf & _
"3. Numbers with no delimiters:" & vbCrLf & _
"* 1 or 2 numbers is day (current month & year added
by FM EPS)" & vbCrLf & _
"* 3 or 4 numbers is month/day (current year added by
FM EPS)" & vbCrLf & _
"* 5 to 8 numbers will be interpeted as month/day/year."

strGetDateMessage = MsgBox(strGetDateError, 0 + 64,
"Improper Date Format")

txtDate = Null

fGetDate = False

GoTo Exit_Proc

End Select

End Function
--
Tim http://www.ucs.mun.ca/~tmarshal/
^o<
/#) "Burp-beep, burp-beep, burp-beep?" - Quaker Jake
/^^ "What's UP, Dittoooooo?" - Ditto