Tùy chọn
Lọc Form theo ngày tháng
- Lọc Form theo ngày tháng
-
Lọc Form theo ngày tháng
Godspear > 04-01-17, 09:41 AM
Link File : https://drive.google.com/file/d/0Byhaxbq...sp=sharing
vấn đề là mình đã tạo được 1 Form để search theo ngày tháng, có thể xem trong file
nhưng mà vì database của mình có rất nhiều field ngày tháng cần dung để có thể Search dc, trong file của mình hiện giờ thì mình chỉ làm được theo 1 field - Site_Activation_Date .
Bây giờ có cách nào để tạo 1 combo box hoặc List box có chứa các field Date cần dung để Search theo ngày tháng được ko ta? giống như hình ở dưới
và khi mình chon 1 field trong combobox thì có thể search theo field đó thôi, trong file của mình hiện giờ thì mình chỉ làm được theo 1 field - Site_Activation_Date. Bây giờ là chưa biết cách tùy biến làm sao để được như vậy
đã thử tìm kiếm trên Google, youtube và các forum khác mà chưa thấy ai làm như vậy cả nên đăng bài nhờ các cao nhân chỉ giáo giúp. thank you mọi người
p/s: đặc biệt gửi lời cảm ơn đến bác ongke0711, đọc bài rất kỹ và hướng dẫn rất chi tiết và nhiệt tình trong các bài đăng trc
-
RE: Lọc Form theo ngày tháng
ongke0711 > 04-01-17, 11:48 AM
Cái này đơn giản mà bạn.
Đưa cái Value của combobox vô string là được rồi.
- Cái combobox lọc theo Field phải lấy tên field làm index để tìm chứ không phải số ID. Comboxbox chỉ lấy cột [DateType] thôi, bỏ DateTypeID là Record Source.
- Tìm kiếm giữa 2 ngày thì dùng BETWEEN ... AND ... sẽ cho tốc độ nhanh hơn >=,<=
- Chú ý các tham số dạng ngày nên chuyển về dạng "mm/dd/yyyy" để đúng với code của VBA nếu không dễ bị sai kết quả. Dùng hàm Format().
Mã PHP:Sub Search()
Const conJetDate = "\#mm\/dd\/yyyy\#"
Dim strCriteria, task As String
If IsNull(Me.TxTDateFrom) Or IsNull(Me.txtDateTo) Then
MsgBox "Please enter the date range", vbInformation, "Date Range Required"
Me.TxTDateFrom.SetFocus
Else
strCriteria = Me.cboLocDate.Value & " BETWEEN " & Format(Me.TxTDateFrom, conJetDate) & " AND " & Format(Me.txtDateTo, conJetDate)
task = "SELECT * FROM tbl_ListofClinicalTrials1 WHERE (" & strCriteria & ") ORDER BY " & Me.cboLocDate.Value
DoCmd.ApplyFilter task
End If
End Sub -
RE: Lọc Form theo ngày tháng
Godspear > 04-01-17, 12:13 PM
(04-01-17, 11:48 AM)ongke0711 Đã viết: Cái này đơn giản mà bạn.
Đưa cái Value của combobox vô string là được rồi.
- Cái combobox lọc theo Field phải lấy tên field làm index để tìm chứ không phải số ID. Comboxbox chỉ lấy cột [DateType] thôi, bỏ DateTypeID là Record Source.
- Tìm kiếm giữa 2 ngày thì dùng BETWEEN ... AND ... sẽ cho tốc độ nhanh hơn >=,<=
- Chú ý các tham số dạng ngày nên chuyển về dạng "mm/dd/yyyy" để đúng với code của VBA nếu không dễ bị sai kết quả. Dùng hàm Format().
Mã PHP:Sub Search()
Const conJetDate = "\#mm\/dd\/yyyy\#"
Dim strCriteria, task As String
If IsNull(Me.TxTDateFrom) Or IsNull(Me.txtDateTo) Then
MsgBox "Please enter the date range", vbInformation, "Date Range Required"
Me.TxTDateFrom.SetFocus
Else
strCriteria = Me.cboLocDate.Value & " BETWEEN " & Format(Me.TxTDateFrom, conJetDate) & " AND " & Format(Me.txtDateTo, conJetDate)
task = "SELECT * FROM tbl_ListofClinicalTrials1 WHERE (" & strCriteria & ") ORDER BY " & Me.cboLocDate.Value
DoCmd.ApplyFilter task
End If
End Sub
ý bạn ơi, sao mình làm theo cách của bạn mà khi search thử thì lại ko ra dc kết quả nào cả, có phải là bị lỗi ở đoạn "Đưa cái Value của combobox vô string", mình ko hiểu đoạn này lắm
thank bạn nha -
RE: Lọc Form theo ngày tháng
Godspear > 05-01-17, 06:03 AM
huhu bạn ongke0711 ơi, bạn giúp rồi thì giúp cho chót dc ko bạn ơi, mình thử làm theo cách của bạn mà khi search thử thì nó ko ra dc kết quả nào cả, tất cả đều ra là 0
link file: https://drive.google.com/file/d/0Byhaxbq...sp=sharing
trong file này đã thử áp dung mã code của bạn -
RE: Lọc Form theo ngày tháng
ongke0711 > 05-01-17, 11:21 AM
(04-01-17, 12:13 PM)Godspear Đã viết: [quote='ongke0711' pid='33950' dateline='1483501717']
...
Đưa cái Value của combobox vô string là được rồi.
- Cái combobox lọc theo Field phải lấy tên field làm index để tìm chứ không phải số ID. Comboxbox chỉ lấy cột [DateType] thôi, bỏ DateTypeID làm Row Source.
...
Bạn đọc không kỹ bài tôi post.
Để đưa tên Field vô câu lệnh SQL (ví dụ: [FeasStartDate] BETWEEN #..# AND #...#) thì trị trả về từ combobox phải là tên Field. Theo file của bạn Row Source của combobox vẫn là 2 cột: DateTypeID, DateType-> trị trả về của combobox là [DateTypeID] là các số 1, 2, 3 chứ có phải tên Field đâu mà khi đưa vô câu lênh SQL nó hiểu? Nó sẽ ra như thế này: [1] BETWEEN #..# AND #...# -
RE: Lọc Form theo ngày tháng
Godspear > 05-01-17, 11:50 AM
(05-01-17, 11:21 AM)ongke0711 Đã viết:
(04-01-17, 12:13 PM)Godspear Đã viết: [quote='ongke0711' pid='33950' dateline='1483501717']
...
Đưa cái Value của combobox vô string là được rồi.
- Cái combobox lọc theo Field phải lấy tên field làm index để tìm chứ không phải số ID. Comboxbox chỉ lấy cột [DateType] thôi, bỏ DateTypeID làm Row Source.
...
Bạn đọc không kỹ bài tôi post.
Để đưa tên Field vô câu lệnh SQL (ví dụ: [FeasStartDate] BETWEEN #..# AND #...#) thì trị trả về từ combobox phải là tên Field. Theo file của bạn Row Source của combobox vẫn là 2 cột: DateTypeID, DateType-> trị trả về của combobox là [DateTypeID] là các số 1, 2, 3 chứ có phải tên Field đâu mà khi đưa vô câu lênh SQL nó hiểu? Nó sẽ ra như thế này: [1] BETWEEN #..# AND #...#
ah mình hiểu r, mình làm được rồi bạn ah. thank bạn nhiều
tiện mình hỏi luôn là cần viết code như thế nào để có thể tùy biến cái nút COMMAND - sent to file ( cái mà để xuất ra file khác ấy) để có thể lựa chon table mình cần trước rồi mới xuất ra các file Excel hoặc PDF vậy bạn ơi
mình đã biết cách tạo nút để xuất 1 table cố định ra excel/pdf/word nhưng ko biết làm cách nào để có thể lựa chon table hoặc report mình cần trc khi xuất ra excel/pdf/word -
RE: Lọc Form theo ngày tháng
ongke0711 > 05-01-17, 12:14 PM
Bạn làm tương tự như với cách làm lấy tên Field đưa vô câu lệnh SQL.
Tên table cần xuất sẽ là một biến. Biến này thay đổi theo combobox chọn tên Table
VD: đối với câu lệnh xuất Table ra excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "biến Tên Table", outputFileName , True
Bạn thay "biến Tên Table" bằng giá trị trả về của combobox (hay listbox) lấy tên Table.
biến Tên Table = Me.cboTenTable.Value -
RE: Lọc Form theo ngày tháng
Godspear > 06-01-17, 06:39 AM
(05-01-17, 12:14 PM)ongke0711 Đã viết: Bạn làm tương tự như với cách làm lấy tên Field đưa vô câu lệnh SQL.
Tên table cần xuất sẽ là một biến. Biến này thay đổi theo combobox chọn tên Table
VD: đối với câu lệnh xuất Table ra excel
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "biến Tên Table", outputFileName , True
Bạn thay "biến Tên Table" bằng giá trị trả về của combobox (hay listbox) lấy tên Table.
biến Tên Table = Me.cboTenTable.Value
mình đã thử làm theo bạn, combo box để đúng 1 field trong row source là table name, nhưng khi tạo sử dung thử thì nó ghi lỗi là
Run-time error '2522'
The action or method requires a File Name Argument -
RE: Lọc Form theo ngày tháng
ongke0711 > 06-01-17, 09:59 AM
Câu lệnh của tôi chỉ là ví dụ cách làm, còn câu lệnh xuất file của bạn như thế nào? nó báo bạn không thiết lập tên file khi xuất ra.
