Tùy chọn
Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
- Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
-
Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
truongtrungviet > 28-06-17, 12:04 AM
Mình có một file Database trong đó chứa 2 Table: TblLOP và TblHOCSINH.
TblLop gồm: ID, CapDo, Ngaykgiang, NgayKthuc
TblHOCSINH: ID, HoTen,DiaChi
Yêu cầu: Tất cả học sinh ở Forms HOCSINH được tự động lên lớp khi NgayKthuc từ forms LOP = Ngày hệ thống.
VD: Now()=NgayKthuc thì tất cả học sinh của lớp được lên lớp.
Xin nhờ anh chị em và các bạn trợ giúp để giải được bài toán này. Xin chân thành cảm ơn.
file test: https://www.mediafire.com/?ic91vjv1fs15f6x -
RE: Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
maidinhdan > 28-06-17, 12:19 AM
(28-06-17, 12:04 AM)truongtrungviet Đã viết: Mình có một file Database trong đó chứa 2 Table: TblLOP và TblHOCSINH.
TblLop gồm: ID, CapDo, Ngaykgiang, NgayKthuc
TblHOCSINH: ID, HoTen,DiaChi
Yêu cầu: Tất cả học sinh ở Forms HOCSINH được tự động lên lớp khi NgayKthuc từ forms LOP = Ngày hệ thống.
VD: Now()=NgayKthuc thì tất cả học sinh của lớp được lên lớp.
Xin nhờ anh chị em và các bạn trợ giúp để giải được bài toán này. Xin chân thành cảm ơn.
file test: https://www.mediafire.com/?ic91vjv1fs15f6x
Bài toàn không có gì khó, nhưng anh phải bổ sung
1. thông tin về cách thức lên lớp như thế nào.
- Ví dụ: Đang ở lớp 1, khi NgayKthuc <=Now thì cho lên lớp 2 hay anh muốn cho nó lên lớp 10.
- tất cả đều lên lớp hay còn phải xét điều kiện từng người thì nói luôn 1 thể để tiện vết code
- Và đưa vào table hay dòng nào cũng nên nói rõ cụ thể.
2. Điều kiện đưa ra chính xác là NgayKthuc <=Now ( nhỏ hơn hoặc bằng Now) Lý do: để dự phòng trường hợp vào NgayKetThuc ta không mở phần mềm lên.
Thân mến! -
RE: Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
truongtrungviet > 28-06-17, 01:00 AM
Xin chân thành cảm ơn maidinhdan
Lưu ý: Mỗi lớp có ngày nhập học và ngày kết thúc khác nhau
Ví dụ: NgayKThuc: 10/10/2017.
Như vậy chỉ cần NgayKThuc > ngày 10/10/2017
Thì tất cả học sinh từ lớp ABC1-1 sẽ tự động lên lớp ABC2-1.
- Nếu maidinhdan có thể đưa nó trực tiếp vào Table thì tốt quá. -
RE: Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
maidinhdan > 28-06-17, 02:58 AM
(28-06-17, 01:00 AM)truongtrungviet Đã viết: Xin chân thành cảm ơn maidinhdan
Lưu ý: Mỗi lớp có ngày nhập học và ngày kết thúc khác nhau
Ví dụ: NgayKThuc: 10/10/2017.
Như vậy chỉ cần NgayKThuc > ngày 10/10/2017
Thì tất cả học sinh từ lớp ABC1-1 sẽ tự động lên lớp ABC2-1.
- Nếu maidinhdan có thể đưa nó trực tiếp vào Table thì tốt quá.
Lưu ý; Phải Xóa Relationship và tạo lại ở tblHocsinh, cột ID từ Autonumber thành kiểu Number.
Lý do:
1. Sai nguyên tắc tạo quan hệ
2. Sẽ gặp lỗi khi Add record khi tạo formkiểm Main/subform
3. Sẽ không dùng được hàm dưới đây,vì kiểu Autonumber sẽ không thể ra lệnh set lại cột ID của table Hocsinh.
4. formLop chưa tạo LinkChildFileds/LinkMasterFileds nên Load lên cũng sẽ không hiển thị số liệu chính xác.
*** Về phần code: Em đã nói là anh nên miêu tả đầy đủ về cách thức lên lớp mà anh chỉ đưa ra 1 ví dụ thì em chỉ viết cho anh theo kiểu 1 ví dụ:
tất cả học sinh từ lớp ABC1-1 sẽ tự động lên lớp ABC2-1.
Anh tạo 1 modules và copy hàm này vào
Sau đó, ở anh gọi đến hàm này nó sẽ tự động thực hiện.
Mã PHP:Public Function LenLop()
Dim rs As Recordset
Dim sqlLenlop As String
Dim Dieukien As Long
Set rs = CurrentDb.OpenRecordset("tblLop", dbOpenDynaset)
With rs
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF ' Tien hanh kiem tra NGAYKT trong tblLop
If rs.Fields("NGAYKT") <= Date Then ' Neu phat hien NGAYKT <= Date thi cho len lop 2
Dieukien = rs.Fields("ID")
sqlLenlop = "UPDATE TblHOCSINH SET ID = 2 WHERE ID=" & Dieukien
DoCmd.SetWarnings False
DoCmd.RunSQL (sqlLenlop)
DoCmd.SetWarnings True
End If
rs.MoveNext
Loop
End If
End With
rs.Close
Set rs = Nothing
End Function -
RE: Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
cpucloi > 28-06-17, 04:02 AM
Hjxx, gặp toàn cú đêm, giờ này không biết các pác đã ngủ chưa? Em chưa ngủ được mà ngoài trời mưa to vãi. -
RE: Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
ongke0711 > 28-06-17, 09:25 AM
Theo tôi thì CSDL của bác Việt bị lỏng và trước mắt là thiếu 1 table, tạm gọi là TblDSHocSinhLop.
Theo tôi hiểu thì:
- TblHOCSINH của anh chỉ lưu thông tin Học Sinh.
- TblLOP thì lưu thông tin các Lớp và ngày khai giảng. Bên cạnh đó anh phải bổ sung làm rõ về Lớp, các cấp độ của từng loại Lớp cho rõ hơn để tường minh hơn khi chạy hàm LenLop() của bạn Dân. Vì theo thiết kế hiện tại nếu cứ ngày hiện tại Date() > Ngày kết thúc thì tăng một lớp => vậy tăng đến giới hạn nào là kết thúc Lớp đó? Chẵn lẻ cứ tự động tăng lên cấp độ 4 mà cái Lớp Family & Friend chỉ có 3 cấp?
- TblDSHocSinhLop: sẽ lưu danh sách học sinh nào học Lớp nào. Table này sẽ có PK là 2 fields (HocSinhID + LopID). Có thể có thêm các trường khác để quản lý như: Đóng tiền chưa? đã đóng trước bao nhiêu v.v..
TblDSHocSinhLop:
HocSinhID LopID
———————————
HS001 F&F11
HS002 F&F21
…
- Khi chạy hàm LenLop() nó sẽ INSERT danh sách HS + Lớp mới vào Table TblDSHocSinhLop.
- Về cái hàm LenLop() tôi nghĩ thay vì Loop qua từng record thì mình chạy cái Action query:
db.Execute “Insert Into TblDSHocSinhLop(HocSinhID,LopID) Values (SELECT ... WHERE Date() > NgayKT…”). Cụ thể thì chưa làm
. Tránh dùng Loop vì nếu nhiều records sẽ ảnh hưởng tốc độ (mặc dùng không đáng kể nếu theo trường hợp của bác Việt).
-
RE: Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
truongtrungviet > 28-06-17, 11:11 AM
Code này không chạy được trên Access 2010. Còn Access 2003 thì chạy tốt.Mã:Public Function LenLop()
Dim rs As Recordset
Dim sqlLenlop As String
Dim Dieukien As Long
Set rs = CurrentDb.OpenRecordset("tblLop", dbOpenDynaset)
With rs
If rs.RecordCount > 0 Then
rs.MoveFirst
Do Until rs.EOF ' Tien hanh kiem tra NGAYKT trong tblLop
If rs.Fields("NGAYKT") <= Date Then ' Neu phat hien NGAYKT <= Date thi cho len lop 2
Dieukien = rs.Fields("ID")
sqlLenlop = "UPDATE TblHOCSINH SET ID = 2 WHERE ID=" & Dieukien
DoCmd.SetWarnings False
DoCmd.RunSQL (sqlLenlop)
DoCmd.SetWarnings True
End If
rs.MoveNext
Loop
End If
End With
rs.Close
Set rs = Nothing
End Function -
RE: Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
tt1212 > 28-06-17, 12:02 PM
trong bảng hoc sinh bạn tạo một trường [ngaylenlop]
Bạn viết một thu tuc
Mã PHP:sub lenlop ()
dim tb as recordset
set tb=currendb.openrecoset("học sinh") // Đột nhập table
do until tb.eof
if [ngaylenlop] =now then
lên lơp
end if
tb.movenext
loop
tb.close
end sub -
RE: Xin trợ giúp câu lệnh tự động lên lớp khi giới hạn thời gian
tranthanhan1962 > 28-06-17, 12:56 PM
Vài điều góp ý:
Tôi cũng đã làm nhiều ứng dụng quản lý học sinh. Trên cơ sở kinh nghiệm có đôi điều trao đổi với bạn truongtrungviet như sau:
1/Quan hệ giữa ID table lớp và ID table học sinh không cần thiết. Nó phải là quan hệ 1-nhiều giữa tên lớp (hoặc mã lớp) của tble lớp và tên lớp (hoặc mã lớp) trên table học sinh.
2/Mỗi học sinh sau một năm học có thể lên lớp (hoặc ở lại, chuyển trường, nghĩ học về lâu dài có thể phát sinh chuyện gộp lớp, 2 lớp cùng lên 1 lớp, 3 lớp lên 2 lớp) vì vậy việc sử dụng lệnh chuyển toàn bộ hs lên lớp trên là điều không cần thiết mà phải sử dụng lệnh (hoặc xử lý bằng tay) cho lên lớp từng học sinh 1
3/Nên viết một chương trình quản lý toàn diện học sinh, lý lịch, theo dõi học tập... chứ chỉ có một việc lên lớp thì phí quá.
4/ Về cách sử dụng query cũng có thể dùng updatequery xử lý ngay khi mở form
*Tôi phải xử lý lại quan hệ và field để xử lý được lệnh.
Đã xử lý -
Xin nhờ trợ giúp Hàm hoặc câu lênh Update
truongtrungviet > 01-07-17, 09:11 PM
Xin nhờ anh chị em trợ giúp, tôi xin chân thành biết ơn.
Yêu cầu:
1. Xử dụng query hoặc VBA dò tìm và cập nhật lớp tiếp theo.
2. Căn cứ vào NGAYKT để cho lên lớp tự động (Nghĩa là: Các lớp từ cột lớp nếu thời gian >= NGAYKT thì tự động lên cấp độ kế tiếp và lớp kế tiếp.)
Ảnh minh họa
FIle:
https://www.mediafire.com/?qyncv6o35e6u5p4
Một lần nữa xin chân thành biết ơn anh chị em diễn đàn.
![[Hình: IINoRQ]](http://www.upsieutoc.com/image/IINoRQ)