Xuân Thanh > 04-04-20, 05:51 PM
(04-04-20, 05:30 PM)dotrung Đã viết: Anh Bảo ơi, phần này dùng table thì đúng, nhưng qua dùng query lại không dùng được ạ
ở đây em dùng query : Qry_makho_phieunhap (quên Group) bị báo lỗi
vd: Me.Makho = ConcatRelated("MaKho", "Qry_makho_phieunhap", "SOCHUNGTU='" & txtSOCHUNGTU & "'")
dotrung > 04-04-20, 06:04 PM
dotrung Đã viết:
Xin hỏi anh NoName, em sử dụng hàm này trong table thì được, nhưng dùng trong Query thì nó báo lỗi, xin mọi người chỉ giúp, cảm ơn.
Đưa cái query đó lên đây
Xuân Thanh > 05-04-20, 11:25 AM
(04-04-20, 06:04 PM)dotrung Đã viết:Mã PHP:dotrung Đã viết:
Xin hỏi anh NoName, em sử dụng hàm này trong table thì được, nhưng dùng trong Query thì nó báo lỗi, xin mọi người chỉ giúp, cảm ơn.
Đưa cái query đó lên đây
Hic hic, lúc đầu em có hỏi là làm từ query, có gì nhờ anh Thanh giúp đỡ ạ.
(em thường hay append ra table tạm, nhưng mất thời gian quá anh)
SELECT tblPhieunhapkhochitiet.Makho
FROM tblPhieunhapkhochitiet
WHERE (((tblPhieunhapkhochitiet.SOCHUNGTU)=[So]));Public Function GopMa(qryName, strMa As String, Optional strSeparator = ", ") As Variant
Dim DB As DAO.Database, qryNew As DAO.QueryDef, rs As DAO.Recordset, KQ As String
Dim GiaTri As Boolean, lngLen As Long, rKQ As DAO.Recordset
KQ = ""
Set DB = CurrentDb
Set qryNew = DB.QueryDefs(qryName)
qryNew.Parameters("So") = strMa
Set rs = qryNew.OpenRecordset
GiaTri = rs.Fields(0).Type > 100
Do Until rs.EOF
If GiaTri Then
Set rKQ = rs.Fields(0).Value
Do Until rKQ.EOF
If Not IsNull(rKQ.Fields(0)) Then
KQ = KQ & rKQ.Fields(0) & strSeparator
End If
rKQ.MoveNext
Loop
Set rKQ = Nothing
ElseIf Not IsNull(rs.Fields(0)) Then
KQ = KQ & rs.Fields(0) & strSeparator
End If
rs.MoveNext
Loop
rs.Close
lngLen = Len(KQ) - Len(strSeparator)
If lngLen > 0 Then
GopMa = Left(KQ, lngLen)
End If
End Functiondotrung > 05-04-20, 12:02 PM
Xuân Thanh > 05-04-20, 12:26 PM