Tùy chọn

Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

Trang chủ
Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form
Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

quanghoasla > 31-10-14, 01:27 PM

Hii em chào các anh/ chị. Hôm nay em lọc dữ liệu trong table. Hiện tại em đang mắc phải 1 trở ngại như sau:
ví dụ: database:
trong table khachhang có 1 trường tên là email. sau khi nhập 3 khách hàng có 3 email. e muốn gộp 3 email vào 1 textbox trên form hoặc xuất vào 1 cell của table.
Hiện tại em làm mấy cách rồi nhưng ko được. Có anh chị nào biết cách sử lý tình huống này? Xin các anh chị bầy cách cho em vơi. xin cảm ơn các anh/ chị đã đọc bài viết này.
RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

hieuvn > 31-10-14, 03:37 PM

bạn phải nói rõ gộp theo tiêu chí nào chứ, giả sử có 1000 records thì gộp như thế nào?
RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

quanghoasla > 31-10-14, 04:02 PM

hiiiii có nghĩa là cái trường [email] nó chứa nhiều email trong một cột. tiêu chí là làm sao gộp tất cả các email trong 1 cột đó vào 1 trường totallemail trong table email hoặc đưa giá trị đó vào 1 textbook trên form. đây là database của em. Nhờ các bác chỉ giúp.
RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

hieuvn > 31-10-14, 04:33 PM

nếu không nhầm ý đồ của bạn theo mình có 2 cách:

cách 1:
bạn làm 1 update query để update vào table email

cách 2: tạo 1 nút bấm trên form để update với code vba:

Private Sub Command0_Click()
DoCmd.SetWarnings False
strSQL = "INSERT INTO email ( idkhach, allemail ) " & vbCrLf & _
"SELECT idkhach, email " & vbCrLf & _
"FROM khachhang "
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

have fun
RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

quanghoasla > 31-10-14, 05:18 PM

(31-10-14, 04:33 PM)hieuvn Đã viết: nếu không nhầm ý đồ của bạn theo mình có 2 cách:

cách 1:
bạn làm 1 update query để update vào table email

cách 2: tạo 1 nút bấm trên form để update với code vba:

Private Sub Command0_Click()
DoCmd.SetWarnings False
strSQL = "INSERT INTO email ( idkhach, allemail ) " & vbCrLf & _
"SELECT idkhach, email " & vbCrLf & _
"FROM khachhang "
DoCmd.RunSQL strSQL
DoCmd.SetWarnings True
End Sub

have fun
Hi hi bác ko hiểu ý của em rồi. các của bác dạng như append queri. mục đích của em là: gộp tất cả các email có trong table KHACHHANG

id | tenkhach | email
001 Nguyễn Văn Thông thongnguyen@gmail.com
002 Hoàng Hiều hieumobifone@gmail.com
003 Quế Xuân Sang xuanque@yahoomail.com
004 Trần Đức Nghĩa ducnghia72@gmail.com

thực hiện làm sao cho kết quả ở trường [allemai]l: thongnguyen@gmail.com, hieumobifone@gmail.com, xuanque@yahoomail.com, ducnghia72@gmail.com

xin lại phiền các bác một phen nữa ạ
RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

hieuvn > 31-10-14, 06:50 PM

mình gợi ý bạn dùng Function ConcatRelated
chịu khó GG chút nhé

have fun
RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

quanghoasla > 31-10-14, 10:47 PM

okie cảm ơn anh/chị nhiều. hàm này chưa dùng bao giờ nên cũng khó đối với em. em đang ngâm cứu. nếu anh chị có thể giúp em học hỏi thêm nhiều nữa nhé. rất vui có lời gợi ý có giá trị . hi vọng có demo tham khảo cho anh em học tập sớm.
RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

hieuvn > 31-10-14, 11:05 PM

e hèm,iem tên là Hiếu, boy thẳng nhé!
lúc nào rỗi mình làm file demo gửi lên cho
RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

quanghoasla > 01-11-14, 12:46 AM

cám ơn Hiếu vn. Mình đã làm được rồi. cái này kết hợp hàm Function ConcatRelated với Conc cũng được. ở đây mình dùng hàm Conc dùng cho querys được. ở table khach thêm 1 cái idnhom cho toàn giá trị =1. sau đó tiền hành rất đơn giản là cấu trúc hàm rất đơn giản và dễ hiểu. Dưới đây là
function:
'---------- cái này khai vào modul nhé -----------------------------------------------------
Option Compare Database
Option Explicit

Public Function Conc(Fieldx, Identity, Value, Source) As Variant
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim SQL As String
Dim vFld As Variant

Set cnn = CurrentProject.Connection
Set rs = New ADODB.Recordset
vFld = Null

SQL = "SELECT [" & Fieldx & "] as Fld" & _
" FROM [" & Source & "]" & _
" WHERE [" & Identity & "]=" & Value

' open recordset.
rs.Open SQL, cnn, adOpenForwardOnly, adLockReadOnly

' concatenate the field.
Do While Not rs.EOF
If Not IsNull(rs!Fld) Then
vFld = vFld & ", " & rs!Fld
End If
rs.MoveNext
Loop
' remove leading comma and space.
vFld = Mid(vFld, 3)

Set cnn = Nothing
Set rs = Nothing

' return concatenated string.
Conc = vFld
End Function

ở queri khai như sau:
Expr1: Conc("email","idgroup",[idgroup],"khachhang")
và thực hiện group idgroup lại là được còn ở expr1" lấy giá trị express

Đây là demo cho các bạn
Bài trước Bài tiếp

Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

Trang chủ

Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form

RE: Gộp các cells trong cột thành 1 cell trong table hoặc 1 textbook trên form