Tùy chọn
Nối dữ liệu
- Nối dữ liệu
-
RE: Nối dữ liệu
mrtoanbin > 22-05-17, 06:23 PM
(20-05-17, 07:07 PM)tranthanhan1962 Đã viết: https://www.mediafire.com/?s36db9au2xwkpo7
Kết quả chưa phải ý tưởng của mình bạn ơi, mình xin gửi bài tập và diễn giải lại, CẢM ƠN!
Diễn giải yêu cầu: https://www.mediafire.com/?56itccpmnzcyj06
File db: https://www.mediafire.com/?77jc03dt5em72bh -
RE: Nối dữ liệu
tranthanhan1962 > 23-05-17, 07:33 AM
Thứ nhất: Mình không hiểu bạn cần làm gì mà bắt buột phải xử lý việc hiển thị bằng query theo kiểu của bạn. (Trong access kết quả giá trị hiển thị của một datasheet là đúng mục đích cho dù controlsource là gì không quan trọng)
Thứ hai: bạn đòi hỏi chọn nhiều field trong khi chỉ có một combobox là điều không thể. -
RE: Nối dữ liệu
mrtoanbin > 23-05-17, 07:49 AM
(23-05-17, 07:33 AM)tranthanhan1962 Đã viết: Thứ nhất: Mình không hiểu bạn cần làm gì mà bắt buột phải xử lý việc hiển thị bằng query theo kiểu của bạn. (Trong access kết quả giá trị hiển thị của một datasheet là đúng mục đích cho dù controlsource là gì không quan trọng)
Thứ hai: bạn đòi hỏi chọn nhiều field trong khi chỉ có một combobox là điều không thể.
Mục đích là sau khi lọc được, nhu cầu chỉ xuất một số field thôi, có thể dùng listbox k đúng nhưng ý mình jống như thả field trong query vậy nhưng mà có điều kiện -
RE: Nối dữ liệu
cpucloi > 23-05-17, 09:07 AM
Ý tưởng (vì mình chưa cần sử dụng đến nên chưa nghiên cứu):
- Kết hợp cách lựa chọn các filed (thông qua form) để cung cấp cho report theo bài Báo cáo hàng ngang (Report có nhiều cột) để tạo report động tốt hơn cho người dùng.
P/s: Pác nào rỗi rãi nghiên cứu làm các demo nhé
-
RE: Nối dữ liệu
tranthanhan1962 > 23-05-17, 09:20 AM
(23-05-17, 07:49 AM)mrtoanbin Đã viết: Mục đích là sau khi lọc được, nhu cầu chỉ xuất một số field thôi, có thể dùng listbox k đúng nhưng ý mình jống như thả field trong query vậy nhưng mà có điều kiện
Xuất qua cái gì? form, report. Xuất bao nhiêu field. Xuất để in báo cáo hay copy sang excel. Bạn phải có mục đích rõ ràng thì mới có thể giúp bạn. Còn ý tưởng của bạn không cụ thể. Chính bạn cũng không thể diển tả được thì chỉ làm mất thời gian mà chẳng có hiệu quả gì đâu -
RE: Nối dữ liệu
ongke0711 > 23-05-17, 03:56 PM
Bạn diễn tả không cụ thể ý tưởng thiết kế nên làm bác tranhthanhan1962 cũng không biết đường đâu mà hướng dẫn.
Tôi demo cho bạn một kiểu này có thể gần đúng với ý tưởng của bạn tức là: tùy chọn Field nào cần hiển thị hoặc ẩn đi trong Subform. Dùng thuộc tính ColumnHide.
Link file demo: http://www.mediafire.com/file/d4scuyd39d...89a%29.mdb
Code của nó:
Mã PHP:Option Explicit
Public Function ShowHideField(ByVal strFieldName As String, frm As Form)
Dim ctl As Control
Set ctl = frm(strFieldName)
ctl.ColumnHidden = (Not ctl.ColumnHidden)
End Function
Private Sub lstChonField_Click()
ShowHideField Me.lstChonField.Column(0, Me.lstChonField.ItemsSelected(0)), Me.sfmTHONG_TIN.Form
End Sub -
RE: Nối dữ liệu
mrtoanbin > 25-05-17, 11:42 AM
(23-05-17, 03:56 PM)ongke0711 Đã viết: Bạn diễn tả không cụ thể ý tưởng thiết kế nên làm bác tranhthanhan1962 cũng không biết đường đâu mà hướng dẫn.
Mình gửi File db lại, trong đó có nêu yêu cầu của mình (tại Form f_yeucau), nhờ code dùm nha, cảm ơn lần nữa!https://www.mediafire.com/?77jc03dt5em72bh
Tôi demo cho bạn một kiểu này có thể gần đúng với ý tưởng của bạn tức là: tùy chọn Field nào cần hiển thị hoặc ẩn đi trong Subform. Dùng thuộc tính ColumnHide.
Link file demo: http://www.mediafire.com/file/d4scuyd39d...89a%29.mdb
Code của nó:
Mã PHP:Option Explicit
Public Function ShowHideField(ByVal strFieldName As String, frm As Form)
Dim ctl As Control
Set ctl = frm(strFieldName)
ctl.ColumnHidden = (Not ctl.ColumnHidden)
End Function
Private Sub lstChonField_Click()
ShowHideField Me.lstChonField.Column(0, Me.lstChonField.ItemsSelected(0)), Me.sfmTHONG_TIN.Form
End Sub -
RE: Nối dữ liệu
mrtoanbin > 25-05-17, 05:37 PM
(23-05-17, 09:20 AM)tranthanhan1962 Đã viết:
(23-05-17, 07:49 AM)mrtoanbin Đã viết: Mục đích là sau khi lọc được, nhu cầu chỉ xuất một số field thôi, có thể dùng listbox k đúng nhưng ý mình jống như thả field trong query vậy nhưng mà có điều kiện
Xuất qua cái gì? form, report. Xuất bao nhiêu field. Xuất để in báo cáo hay copy sang excel. Bạn phải có mục đích rõ ràng thì mới có thể giúp bạn. Còn ý tưởng của bạn không cụ thể. Chính bạn cũng không thể diển tả được thì chỉ làm mất thời gian mà chẳng có hiệu quả gì đâu
Xin gửi lại nội dung tại form f_yeucau, nhờ giúp đỡ lần nữa, cảm ơn!
http://www.mediafire.com/file/77jc03dt5e...NFIELD.mdb -
RE: Nối dữ liệu
ongke0711 > 26-05-17, 01:06 AM
Bài tập này của bạn thuộc Access nâng cao chứ không phải bài tập thường.
Bạn muốn làm theo cái hướng này thì sau này còn một lô một lốc các form, report cũng phải tùy biến theo Field và nó cũng đòi hỏi code không đơn giản.
Tôi chỉ demo cho bạn đến bước tạo cái Query như bạn mong muốn.
Link file: http://www.mediafire.com/file/e9590nmskr...8v2%29.mdb
- 3 cái hàm quan trọng phục vụ cho form này của bạn. Từ từ ngâm cứu nhé.
Mã PHP:Public Function SelectList(ListBoxNguon As ListBox, ListBoxDich As ListBox)
If ListBoxNguon.ListIndex > -1 Then
'Them Item vao listbox Dich
strValue = ""
With ListBoxNguon
For Each varItem In .ItemsSelected
strValue = strValue & .ItemData(varItem) & "," 'Phuc vu cho viec Remove item cua listbox ben duoi
ListBoxDich.AddItem .ItemData(varItem)
Next varItem
'Xoa Item trong listbox Nguon
strValue = Left(strValue, Len(strValue) - 1)
arValue = Split(strValue, ",")
For i = 0 To UBound(arValue) Step 1
.RemoveItem arValue(i)
Next i
'Debug.Print strValue
End With
Me.lstNguon.Requery
Me.lstDich.Requery
End If
End Function
Private Function SelectListAll(ListBoxNguon As ListBox, ListBoxDich As ListBox)
For i = ListBoxNguon.ListCount - 1 To 0 Step -1
ListBoxDich.AddItem ListBoxNguon.ItemData(i)
ListBoxNguon.RemoveItem i
Next i
ListBoxNguon.Requery
ListBoxDich.Requery
End Function
- Hàm tạo Query:
Mã PHP:Sub UpdateQuery(QueryName, SQL)
If IsNull(DLookup("Name", "MsysObjects", "Name='" & QueryName & "'")) Then
'Neu chua co Quey này thì tao cái moi
CurrentDb.CreateQueryDef QueryName, SQL
Else
'Neu có roi thi thay doi cau lenh SQL
CurrentDb.QueryDefs(QueryName).SQL = SQL
End If
End Sub