Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Const conJetDate = "#mm/dd/yyyy#"
- '
- Private Sub cmdCapNhat_Click()
- Dim db As DAO.Database
- Dim rs As DAO.Recordset
- Dim strSQL As String
- Dim rndTime As Date
- strSQL = "SELECT CheckInOut.* FROM CheckInOut " & _
- "WHERE CheckInOut.TimeDate BETWEEN " & Format(Me.txtTuNgay, conJetDate) & " AND " & Format(Me.txtDenNgay, conJetDate) & " AND timevalue(CheckInOut.[TimeStr])>= #" & Me.txtTimeFilter & "# AND DAY(CheckInOut.timedate) Mod 3 = 1"
- Set db = CurrentDb
- Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
- rs.MoveFirst
- Do Until rs.EOF
- rs.Edit
- rndTime = (Me.txtEndTime - Me.txtStartTime) * Rnd() + Me.txtStartTime
- rs!TimeStr = rs!TimeDate + rndTime
- rs.Update
- rs.MoveNext
- Loop
- rs.Close
- Set rs = Nothing
- End Sub
Add Comment
Please, Sign In to add comment