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

MoveNext báo lỗi 3021

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] MoveNext báo lỗi 3021
• MoveNext báo lỗi 3021

• MoveNext báo lỗi 3021

  huanmonster > 04-07-17, 10:25 AM

  Chào các bạn, tôi có code sau,
  
  Option Compare Database
  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 CheckInOut.* FROM CheckInOut " & _
               "WHERE CheckInOut.TimeDate BETWEEN " & Format(Me.txtTuNgay, conJetDate) & " AND " & Format(Me.txtDenNgay, conJetDate) & " AND timevalue(CheckInOut.[TimeStr])>= #" & Me.txtTimeFilter & "#"
      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
          rs.MoveNext
          rs.MoveNext
              Loop
      rs.Close
      Set rs = Nothing
  End Sub
  
  Code dùng để sửa giá trị thời gian thỏa mãn điều kiện trong khoảng thời gian nhập vào và lớn hơn giá trị cho trước, thay thế bằng thời gian ngẫu nhiên cho trước.
  
  Tôi muốn sửa 1 rec, bỏ qua 2 rec, làm vậy lặp lại đến hết, tôi dùng rs.Movenext 3 lần để bỏ qua 2 rec nhưng bị báo lỗi 3021, no current record, debug ở dòng rs.MoveNext thứ 2 ( đoạn 3 dòng moveNext).
  
  Các bạn giúp mình xem bị lỗi chỗ nào, chỉ tại mình muốn sửa 1 rec bỏ qua 2 rec nên mới lỗi vậy, chứ dùng 1 moveNext thì chạy OK nhưng không bỏ qua 2 rec được mà sửa hết.
  
  Cảm ơn các bạn

• RE: MoveNext báo lỗi 3021

  lehongduc > 04-07-17, 11:22 AM

  (04-07-17, 10:25 AM)huanmonster Đã viết: Chào các bạn, tôi có code sau,
  
  Option Compare Database
  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 CheckInOut.* FROM CheckInOut " & _
               "WHERE CheckInOut.TimeDate BETWEEN " & Format(Me.txtTuNgay, conJetDate) & " AND " & Format(Me.txtDenNgay, conJetDate) & " AND timevalue(CheckInOut.[TimeStr])>= #" & Me.txtTimeFilter & "#"
      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
          rs.MoveNext
          rs.MoveNext
              Loop
      rs.Close
      Set rs = Nothing
  End Sub
  
  Code dùng để sửa giá trị thời gian thỏa mãn điều kiện trong khoảng thời gian nhập vào và lớn hơn giá trị cho trước, thay thế bằng thời gian ngẫu nhiên cho trước.
  
  Tôi muốn sửa 1 rec, bỏ qua 2 rec, làm vậy lặp lại đến hết, tôi dùng rs.Movenext 3 lần để bỏ qua 2 rec nhưng bị báo lỗi 3021, no current record, debug ở dòng rs.MoveNext thứ 2 ( đoạn 3 dòng moveNext).
  
  Các bạn giúp mình xem bị lỗi chỗ nào, chỉ tại mình muốn sửa 1 rec bỏ qua 2 rec nên mới lỗi vậy, chứ dùng 1 moveNext thì chạy OK nhưng không bỏ qua 2 rec được mà sửa hết.
  
  Cảm ơn các bạn

  
  Theo chỉ định trong đọan code của Bạn, khi đã đến tận cùng của Recordset rồi (rs.EOF) mà còn phải nhảy mấy phát nữa (rs.MoveNext) thì bảo sao không báo lỗi được.

