G
Godspear
Guest
- 5/1/17
- 2
- 0
- 1
- 32
link File: https://drive.google.com/file/d/0Byhaxbqwwyj3UnZZTDZDQzVGZ1U/view?usp=sharing
hiện là mình dg muốn tạo 1 Form có thể tìm kiếm theo ngày tháng của 1 field ngày tháng do mình chon như hai hình dưới:
mình thử viết 1 đoạn code như dưới mà khi tìm kiếm thử thì bị lỗi ko tìm được kết quả nào cả, đều ra là 0, ko biết là bị sai ở đâu, nhờ các cao nhân chỉ giáo giùm cho
mã code mình xài cho nút Search:
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
tiện cug hỏi luôn các cao nhân là viết code như thế nào để có thể tùy biến cái nút COMMAND để có thể lựa chon table mình cần r xuất ra các file Excel hoặc PDF vậy mọi ngườ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 mình cần trc khi xuất ra excel/pdf/word
hiện là mình dg muốn tạo 1 Form có thể tìm kiếm theo ngày tháng của 1 field ngày tháng do mình chon như hai hình dưới:
mình thử viết 1 đoạn code như dưới mà khi tìm kiếm thử thì bị lỗi ko tìm được kết quả nào cả, đều ra là 0, ko biết là bị sai ở đâu, nhờ các cao nhân chỉ giáo giùm cho
mã code mình xài cho nút Search:
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
tiện cug hỏi luôn các cao nhân là viết code như thế nào để có thể tùy biến cái nút COMMAND để có thể lựa chon table mình cần r xuất ra các file Excel hoặc PDF vậy mọi ngườ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 mình cần trc khi xuất ra excel/pdf/word