• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Update giá trị ngày/ giờ theo điều kiện

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • [Hỏi] Update giá trị ngày/ giờ theo điều kiện
• Update giá trị ngày/ giờ theo điều kiện

• Query find and replace giờ phút ngẫu nhiên

  huanmonster > 06-06-17, 03:50 PM

  Xin chào cả nhà, xin choi minh hỏi vấn đề sau: Mình có bảng data như sau trong access:
  
  CheckInOutTimeStr5/2/2017 7:18:43 AM
  5/2/2017 4:01:21 PM
  5/3/2017 8:18:51 AM
  5/3/2017 4:04:21 PM
  5/4/2017 7:28:28 AM
  5/4/2017 4:09:21 PM
  5/5/2017 7:29:25 AM
  5/5/2017 4:06:21 PM
  5/6/2017 7:20:29 AM
  5/6/2017 4:09:21 PM
  5/8/2017 7:28:48 AM
  5/8/2017 4:04:21 PM
  5/9/2017 7:19:51 AM
  5/9/2017 4:03:21 PM
  5/10/2017 7:23:21 AM
  5/10/2017 4:09:21 PM
  5/11/2017 7:24:55 AM
  5/11/2017 4:01:21 PM
  5/12/2017 7:28:39 AM
  5/12/2017 4:09:21 PM
  5/13/2017 7:28:10 AM
  5/13/2017 4:12:21 PM
  
  
  
  Mình nhờ các bạn giúp query tìm kiếm tất cả các dòng có PM( giờ buổi chiều) và thay thế bằng giờ ngẫu nhiên từ 4:00 PM đến 4:10 PM
  
  Giúp mình nhé.

• RE: Query find and replace giờ phút ngẫu nhiên

  ongke0711 > 06-06-17, 04:47 PM

  Bạn tạo 1 cái Update query và copy câu lệnh SQL này dán vào màn hình SQL view.
  Vd: Table1 là cái table chứa data CheckInOut của bạn
  
  

  Mã PHP:

  UPDATE Table1 SET Table1.InOut = DateValue([InOut])+((Timevalue("16:10") - Timevalue("16:00")) * Rnd + Timevalue("16:00"))
WHERE (((TimeValue([InOut]))>Timevalue("12:00"))); 


• RE: Query find and replace giờ phút ngẫu nhiên

  huanmonster > 07-06-17, 10:21 AM

  (06-06-17, 04:47 PM)ongke0711 Đã viết: Bạn tạo 1 cái Update query và copy câu lệnh SQL này dán vào màn hình SQL view.
  Vd: Table1 là cái table chứa data CheckInOut của bạn
  
  

  Mã PHP:

  UPDATE Table1 SET Table1.InOut = DateValue([InOut])+((Timevalue("16:10") - Timevalue("16:00")) * Rnd + Timevalue("16:00"))
WHERE (((TimeValue([InOut]))>Timevalue("12:00"))); 


  Cảm ơn bạn nhé, mình đã làm và chưa thành công, mình đã đăng lại hình data điễn tả lại như chủ đề đưới đây, bạn ongke0711 vui lòng giúp lại mình nhé.
  
  http://thuthuataccess.com/forum/thread-10006.html

