-
RE: Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
quan_pc > 15-01-14, 01:28 AM
(15-01-14, 12:38 AM)Quochuy86 Đã viết: Chào bác Noname
Bạn gởi csdl lên mình xem bạn làm những gì.
Mình có ứng dụng hàm của bác nhưng có một số vấn đề sau,mình có
- 1 table: Lich_hop: ngay hop, DVKD, email
- 1 form, trên form có 1 text1 để nhập ngày họp, 1 text2 để lấy email của các DVKD
Vấn đề là nếu lọc lấy danh sách email theo 1 ngày cụ thể thì em có thể viết code theo hướng dẫn của bác
. Tuy nhiên nếu viết theo kiểu nhập ngày vào text1 rồi mới lọc lấy dữ liệu thì cứ bị báo: "too few parameters. Expected 1"
Mong bác giúp đỡ
hôm bữa mình có giải bài này cho bạn giờ mình giải theo code của anh noname (có phát triển lại đôi chút ở code lấy ngày)
Mình tạo 1 table có các trường là
tên, email, ngày. khi lấy ngày thì nó sẽ hiện ra emain - làm ví dụ dựa trên bài của bạn nhưng mình ko tạo hết các trường
![[Hình: _172_Capture.JPG]](http://haiquan.id1945.com/up/file/_172_Capture.JPG)
demo: http://haiquan.id1945.com/up/file/_124_vd.rar -
RE: Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
tracanhtam > 24-07-14, 09:20 PM
Bạn Noname cho tôi hỏi, nếu thay :' xoabo' bằng combobox trên forms Main thì câu lệnh
sql = "select soHD FROM HDIndex WHERE [Trangthai] = 'xoabo'"
phải sửa lại thế nào, xin cám ơn nhiều -
RE: Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
tracanhtam > 27-08-14, 03:44 PM
(05-12-10, 03:13 PM)Noname Đã viết: bài viết của Noname
Site: http://thuthuataccess.co.cc
vui lòng giữ tên tác giả và site nếu dùng lại bài viết này làm tư liệu cho mình và chia sẻ. Cám ơn
-------------------------------------------------------------------
Ứng dụng của hàm này vào việc liệt kê danh sách khách hàng, số hóa đơn mất - xóa bỏ, liệt kê các giá trị thỏa điều kiện nào đó trong 1 câu query thành 1 chuỗi.Dùng chuỗi này vào các báo cáo...
Sử dụng:Mã:Function columnToString(sql As String) As String
'author:Noname
'site:http://thuthuataccess.co.cc
Dim rs As Recordset
Dim S As String
Set rs = CurrentDb.OpenRecordset(sql)
rs.MoveFirst
While Not (rs.EOF)
S = S & "," & rs(0)
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
columnToString = Mid(S, 2)
End Function
VíMã:Private Sub Command0_Click()
Dim sql As String
sql = "select soHD FROM HDIndex WHERE [Trangthai] = 'xoabo'"
Me.txtChuoi = columnToString(sql)
Me.Repaint
End Sub
![[Hình: hoadonxoabo.jpg]](http://dl.dropbox.com/u/14777478/sharephoto/hoadonxoabo.jpg)
Ví dụ ta có table sau:
Yêu cầu ở đây là bạn liệt kê các số Hóa đơn bị xoabo.tableHDIndex (Click to View)
ta thấy có các giá trị sau:
000003
000004
000005
000013
000016
Vấn đề là ta liệt kê nó thành 1 chuỗi và ngăn nhau bằng dấu phẩy, để nó trở thành : 000003,000004,000005,000013,000016.
Hàm trên đáp ứng được điều đó bằng cách gọi:
Mã:Private Sub Command0_Click()
Dim sql As String
sql = "select soHD FROM HDIndex WHERE [Trangthai] = 'xoabo'"
Me.txtChuoi = columnToString(sql)
Me.Repaint
End Sub
Bạn cho hỏi, nếu làm ngược lại thì phải như thế nào -
RE: Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
Xuân Thanh > 28-08-14, 09:41 AM
'tracanhtam Đã viết:Bạn cho hỏi, nếu làm ngược lại thì phải như thế nào
http://www.thuthuataccess.com/forum/thread-6499.html
Tham khảo theo đường link trên -
RE: Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
thucgia > 15-02-15, 08:14 PM
(05-12-10, 03:13 PM)Noname Đã viết: bài viết của Noname
Site: http://thuthuataccess.co.cc
vui lòng giữ tên tác giả và site nếu dùng lại bài viết này làm tư liệu cho mình và chia sẻ. Cám ơn
-------------------------------------------------------------------
Ứng dụng của hàm này vào việc liệt kê danh sách khách hàng, số hóa đơn mất - xóa bỏ, liệt kê các giá trị thỏa điều kiện nào đó trong 1 câu query thành 1 chuỗi.Dùng chuỗi này vào các báo cáo...
Sử dụng:Mã:Function columnToString(sql As String) As String
'author:Noname
'site:http://thuthuataccess.co.cc
Dim rs As Recordset
Dim S As String
Set rs = CurrentDb.OpenRecordset(sql)
rs.MoveFirst
While Not (rs.EOF)
S = S & "," & rs(0)
rs.MoveNext
Wend
rs.Close
Set rs = Nothing
columnToString = Mid(S, 2)
End Function
VíMã:Private Sub Command0_Click()
Dim sql As String
sql = "select soHD FROM HDIndex WHERE [Trangthai] = 'xoabo'"
Me.txtChuoi = columnToString(sql)
Me.Repaint
End Sub
Ví dụ ta có table sau:
Yêu cầu ở đây là bạn liệt kê các số Hóa đơn bị xoabo.tableHDIndex (Click to View)
ta thấy có các giá trị sau:
000003
000004
000005
000013
000016
Vấn đề là ta liệt kê nó thành 1 chuỗi và ngăn nhau bằng dấu phẩy, để nó trở thành : 000003,000004,000005,000013,000016.
Hàm trên đáp ứng được điều đó bằng cách gọi:
Mã:Private Sub Command0_Click()
Dim sql As String
sql = "select soHD FROM HDIndex WHERE [Trangthai] = 'xoabo'"
Me.txtChuoi = columnToString(sql)
Me.Repaint
End Sub
hay quá bạn ạ, thk,
Hàm này nên đặt tên là Dsum_str có vẽ thích hợp nhỉ
Hàm này giống hàm ConcatRelated("","","") -
RE: Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
dotrung > 03-04-20, 08:12 AM
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. -
RE: Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
dotrung > 04-04-20, 10:04 AM
Dạ, em muốn gom các makho ở form chi tiết lên textbox makho ở form chính khi bấm lưu.
link : https://www.mediafire.com/file/9l7vxy5xl...accdb/file -
RE: Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
ongke0711 > 04-04-20, 01:49 PM
(04-04-20, 10:04 AM)dotrung Đã viết: Dạ, em muốn gom các makho ở form chi tiết lên textbox makho ở form chính khi bấm lưu.
link : https://www.mediafire.com/file/9l7vxy5xl...accdb/file
Dùng hàm có sẳn của Allen Brown đi: Concatrelated(). Bạn copy hàm này vào module.
Gọi: Me.Makho = ConcatRelated("MaKho", "tblPhieunhapkhochitiet", "SOCHUNGTU='" & Me.txtSOCHUNGTU & "'")
Mã PHP:Public Function ConcatRelated(strField As String, _
strTable As String, _
Optional strWhere As String, _
Optional strOrderBy As String, _
Optional strSeparator = ", ") As Variant
On Error GoTo Err_Handler
'Purpose: Generate a concatenated string of related records.
'Return: String variant, or Null if no matches.
'Arguments: strField = name of field to get results from and concatenate.
' strTable = name of a table or query.
' strWhere = WHERE clause to choose the right values.
' strOrderBy = ORDER BY clause, for sorting the values.
' strSeparator = characters to use between the concatenated values.
'Notes: 1. Use square brackets around field/table names with spaces or odd characters.
' 2. strField can be a Multi-valued field (A2007 and later), but strOrderBy cannot.
' 3. Nulls are omitted, zero-length strings (ZLSs) are returned as ZLSs.
' 4. Returning more than 255 characters to a recordset triggers this Access bug:
' http://allenbrowne.com/bug-16.html
Dim rs As DAO.Recordset 'Related records
Dim rsMV As DAO.Recordset 'Multi-valued field recordset
Dim strSql As String 'SQL statement
Dim strOut As String 'Output string to concatenate to.
Dim lngLen As Long 'Length of string.
Dim bIsMultiValue As Boolean 'Flag if strField is a multi-valued field.
'Initialize to Null
ConcatRelated = Null
'Build SQL string, and get the records.
strSql = "SELECT " & strField & " FROM " & strTable
If strWhere <> vbNullString Then
strSql = strSql & " WHERE " & strWhere
End If
If strOrderBy <> vbNullString Then
strSql = strSql & " ORDER BY " & strOrderBy
End If
Set rs = DBEngine(0)(0).OpenRecordset(strSql, dbOpenDynaset)
'Determine if the requested field is multi-valued (Type is above 100.)
bIsMultiValue = (rs(0).Type > 100)
'Loop through the matching records
Do While Not rs.EOF
If bIsMultiValue Then
'For multi-valued field, loop through the values
Set rsMV = rs(0).Value
Do While Not rsMV.EOF
If Not IsNull(rsMV(0)) Then
strOut = strOut & rsMV(0) & strSeparator
End If
rsMV.MoveNext
Loop
Set rsMV = Nothing
ElseIf Not IsNull(rs(0)) Then
strOut = strOut & rs(0) & strSeparator
End If
rs.MoveNext
Loop
rs.Close
'Return the string without the trailing separator.
lngLen = Len(strOut) - Len(strSeparator)
If lngLen > 0 Then
ConcatRelated = Left(strOut, lngLen)
End If
Exit_Handler:
'Clean up
Set rsMV = Nothing
Set rs = Nothing
Exit Function
Err_Handler:
MsgBox "Error " & Err.Number & ": " & Err.Description, vbExclamation, "ConcatRelated()"
Resume Exit_Handler
End Function -
RE: Hàm chuyển giá trị trong cột thành chuỗi cách nhau dấu phẩy
dotrung > 04-04-20, 05:30 PM
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 & "'")