i need to generate a same serial number for a particular code in a day

[chandru8]

hi every body
i need a logic , that
for a particular code i need to genrate a serial number for a day should be one
for the next day it should be increment to 2 like this

can any one help me in this
Please..,
its urgent
thanks a lot

[debasisdas]

Try to use system date with a incrementing number .

[chandru8]

Thanks for your reply

I am comparing previous day with the current date

for ex

If Format(Date, "mm/dd/yyyy") > rs.Fields(1) Then
rs.fields(1 ) is previous date from access

the problem is my system date format is dd/mm/yyyy - access format is mm/dd/yyyy

so some times it give me a wrong answer

[QVeen72]

Hi,

Just use Julian Date Format:

CLng(Date)

Every day it is Incremented by 1

REgards
Veena

[chandru8]

i tried as you said
the value differ due to the format

from access

rs.fields(0) = 04/02/2008 -> mm/dd/yyyy

clng(rs.fields( 0)) -> value - 39482

System date - dd/mm/yyyy
Date value for 02/04/2008 clng(date) - 39540

how to handle this date format to find the value

[QVeen72]

Hi,

Try this :

If Date > Format(rs.Field s(1), "dd-mm-yyyy") Then

Regards
Veena

[chandru8]

iam trying change the date from access to this
Format(rs.Field s(1), "dd-mm-yyyy")


04-03-2008

but its not changing i dont know why?

[QVeen72]

Hi,

What is the "Format" of that Date Field...?
Have you mentioned any specific format..?

Why dont you drop the Field and Re-create it..?
What is the Regional date setting..?

If regional date setting is mm-dd-yyyy, then it may not allow you to change to dd-mm-yyyy

REgards
Veena

[chandru8]

i tried the format as you given but its not working

my regional setting is dd-mm-yyyy
but access date format mm-dd-yyyy