• Update giá trị ngày/ giờ theo điều kiện

  huanmonster > 07-06-17, 11:11 AM

  Xin chào, mọi người hỗ trợ mình vấn đề sau nhé. Mình có bàng như sau:
  
  
  
  Table chưá data trong hình tên là CheckInout, mình muốn tìm kiếm và thay thế giá trị trong cột Timestr theo điều kiện như sau:
  
  userenrollnumber = số ID mình muốn ( ID này rất nhiều giá trị, mình sẽ chỉ thay thế 1 vài ID nên phải kẹp điều kiện ID vào, có thể nhập ID vào theo từng ID một hoặc kết hopwj nhiều ID cùng lúc.)
  
  Timedate giữ nguyên, không thay đổi
  
  Cập nhật giá trị cột timestr như sau: nếu dòng nào có giờ = PM thì thay thế bằng 1 giờ PM ngẫu nhiên từ 4:00 đến 4:15, chỉ thay giờ, ngày vẫn để như cũ. Định dạng giữ nguyên.
  
  Các bạn giúp mình nhé, mình đã có 1 chủ đề hỏi vấn đề này nhưng vì không chèn hình nên không diễn đạt hết ý, có bạn ongke0711 đã giúp mình nhưng mình thực hiên chưa thành công, nếu thấy bài này bạn giúp lại mình nhé.
  
  Cảm ơn các bạn.[url=http://thuthuataccess.com/forum/user-16696.html][/url]

• RE: Update giá trị ngày/ giờ theo điều kiện

  ongke0711 > 07-06-17, 06:23 PM

  Dùng câu lệnh SQL như sau:
  
  

  Mã PHP:

  UPDATE Table1 SET Table1.TimeStr = [TimeDate]+((TimeValue("16:15")-TimeValue("16:00"))*Rnd()+TimeValue("16:00"))
WHERE (((TimeValue([TimeStr]))>TimeValue("12:00")) AND ((Table1.UserEnrollNumber)=[Nhap UserEnrollNo:])); 


• RE: Update giá trị ngày/ giờ theo điều kiện

  huanmonster > 08-06-17, 08:59 AM

  Đã update được, tuy nhiên giá trị thời gian là giống nhau cho tất cả các giá trị update( ví dụ mình làm là thay thế tất cả bằng 4:07), mình muốn nó phải khác nhau nhưng nằm trong khoảng mình đặt ra. Có cách nào khác không a.

• RE: Update giá trị ngày/ giờ theo điều kiện

  ongke0711 > 08-06-17, 04:34 PM

  Muốn vậy thì phải dùng code VBA thôi chứ không dùng Query được.
  Ví dụ: 
  - Table chứa bảng trên là Table1. 
  - Bạn thiết kế 1 form có 1 textbox (txtListUsers) dùng để nhập User number, nhập kế tiếp cách nhau dấu phẩy (Vd: 1,2).
  - Thiết kế 1 nút lệnh (cmdCapNhat) và code cho nút lệnh đó như bên dưới.
  
  

  Mã PHP:

  Option Explicit

Private Sub cmdCapNhat_Click()
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim rndTime As Date

   Set db = CurrentDb
   Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
   rs.MoveFirst
   Do Until rs.EOF
       rs.Edit
       If TimeValue(rs!TimeStr) > #12:00:00 PM# And InStr(Me.txtListUsers, rs!UserEnrollNumber) Then
           rndTime = (#4:15:00 PM# - #4:00:00 PM#) * Rnd() + #4:00:00 PM#
           rs!TimeStr = rs!TimeDate + rndTime
           Debug.Print rs!TimeStr
           rs.Update
       End If
       rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing
End Sub 


• RE: Update giá trị ngày/ giờ theo điều kiện

  huanmonster > 10-06-17, 09:58 AM

  (08-06-17, 04:34 PM)ongke0711 Đã viết: Muốn vậy thì phải dùng code VBA thôi chứ không dùng Query được.
  Ví dụ: 
  - Table chứa bảng trên là Table1. 
  - Bạn thiết kế 1 form có 1 textbox (txtListUsers) dùng để nhập User number, nhập kế tiếp cách nhau dấu phẩy (Vd: 1,2).
  - Thiết kế 1 nút lệnh (cmdCapNhat) và code cho nút lệnh đó như bên dưới.
  
  

  Mã PHP:

  Option Explicit

Private Sub cmdCapNhat_Click()
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim rndTime As Date

   Set db = CurrentDb
   Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
   rs.MoveFirst
   Do Until rs.EOF
       rs.Edit
       If TimeValue(rs!TimeStr) > #12:00:00 PM# And InStr(Me.txtListUsers, rs!UserEnrollNumber) Then
           rndTime = (#4:15:00 PM# - #4:00:00 PM#) * Rnd() + #4:00:00 PM#
           rs!TimeStr = rs!TimeDate + rndTime
           Debug.Print rs!TimeStr
           rs.Update
       End If
       rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing
End Sub 


• RE: Update giá trị ngày/ giờ theo điều kiện

  huanmonster > 10-06-17, 10:01 AM

  (10-06-17, 09:58 AM)huanmonster Đã viết:

  (08-06-17, 04:34 PM)ongke0711 Đã viết: Muốn vậy thì phải dùng code VBA thôi chứ không dùng Query được.
  Ví dụ: 
  - Table chứa bảng trên là Table1. 
  - Bạn thiết kế 1 form có 1 textbox (txtListUsers) dùng để nhập User number, nhập kế tiếp cách nhau dấu phẩy (Vd: 1,2).
  - Thiết kế 1 nút lệnh (cmdCapNhat) và code cho nút lệnh đó như bên dưới.
  
  

  Mã PHP:

  Option Explicit

Private Sub cmdCapNhat_Click()
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim rndTime As Date

   Set db = CurrentDb
   Set rs = db.OpenRecordset("Table1", dbOpenDynaset)
   rs.MoveFirst
   Do Until rs.EOF
       rs.Edit
       If TimeValue(rs!TimeStr) > #12:00:00 PM# And InStr(Me.txtListUsers, rs!UserEnrollNumber) Then
           rndTime = (#4:15:00 PM# - #4:00:00 PM#) * Rnd() + #4:00:00 PM#
           rs!TimeStr = rs!TimeDate + rndTime
           Debug.Print rs!TimeStr
           rs.Update
       End If
       rs.MoveNext
   Loop
   rs.Close
   Set rs = Nothing
End Sub 


  
  Bạn có thể viết thêm code cho nhập ngày bắt đầu và ngày kết thúc để thực hiện việc thay thế giờ không ah,
  
  Ví dụ chỉ thực hiện thay giờ cho ID 2,3 trong khoảng thời gian từ ngày/tháng/năm đến ngày/ tháng/ năm

• RE: Update giá trị ngày/ giờ theo điều kiện

  ongke0711 > 11-06-17, 12:01 AM

  Bạn gom lại đưa ra bài toán thực sự bạn muốn là gì để dễ xử lý chứ lâu lâu lại nhả ra 1 table, lâu lâu lại bổ sung yêu cầu cho cùng một vấn đề, làm vậy rất mất thời gian cho người trả lời cho bạn. Nếu bạn đưa ra tổng thể các phát sinh trong trường hợp của bạn và cuối cùng bạn muốn xử lý nó ra kết quả như thế nào thì có khi đã có người có kinh nghiệm vụ này sẽ góp ý cho bạn những cách xử lý hay hơn. 
• Bài trước Bài tiếp