Append my new "text" dates to a date field (1 Viewer)

ECEK

Registered User.
Local time
Today, 21:43
Joined
Dec 19, 2012
Messages
717
My two column data (date of birth, Deceased Date) come in the form of text "01 Jan 2017"

Through a function and query I have turned it into 01/01/2017.

Data in both fields can be blank

I am trying to append to a date field in another table.

Whilst the results (append) are correct. The append stalls to explain that it can't append all the records in the append query.

set X fields to NULL due to a type conversion failure and it didn't add 0 records key violations, 0 lock violations, 0 validation

Do I want to run the query?

I do but I need this to just run.

My function is this:
Code:
Function CMTN(month As String) As String
Select Case month
Case "Jan"
    CMTN = "01"
Case "Feb"
    CMTN = "02"
Case "Mar"
    CMTN = "03"
Case "Apr"
    CMTN = "04"
Case "May"
    CMTN = "05"
Case "Jun"
    CMTN = "06"
Case "Jul"
    CMTN = "07"
Case "Aug"
    CMTN = "08"
Case "Sep"
    CMTN = "09"
Case "Oct"
    CMTN = "10"
Case "Nov"
    CMTN = "11"
Case "Dec"
    CMTN = "12"
   

Case Else
    CMTN = 0
End Select
End Function

I then call it from my query with:

NDOB: IIf(Len([Date of Birth])>0,(Left([Date of Birth],2)) & "/" & CMTN((Right(Left([Date of Birth],6),3))) & "/" & Right([Date of Birth],4),"")

I am thinking that I should format this query to "dd/mm/yyyy".
I have tried to do this in the properties of the field (without sucess) but not on the query formula.

Any pointers would be greatly appreciated.
 

isladogs

MVP / VIP
Local time
Today, 21:43
Joined
Jan 14, 2017
Messages
18,219
You can do this more easily using CDate([DOB]) in your query assuming your destination field is DateTime datatype
Similarly for the deceased date

You might need Nz to manage blank records but that's the only complication

If so, your function can be deleted as its no longer needed

Also use Mid function rather than Right(Left... though you no longer need that now
 

plog

Banishment Pending
Local time
Today, 15:43
Joined
May 11, 2011
Messages
11,646
1. Does the field the dates are going into allow nulls?
2. Do you want to append records with null values?
3. Are you sure everything is being turned into a date correctly?
4. That function does not turn anything into a date--it returns at most 2 characters...actually...

Your function is very flawed. The signature line says it returns a string, however if it hits the Else portion it is going to return an integer. I suggest you rewrite your function to actually return a a date or a null. Then depending on the answer to my 3 questions you could do various tests in the query.
 

jdraw

Super Moderator
Staff member
Local time
Today, 16:43
Joined
Jan 23, 2006
Messages
15,379
Do you really want NULL values? You might consider your requirements and insist on a real date. You can check the date using IsDate() and present a message to the user if needed.

It just seems that when processing and recording dates, you should review the use of Date/Time datatype. Your requirements may differ, but it is often a good practice to use available datatypes where/when practical/appropriate.

Good luck.
 

Users who are viewing this thread

Top Bottom