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

Lỗi variable not define

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Lỗi variable not define
• Lỗi variable not define

• Lỗi variable not define

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

  Chào các bạn, mình có code chỉnh sửa giờ theo ngày  lẽ như bên dưới, nhưng khi chạy báo lỗi varible not define, cả nhà giúp mình với.
  
  

  Mã:

  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 & "#" And Day(CheckInOut.timedate) Mod 2 = 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

  
  Data.
  
  

• RE: Lỗi variable not define

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

  Kiểm tra xem có biến nào đó mà bạn chưa Dim. Để rảnh mình kiểm tra dùm cho

• RE: Lỗi variable not define

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

  (05-07-17, 12:47 PM)tranthanhan1962 Đã viết: Kiểm tra xem có biến nào đó mà bạn chưa Dim. Để rảnh mình kiểm tra dùm cho

  
  Debug nó kẹt ngang đoạn And Day(CheckInOut.timedate) Mod 2 = 1
  
  Mình mới tiếp cận VBA nên còn gà lắm, mong các bạn chỉ dẫn.

• RE: Lỗi variable not define

  ongke0711 > 05-07-17, 01:32 PM

  sai chỗ này: & "#" And Day(CheckInOut.timedate) Mod 2 = 1
  
  Sửa lại => & "# And Day(CheckInOut.timedate) Mod 2 = 1"

• RE: Lỗi variable not define

  huanmonster > 05-07-17, 02:14 PM

  (05-07-17, 01:32 PM)ongke0711 Đã viết: sai chỗ này: & "#" And Day(CheckInOut.timedate) Mod 2 = 1
  
  Sửa lại => & "# And Day(CheckInOut.timedate) Mod 2 = 1"

  
  Tuyệt vời  Ongke0711. Thanks bạn
• Bài trước Bài tiếp