Read this Gartner Research Note and discover how your IT organization can automate and optimize DevOps processes using a toolchain architecture.
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
|SQL Rewrite without the NULLIF||4||25|
|How to keep a record with the highest value||3||38|
|StoredProcedure to JSON query faulty syntax||2||22|
|How to add extra IF statement to a loop in MS Access VBA||3||15|