[Help] Giúp em về lệnh Count trong Access

[LehuanPro]

Thử vào code mà vẫn ko ra được kết quả

Ý em là áp dụng query đó vào code vẫn không ra được kết quả như mong muốn

Vậy em phải nói làm sao để mọi người giúp. Vậy ra em vô lễ với mọi người rồi sao ???

[paulsteigel]

Nếu bạn muốn áp dụng vào lập trình VBA thì câu trả lời sẽ khác:
1. Bạn cần biết đoạn mã khởi tạo Query.
2. Bạn cần thiết kế thuật toán xử lý để kiểm tra xem Query đã tồn tại hay chưa, nếu tồn tại thì xóa.
Hãy xem ví dụ này:

'==================================
Sub CreateQueryCount()
    Dim SqlString As String
    Dim QryDef As QueryDef
    SqlString = "SELECT ""+ "" & Singers.Name & "": ("" & (" & _
        "SELECT Count(***91;Songs***93;.***91;SongName***93;) FROM Songs " & _
        "WHERE ***91;Songs***93;.***91;SongSinger***93;=***91;Singers***93;.***91;Singer***93;) & "") songs..."" AS SongCountResults " & _
        "FROM Singers;"
    
    ' Kiem tra xem Query can tao co ton tai hay khong?
    If IsQryExist("qryCount") Then CurrentDb.QueryDefs.Delete "qryCount"
    ' Khoi tao Query moi
    CurrentDb.CreateQueryDef "qryCount", SqlString
End Sub

Private Function IsQryExist(QryName As String) As Boolean
    On Error GoTo ErrHandler
    Dim Qry As QueryDef
    Set Qry = CurrentDb.QueryDefs(QryName)
    IsQryExist = True
ErrHandler:
    Set Qry = Nothing
End Function

'================================== 

Bạn cần tạo 1 module và chèn đoạn mã trên vô
Chúc thành công nhé

[LehuanPro]

Dạ em cảm ơn.
Nghe trừu tượng quá
Thôi em dùng html cũng được thôi chả chơi ASP với Access nữa
Khó quá

Cảm ơn mọi người đã giúp đỡ em

Mod có thể close topic được rồi ạ !