• RE: MoveNext báo lỗi 3021

  huanmonster > 04-07-17, 11:25 AM

  (04-07-17, 11:22 AM)lehongduc Đã viết:

  (04-07-17, 10:25 AM)huanmonster Đã viết: Chào các bạn, tôi có code sau,
  
  Option Compare Database
  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 CheckInOut.* FROM CheckInOut " & _
               "WHERE CheckInOut.TimeDate BETWEEN " & Format(Me.txtTuNgay, conJetDate) & " AND " & Format(Me.txtDenNgay, conJetDate) & " AND timevalue(CheckInOut.[TimeStr])>= #" & Me.txtTimeFilter & "#"
      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
          rs.MoveNext
          rs.MoveNext
              Loop
      rs.Close
      Set rs = Nothing
  End Sub
  
  Code dùng để sửa giá trị thời gian thỏa mãn điều kiện trong khoảng thời gian nhập vào và lớn hơn giá trị cho trước, thay thế bằng thời gian ngẫu nhiên cho trước.
  
  Tôi muốn sửa 1 rec, bỏ qua 2 rec, làm vậy lặp lại đến hết, tôi dùng rs.Movenext 3 lần để bỏ qua 2 rec nhưng bị báo lỗi 3021, no current record, debug ở dòng rs.MoveNext thứ 2 ( đoạn 3 dòng moveNext).
  
  Các bạn giúp mình xem bị lỗi chỗ nào, chỉ tại mình muốn sửa 1 rec bỏ qua 2 rec nên mới lỗi vậy, chứ dùng 1 moveNext thì chạy OK nhưng không bỏ qua 2 rec được mà sửa hết.
  
  Cảm ơn các bạn

  
  Theo chỉ định trong đọa code của Bạn, khi đã đến tận cùng của Recordset rồi mà còn phải nhảy mấy phát nữa thì bảo sao không báo lỗi được.

  
  Cảm ơn bạn, bạn có thể giúp xử lý vấn đề này được không ạ, phải làm sao để vẫn nhảy được 2 rec  sửa 1 rec mà không bị lỗi ạ.

• RE: MoveNext báo lỗi 3021

  tranthanhan1962 > 04-07-17, 01:58 PM

  Do vị trí record bạn sửa 1 rec, bỏ qua 2 rec, Ta có các thứ tự record được sửa là 1, 4, 7, 10 ... Đó là các số dư 1 khi chia cho 3. Vì vậy có thể xử lý như sau:
  

  Mã:

  Dim rs As DAO.Recordset
   Dim strSQL As String
   Dim rndTime As Date
   Dim ThuTuRecord as Interger
   ThuTuRecord = 1
   
   strSQL = "SELECT CheckInOut.* FROM CheckInOut " & _
            "WHERE CheckInOut.TimeDate BETWEEN " & Format(Me.txtTuNgay, conJetDate) & " AND " & Format(Me.txtDenNgay, conJetDate) & " AND timevalue(CheckInOut.[TimeStr])>= #" & Me.txtTimeFilter & "#"
   Set db = CurrentDb
   Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
   rs.MoveFirst
   Do Until rs.EOF
   if ThuTuRecord mod 3 = 1 then
       rs.Edit
       rndTime = (Me.txtEndTime - Me.txtStartTime) * Rnd() + Me.txtStartTime
       rs!TimeStr = rs!TimeDate + rndTime
       rs.Update
       rs.MoveNext
       ThuTuRecord = ThuTuRecord + 1
   else
       rs.MoveNext
   ThuTuRecord = ThuTuRecord + 1
   End if
           Loop
rs.Close
   Set rs = Nothing
End Sub

• RE: MoveNext báo lỗi 3021

  huanmonster > 04-07-17, 03:54 PM

  (04-07-17, 01:58 PM)tranthanhan1962 Đã viết: Do vị trí record bạn sửa 1 rec, bỏ qua 2 rec, Ta có các thứ tự record được sửa là 1, 4, 7, 10 ... Đó là các số dư 1 khi chia cho 3. Vì vậy có thể xử lý như sau:
  

  Mã:

  Dim rs As DAO.Recordset
   Dim strSQL As String
   Dim rndTime As Date
   Dim ThuTuRecord as Integer
   ThuTuRecord = 1
   
   strSQL = "SELECT CheckInOut.* FROM CheckInOut " & _
            "WHERE CheckInOut.TimeDate BETWEEN " & Format(Me.txtTuNgay, conJetDate) & " AND " & Format(Me.txtDenNgay, conJetDate) & " AND timevalue(CheckInOut.[TimeStr])>= #" & Me.txtTimeFilter & "#"
   Set db = CurrentDb
   Set rs = db.OpenRecordset(strSQL, dbOpenDynaset)
   rs.MoveFirst
   Do Until rs.EOF
   if ThuTuRecord mod 3 = 1 then
       rs.Edit
       rndTime = (Me.txtEndTime - Me.txtStartTime) * Rnd() + Me.txtStartTime
       rs!TimeStr = rs!TimeDate + rndTime
       rs.Update
       rs.MoveNext
       ThuTuRecord = ThuTuRecord + 1
   else
       rs.MoveNext
   ThuTuRecord = ThuTuRecord + 1
   End if
           Loop
