Automate Building a diary for each employee.

[josephsimonbenn]

Hi Folks,

I would like someone to help me with a code.

I have a table "TblEmployees" and another Table "TblDiary"
Fields: "EmployeeID" "Employee", "iDate"

When i hit a command button, i want the code to enter the date in the TblDiary for each date between 1/4/Year(Date) to 31/3/Year(Date)+1, for each employee :)

Hope someone can help.

Thanks :)

[Delerna]

in the on click event for the command button

something like this is one way

Private Sub Command0_Click()
   Dim fromdte As Date, todte As Date, sql As String, EmpID As Integer
   EmpID = 1
   fromdte = CDate("1/4/" & Year(Date))
   todte = CDate("31/3/" & Year(Date) + 1)
   DoCmd.SetWarnings False
   While fromdte <= todte
      sql = "insert into TblDiary values(" & EmpID & ",'" & fromdte & "')"
      DoCmd.RunSQL sql
      fromdte = fromdte + 1
   Wend
   DoCmd.SetWarnings True
End Sub
 

[josephsimonbenn]

Thanks Mateee :)