populate form

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I would like to add all the days in october to a table "ddates" with field
"ddate". I have tried and have not succeeded. Can someone please help?

Thanks
 
Public Sub AddDates(ByVal MonthNumber As Integer)

Dim dtmLoop As Date

For dtmLoop = DateSerial(Year(Date), MonthNumber, 1) To
DateSerial(Year(Date), MonthNumber + 1, 0)
CurrentProject.Connection.Execute "INSERT INTO ddates (ddate) VALUES
(#" & Format$(dtmLoop, "mm/dd/yyyy") & "#)"
Next dtmLoop

End Sub

To add all dates in October, pass 10 as the MonthNumber argument, e.g.
"AddDates 10". For any other month, pass the appropriate month number.

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.
 
Brendan

Thank you much....

Brendan Reynolds said:
Public Sub AddDates(ByVal MonthNumber As Integer)

Dim dtmLoop As Date

For dtmLoop = DateSerial(Year(Date), MonthNumber, 1) To
DateSerial(Year(Date), MonthNumber + 1, 0)
CurrentProject.Connection.Execute "INSERT INTO ddates (ddate) VALUES
(#" & Format$(dtmLoop, "mm/dd/yyyy") & "#)"
Next dtmLoop

End Sub

To add all dates in October, pass 10 as the MonthNumber argument, e.g.
"AddDates 10". For any other month, pass the appropriate month number.

--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com

The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.
Click to expand...
 
Back
Top