Problem with date field...

[Rameez]

Look through the examples...you will understand my problem.




Sub testdate(t1 As Date)
Dim s As Integer
t1 = Format(t1, "mm/dd/yy")
Debug.Print t
s = DatePart("m", t1)
Debug.Print s
End Sub

Call testdate(06/19/2009)
is giving 12
Call testdate(#06/19/2009#)
is giving 06....(correct value)

In my code, I have to extract the month and year part from cs4
Function IsDupeslam(cs1 As String, cs2 As String, cs3 As String, cs4 as date)
Dim y As Integer
y = DatePart("m", cs4)
debug.print y
End Function
obiviously the above code gives wrong result....
The solution i think will be to put the leading and trailing # to the date field...

Function dater11(d1 As Date)
Dim m1 As Integer
Debug.Print d1
m1 = Month(" & # d1 # &")...this code is to be corrected....
Debug.Print m1
End Function


Please help

[marianne]

Sub testdate(t1 As Date)
Dim s As Integer
t1 = Format(t1, "mm/dd/yy")
Debug.Print t1
s = DatePart("m", t1)
MsgBox s
End Sub

The above is my edited. the code above you gave gave an variable error "T". Moreover, the testdate that gave 12 as result, how would you like it to be accomplished? thru field in a form or do you have to input that in your code?

because even you assign variable as date to call that function, you still have to quote that variable. I have tested my edited code and it worked.

and I can't recall MONTH as access function but I think it is for Excel.

[Rameez]

The thing works if i hardcode the date...the problem is that it will be in a function...with this function(testdate) called out...

rs.movefirst
do until rs.eof
dim flag1 as boolean
dim temp1 as string
dim temp2 as string
dim temp3 as string
dim temp4 as date
temp1=rs!field1
temp2=rs!field2
temp3=rs!field3
temp4=rs!field4 'date field

flag1= isdupeslam(temp1,temp2,temp3,temp4)
....
....

rs.movenext
loop

if i hardcode temp4 as #1/1/2009# the code works...but not in the form of a variable being passed...

[marianne]

nope. on the contrary it worked on me. i have tested it. how did you coded that as a variable or on a form?

[Rameez]

nope. on the contrary it worked on me. i have tested it. how did you coded that as a variable or on a form?

oh...how did it work...

I m just calling a sub updatedb()...inside the sub...i have a recordset rs defined on a query....for each row in that query...i m calling that
isdupesla function...the main body is in my previous post.

[marianne]

we have new sub here uhm.... updatedb() ??? the code that worked for me on the other hand is what I've edited. maybe you have to revise your code.

[Rameez]

For me the code you edited is giving 12 as the answer in message box...no matter what the date is...!!!!

[RuralGuy]

Have you tried this combination?

Function dater11(d1 As Date)
   Dim m1 As Integer
   Debug.Print d1
   m1 = Month("#" &  d1  & "#")...this code is to be corrected....
   Debug.Print m1
End Function

[Rameez]

yes i did try it...but to no avail...month function is not accepting the parameter given as a date...

I had to deliver this code today...so what i did is instead of passing date...I have passed month and year as integers...

it worked perfectly.
here's the change i did...

dim flag1 as boolean
dim temp1 as string
dim temp2 as string
dim temp3 as string
dim temp4 as integer
dim temp5 as integer
temp1=rs!field1
temp2=rs!field2
temp3=rs!field3
temp4=DatePart("m",rs!field4)
temp5=DatePart("yyyy",rs!field4)

flag1= isdupeslam(temp1,temp2,temp3,temp4,temp5)
....
....

[RuralGuy]

Glad to hear you got it working.