Tùy chọn
hướng dẫn làm query theo cbobox
- hướng dẫn làm query theo cbobox
-
hướng dẫn làm query theo cbobox
tieuho828 > 10-12-16, 10:12 PM
Chào các ban.
Mình có fr_Lọc sinh viên trong đó có textbox năm, cbobox Quý (Quý I, II, III, IV), cbobox Lọc dùng để lọc sinh viên có ngày nhập học theo textbox nam và cbobox Quý. Cho biết Quý I mình quy định là 26/11 năm trước đến 25/2 năm sau, Quý II 26/2 đến 25/5; Quý III 26/5 đến 25/8; Quý IV là 26/8 đến 25/11. Vậy mình phải làm query thế nào?
Mong giúp đỡ nhiệt tình -
RE: hướng dẫn làm query theo cbobox
tieuho828 > 03-01-17, 09:41 AM
mọi người giúp minh nhé -
RE: hướng dẫn làm query theo cbobox
ongke0711 > 03-01-17, 11:55 AM
Thay đổi vài thông số cho phù hợp nhé.
Mã PHP:Option Compare Database
Option Explicit
Const conJetDate = “\#mm\/dd\/yyyy\#"
Private Sub_cmdLoc_Click()
Dim dtNgayBD As Date, dtNgatKT As Date
Dim strWhere As String, strLoc As String
Select Case cboQuy.Value
Case 1 ‘Quy I
dtNgayBD = DateSerial (Me.txtNam-1, 11, 26)
dtNgayKT = DateSerial (Me.txtNam, 2, 25)
Case 2
dtNgayBD = DateSerial (Me.txtNam, 2, 26)
dtNgayKT = DateSerial (Me.txtNam, 5, 25)
Case 3
dtNgayBD = DateSerial (Me.txtNam, 5, 26)
dtNgayKT = DateSerial (Me.txtNam, 8, 25)
Case 4
dtNgayBD = DateSerial (Me.txtNam, 8, 26)
dtNgayKT = DateSerial (Me.txtNam, 11, 25)
End Select
strWhere = “[NgayNhapHoc] Between “ & Format (dtNgayBD, conJetDate) & “ AND “ & Format (dtNgayKT, conJetDate)
strLoc = “SELECT * FROM TableSinhVien WHERE “ & strWhere
Me.SubForm.Form.RecordSource = strLoc
Me.SubForm.Form.Requery
End Sub -
RE: hướng dẫn làm query theo cbobox
cpucloi > 03-01-17, 03:54 PM
Bạn ongke0711 đã trả lời rất nhiệt tình rồi đó.
Thông thường QI từ 01/01 đến 31/03; QII từ 01/04 đến 30/06
Nhưng của bạn lại khác:
QI từ 26/11 năm trước đến 25/02 năm sau
QII từ 26/02 đến 25/05 ....
Do đó, mình khuyến cáo bạn chỉ cần:
1. Tạo bảng có giá trị: Q1, tungay, denngay
2. Bảng nào đó có giá trị: tungay, denngay
Query sử dụng điều kiện: Between Tungay and Denngay
(Gán từ ngày đến ngày vào quý nào đó chắc bạn biết nhỉ)