Guest User

Untitled

a guest
Nov 22nd, 2017
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.79 KB | None | 0 0
  1. Const conJetDate = "#mm/dd/yyyy#"
  2. '
  3.  
  4. Private Sub cmdCapNhat_Click()
  5. Dim db As DAO.Database
  6. Dim rs As DAO.Recordset
  7. Dim strSQL As String
  8. Dim rndTime As Date
  9. strSQL = "SELECT CheckInOut.* FROM CheckInOut " & _
  10. "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"
  11. Set db = CurrentDb
  12. Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
  13. rs.MoveFirst
  14. Do Until rs.EOF
  15. rs.Edit
  16. rndTime = (Me.txtEndTime - Me.txtStartTime) * Rnd() + Me.txtStartTime
  17. rs!TimeStr = rs!TimeDate + rndTime
  18. rs.Update
  19. rs.MoveNext
  20. Loop
  21. rs.Close
  22. Set rs = Nothing
  23. End Sub
Add Comment
Please, Sign In to add comment