mrtit1987 > 11-03-21, 10:52 AM
ongke0711 > 11-03-21, 12:23 PM
mrtit1987 > 11-03-21, 02:01 PM
ongke0711 > 11-03-21, 03:12 PM
(11-03-21, 02:01 PM)mrtit1987 Đã viết: Trước hết em xin cảm ơn bác ongke0711. Nói thực với hầu hết thì đúng như bác nói ở trên. Nhưng có một số khác còn lại có yêu cầu khác biệt. Và e là một trong số đó. Dữ liệu e cần form hiển thị nó lại muốn được như vậy. Bác có cách gì liên quan đến code chỉ dạy e một chút được không ạ. E có tìm hiểu 1 thời gian vẫn chưa tìm được cách nào khả thi ạ
Private Sub Form_Load()
Dim rs As DAO.Recordset
Dim rs1SQL As String, rs2SQL As String
Dim midRow As Long, totalRecord As Long
Set rs = CurrentDb.OpenRecordset("Table1")
If rs.EOF And rs.BOF Then Exit Sub
totalRecord = rs.RecordCount
rs.Move totalRecord / 2
midRow = rs!ID
rs1SQL = "SELECT * FROM Table1 WHERE ID < " & midRow
rs2SQL = "SELECT * FROM Table1 WHERE ID >= " & midRow
Me.sfm1.Form.RecordSource = rs1SQL
Me.sfm2.Form.RecordSource = rs2SQL
Me.sfm1.Requery
Me.sfm2.Requery
End Sub
mrtit1987 > 11-03-21, 03:21 PM
ongke0711 > 11-03-21, 03:31 PM
tranthanhan1962 > 11-03-21, 07:49 PM
(11-03-21, 03:21 PM)mrtit1987 Đã viết: Em xin cảm ơn bác ongke0711 lần nữa ạ. Theo như bác vậy cách của em không khả thi rồi ạ. Vì số lượng record của e sẽ biến động. Và không phải là 2 subForm là tối đa. Nó có thể là 3,4,5.... Qua cách của bác e thấy điều này là khá phức tạp. E sẽ nghiên cứu qua các khác vậy.
ttm20062008 > 16-03-21, 10:49 AM
ongke0711 > 16-03-21, 11:33 AM
ttm20062008 > 16-03-21, 12:16 PM
(16-03-21, 11:33 AM)ongke0711 Đã viết:(16-03-21, 10:49 AM)ttm20062008 Đã viết: Gởi Bác file này xem đúng yêu cầu của Bác chưa, cách làm thì chuối lắm
Ý tưởng làm thì đúng rồi đó nhưng cách làm có vấn đề.
Nếu số lượng record sau khi nhập liệu thay đổi tăng thêm 100 dòng thì bạn xử lý cách nào?