At Percona’s web store you can order full Percona Database Performance Audit in minutes. Find out the health of your database, and how to improve it. Pay online with a credit card. Improve your database performance now!
Private Sub btn_Update_Days_Worked_Click() Dim WeekNumber As Byte Dim DayOfWeek As Byte Dim WeekText(1 To 2) As String Dim CurrentCheckBox As CheckBox For WeekNumber = 1 To 2 For DayOfWeek = 1 To 7 Set CurrentCheckBox = Me("WKDay" & LeadingZero(DayOfWeek + ((WeekNumber - 1) * 7))) If CurrentCheckBox = 0 Then WeekText(WeekNumber) = WeekText(WeekNumber) & "X" Else WeekText(WeekNumber) = WeekText(WeekNumber) & GetFirstLetterOfDay(DayOfWeek) End If Next Next DoCmd.RunSQL "INSERT INTO tbl_EmployeeShiftInformation (DaysWorkedWK1, DaysWorkedWK2) VALUES ([WeekText(1)], [WeekText(2)])" End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.