rs.Close
   Set rs = Nothing
End Sub

  
  Đã giải quyết được vấn đề, Cảm ơn bạn

• RE: MoveNext báo lỗi 3021

  ongke0711 > 05-07-17, 10:23 AM

  Sorry là mình cũng hơi thắc mắc tại sao bạn lại phải 'bùa' cái bảng giờ chấm công nhân viên vậy? Thông thường thì muốn cập nhật, hiệu chỉnh giờ công bị sai, quên bấm v.v.. thì nhân viên HR cũng phải nhập thủ công từng người, từng ngày chứ không cập nhật hàng loạt như bạn.

• RE: MoveNext báo lỗi 3021

  huanmonster > 05-07-17, 10:43 AM

  (05-07-17, 10:23 AM)ongke0711 Đã viết: Sorry là mình cũng hơi thắc mắc tại sao bạn lại phải 'bùa' cái bảng giờ chấm công nhân viên vậy? Thông thường thì muốn cập nhật, hiệu chỉnh giờ công bị sai, quên bấm v.v.. thì nhân viên HR cũng phải nhập thủ công từng người, từng ngày chứ không cập nhật hàng loạt như bạn.

  
  Thực ra đây là mình phải làm giả để đảm bảo các thông số tăng ca không được quá quy định, và các yêu cầu cụ thể khác rồi lưu thành bảng công " đối phó", khách hàng nó hay về kiểm tra chế độ làm việc của người lao động. Việc này mình được gia nhiệm vụ hẳn hoi chứ không phải bùa gì hết. Tại số lượng CN nhiều quá, làm tay chắc chết quá.
  
  Code bạn giúp chạy OK, nhưng tôi đang vướng phải vấn đề chỉ sửa các ngày chẵn hoặc ngày lẽ mà chưa gỡ ra được, đang post lên nhờ giúp đó.
  
  Cảm ơn bạn đã quan tâm.

• RE: MoveNext báo lỗi 3021

  tranthanhan1962 > 05-07-17, 12:44 PM

  Báo cáo láo thì từ trên xuống dưới, ngầm định là cho phép. Ai không làm thì thua lỗ ráng chịu. Nhưng mà vì ngầm định chứ không xác định nên bị phát hiện ráng mà giải trình làm sao cho hợp lý. không hợp lý thì chết ráng chịu 

• RE: MoveNext báo lỗi 3021

  DooHoaangPhuuc > 05-07-17, 12:58 PM

  Nếu là Chủ doanh nghiệp thì không nên làm, vì chẳng đáng , dễ vào tù
  Nếu làm công thì càng không nên làm, vì đồng lương chẳng đáng, dễ vào tù.

• RE: MoveNext báo lỗi 3021

  huanmonster > 05-07-17, 01:22 PM

  (05-07-17, 12:58 PM)DooHoaangPhuuc Đã viết: Nếu là Chủ doanh nghiệp thì không nên làm, vì chẳng đáng , dễ vào tù
  Nếu làm công thì càng không nên làm, vì đồng lương chẳng đáng, dễ vào tù.

  
  Hihi, ở đây mình cùng thảo luận để giải quyết vấn đề đoạn code mà, hihi.
  
  Cảm ơn các bạn đã quan tâm.
• Bài trước Bài tiếp