• 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

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

  huanmonster > 12-06-17, 09:52 AM

  (11-06-17, 12:01 AM)ongke0711 Đã viết: 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. 

  
  Chào bạn, mình đánh giá cao sự giúp đỡ nhiệt tình và ghi nhận sự góp ý.
  
  Mình xin tổng hợp lại vấn đề như sau: Trong bảng của mình có 3 côt. usersenrollnumber chính là ID cần tham chiếu, Timedate là cột ngày tháng tham chiếu, timestr là cột ngày tháng. giờ ( như hình đầu topic mình có đăng).
  
  Mình cần làm động tác thay thế giờ( ngẫu nhiên trong khoảng mình cho trước, vd: 4:00 PM đến 4:15 PM).
  
  Thay thế dựa vào ID, trong khoảng ngày tháng nhập vào ( vd từ 1/6/2017 đến 30/6/2017).
  
  Bạn giúp mình viết code sao cho khi chạy nó sẽ hiện nhâp ID,  nhập từ ngày đến ngày và khoảng thời gian ngẫu nhiên nó sẽ lấy giờ, xong OK sẽ thay thế tất theo điều kiện trên.

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

  ongke0711 > 13-06-17, 12:15 AM

  Demo cho bạn đây: http://www.mediafire.com/file/4we7u2ct26...yGioIO.mdb
  
  

  Mã PHP:

  Option Explicit

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 Table1.* FROM Table1 " & _
            "WHERE Table1.TimeDate BETWEEN " & Format(Me.txtTuNgay, conJetDate) & " AND " & Format(Me.txtDenNgay, conJetDate) & " AND Table1.UserEnrollNumber In (" & Me.txtListUsers & ") AND timevalue(Table1.[TimeStr])>= #" & Me.txtTimeFilter & "#"
   Set db = CurrentDb
   Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
   rs.MoveFirst
   Do Until rs.EOF
       rs.Edit
       MsgBox rs!TimeDate
       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 


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

  huanmonster > 13-06-17, 12:22 PM

  (13-06-17, 12:15 AM)ongke0711 Đã viết: Demo cho bạn đây: http://www.mediafire.com/file/4we7u2ct26...yGioIO.mdb
  
  

  Mã PHP:

  Option Explicit

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 Table1.* FROM Table1 " & _
            "WHERE Table1.TimeDate BETWEEN " & Format(Me.txtTuNgay, conJetDate) & " AND " & Format(Me.txtDenNgay, conJetDate) & " AND Table1.UserEnrollNumber In (" & Me.txtListUsers & ") AND timevalue(Table1.[TimeStr])>= #" & Me.txtTimeFilter & "#"
   Set db = CurrentDb
   Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
   rs.MoveFirst
   Do Until rs.EOF
       rs.Edit
       MsgBox rs!TimeDate
       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 


  
  Chào bạn, mình copy form demo sang database của mình, sửa tên table lại theo tên table trong database và đã thành công. Xin cảm ơn bạn rất nhiều,
  
  Mỗi lần update giá trị xong nó hiện bảng nhấn OK mới làm tiếp, bạn có thể giúp thêm code sao cho nó cứ tự động thay thế hết record thỏa điều kiện xong xuôi thì hiện 1 thông báo tổng số record đã thay thế không?
  
  Mình xin cảm ơn.

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

  ongke0711 > 13-06-17, 12:48 PM

  Trong code có đoạn "MsgBox rs!TimeDate" bạn bỏ nó đi là được (đoạn code này tôi test thôi).

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

  huanmonster > 13-06-17, 12:59 PM

  Ok bạn. Mình xin stop chủ đề này. Chúc bạn sức khỏe và thành công
• Bài trước Bài tiếp