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