The leading zero is dropped during this append query
Table named Calc exists with Text fields: Serial and Julian.
The Code:
Dim strJulain as string
strJulian = Right(year(date), 1) & DatePart("y", date())
DoCmd.RunSQL "INSERT INTO Calc(Serial, Julian) VALUES(tboSerial, " & strJulian & ")"
I...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.