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

Lỗi không mở được form

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Lỗi] Lỗi không mở được form
• Lỗi không mở được form

• Lỗi không mở được form

  cawboy > 27-08-17, 08:59 PM

  Private Sub Form_Open(Cancel As Integer)
      Dim m_rs As DAO.Recordset
      Dim mSql As String
      mSql = "select count as TotalInventory From InventoryCycle where Format(CreatedDate, 'dd/mm/yyyy')='" + Format(Forms("frmHome").txtCurrentDay, "dd/mm/yyyy") + "'"
      Set m_rs = CurrentDb.OpenRecordset(mSql)         ' Lỗi tại đây
      If m_rs!TotalInventory = 0 Then
             Tinhton Format(Forms("frmHome").txtCurrentDay, "dd/mm/yyyy")
      End If
      m_rs.Close
      AddNewEdit = False
  End Sub

• RE: Lỗi không mở được form

  ongke0711 > 27-08-17, 09:10 PM

  Bạn khai báo thư viện DAO 3.6 chưa?

• RE: Lỗi không mở được form

  cawboy > 27-08-17, 09:41 PM

  (27-08-17, 09:10 PM)ongke0711 Đã viết: Bạn khai báo thư viện DAO 3.6 chưa?

  
  Khai báo rồi Bác

• RE: Lỗi không mở được form

  ongke0711 > 27-08-17, 10:22 PM

  Vậy bạn phải mở cái frmHome truớc để lấy các thông số cho câu lệnh sql.

• RE: Lỗi không mở được form

  cawboy > 28-08-17, 02:47 PM

  (27-08-17, 10:22 PM)ongke0711 Đã viết: Vậy bạn phải mở cái frmHome truớc để lấy các thông số cho câu lệnh sql.

  
  
  https://uphinhnhanh.com/image/M53Xvx
  
  
  Mình vào frmHome ->  Xuất hàng thì báo lỗi này
  nhấn vào Debug thì có lỗi tại dòng lệnh này
  Set m_rs = CurrentDb.OpenRecordset(mSql)

• RE: Lỗi không mở được form

  ongke0711 > 28-08-17, 06:42 PM

  Thường cái lỗi này là do câu lệnh bạn sai ở mệnh đề WHERE bạn kiểm tra các tên trường có đúng không, các dấu nháy đơn nếu trường đó dạng text, dấu # nếu là ngày...
• Bài trước Bài tiếp