Trả về 1 bảng dữ liệu vào SubForm Access (2 người xem)

[An.BA]

Dim cn As Object
    Dim rst As Object
    Dim strConnection As String
    Dim strSql As String
    
    Set cn = CreateObject("ADODB.Connection")
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & "\\172.16.25.5\ACC\" & "test_connect.mdb"
    strSql = "SELECT * FROM tbUser"
    cn.Open strConnection
    Set rst = cn.Execute(strSql)
      
    If rst.BOF And rst.EOF Then
    MsgBox "No data found"
    Exit Sub
    Else
        subForm.SourceObject=??????
    End If
    
    rst.Close
    Set rst = Nothing
    cn.Close
    Set cn = Nothing

Em có kiểu truy vấn và kết nối như vậy. Làm thế nào để khi e truy vấn trả về 1 bảng giá trị và đổ vào Subform trong access ạ, chứ k phải dùng vòng lặp để add từng dòng ra ạ

 

[Hai Lúa Miền Tây]

Dim cn As Object
    Dim rst As Object
    Dim strConnection As String
    Dim strSql As String
  
    Set cn = CreateObject("ADODB.Connection")
    strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & "\\172.16.25.5\ACC\" & "test_connect.mdb"
    strSql = "SELECT * FROM tbUser"
    cn.Open strConnection
    Set rst = cn.Execute(strSql)
    
    If rst.BOF And rst.EOF Then
    MsgBox "No data found"
    Exit Sub
    Else
       subForm.SourceObject=??????
    End If
  
    rst.Close
    Set rst = Nothing
    cn.Close
    Set cn = Nothing

Em có kiểu truy vấn và kết nối như vậy. Làm thế nào để khi e truy vấn trả về 1 bảng giá trị và đổ vào Subform trong access ạ, chứ k phải dùng vòng lặp để add từng dòng ra ạ

Thử

Set  subForm.Recordset = rst

 

[An.BA]

Thử

Set  subForm.Recordset = rst

The expression you entered refers an object that is closed or doesn't exist.
Nó báo lỗi như này bác ạ, phải xử lý thế nào ạ?

 

[Hai Lúa Miền Tây]

The expression you entered refers an object that is closed or doesn't exist.
Nó báo lỗi như này bác ạ, phải xử lý thế nào ạ?

Bạn vào link sau tham khảo nhé: https://docs.microsoft.com/en-us/of...-data-objects/bind-a-form-to-an-ado-recordset