Rabu, 11 April 2012

[MS_AccessPros] Re: DateSerial

 

John,

I think this is what I should have done:

FirstDay = DateSerial(Year(Date), Int((Month(Date) - 1) / 3) * 3 + 1, 1)

Please let me know if this is correct.

Thanks,
James Eggert

--- In MS_Access_Professionals@yahoogroups.com, John Viescas <JohnV@...> wrote:
>
> James-
>
> Looks like the problem is here:
>
> Int ((month(Date())+)/3)*3+1
>
> What did you mean to add to Date() inside the Month function?
>
> John Viescas, author
> Microsoft Office Access 2010 Inside Out
> Microsoft Office Access 2007 Inside Out
> Building Microsoft Access Applications
> Microsoft Office Access 2003 Inside Out
> SQL Queries for Mere Mortals
> http://www.viescas.com/
> (Paris, France)
>
> ------------------------------------
>
> From: MS_Access_Professionals@yahoogroups.com
> [mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of j1eggert
> Sent: Wednesday, April 11, 2012 4:50 PM
> To: MS_Access_Professionals@yahoogroups.com
> Subject: [MS_AccessPros] DateSerial
>
>  
> I am using Access 2007 and tried to plug the following vba code into the Control
> Source of a text box, which results in an error:
>
> =DateSerial(Year(Date()), Int ((month(Date())+)/3)*3+1,1)
>
> If some one could point out my error I would really appreciate it.
>
> v/r,
> James Eggert
>

__._,_.___
Recent Activity:
.

__,_._,___

Tidak ada komentar:

Posting Komentar