Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] sắp xếp thứ hạng trong access!
#1
các bạn chỉ mình cách sắp xếp thứ hạng theo điểm trong access với, dùng lệnh trong query để sắp xếp ở table

xếp thứ hạng theo điểm chứ k phải là xếp theo thứ tự đâu nhé, xếp như rank trong excel nhưng mà không nhảy cóc thứ hạng khi có nhiều điểm bằng nhau thì càng tốt

bài làm của mình đây: http://www.mediafire.com/download.php?vq0hrsn879f9j8t
Chữ ký của hjhjngon Xin chào, mình là hjhjngon, Tham gia http://thuthuataccess.com/forum từ ngày 08-09 -12.
Reply
Những người đã cảm ơn
#2
Bạn post file lên mọi người giúp cho bởi vì không hiểu ý bạn lắm.
Chữ ký của cpucloi Tôi chỉ biết mỗi một điều là những điều tôi biết được còn quá ít 021
Gmail: cpucloi@gmail.com
Yahoo: cpucloi@yahoo.com.vn
Skype: cpucloi
Facebook: cpucloi
Two: cpucloi

ღღღღღTài sản của cpucloi (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
đã thêm file nhé bạn

ý mình làm xếp thứ hạng VD: điểm cao nhất thì hạng 1, điểm cao thứ 2 thì đứng hạng 2, nếu có 2 người đồng hạng thì người sau sẽ là hạng 3, hoặc là hạng 4 nếu bị nhảy cách
Chữ ký của hjhjngon Xin chào, mình là hjhjngon, Tham gia http://thuthuataccess.com/forum từ ngày 08-09 -12.
Reply
Những người đã cảm ơn
#4
(09-09-12, 12:45 PM)hjhjngon Đã viết: đã thêm file nhé bạn

ý mình làm xếp thứ hạng VD: điểm cao nhất thì hạng 1, điểm cao thứ 2 thì đứng hạng 2, nếu có 2 người đồng hạng thì người sau sẽ là hạng 3, hoặc là hạng 4 nếu bị nhảy cách

Cái này ít có giá trị sử dụng lắm bạn ơi!
Chữ ký của Nguyendinhthanh My site: Tài liệu
ღღღღღTài sản của Nguyendinhthanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
nhưng mà bài tập của mình nó như thế, mình k biết nên mới post lên đây mà, giúp mình với
Chữ ký của hjhjngon Xin chào, mình là hjhjngon, Tham gia http://thuthuataccess.com/forum từ ngày 08-09 -12.
Reply
Những người đã cảm ơn
#6
(08-09-12, 08:59 PM)hjhjngon Đã viết: các bạn chỉ mình cách sắp xếp thứ hạng theo điểm trong access với, dùng lệnh trong query để sắp xếp ở table

xếp thứ hạng theo điểm chứ k phải là xếp theo thứ tự đâu nhé, xếp như rank trong excel nhưng mà không nhảy cóc thứ hạng khi có nhiều điểm bằng nhau thì càng tốt

bài làm của mình đây: http://www.mediafire.com/download.php?vq0hrsn879f9j8t

1/ Đúng là việc này ít sử dụng
2/ Nếu muốn làm thì làm thủ công thế này
2.1/ Tạo query từ table HoSo, chọn Acending cho trường HoTen, Decending cho truong Tong
2.2/ Chạy query trên và gõ số thứ tự từ 1 đến hết cho trường XepThu (Trong bài Demo của bạn là từ 1 - 10)
2.3/ Chuyển query trên thành query Update, Update To [XepThu]
2.4/ Run query Update vừa làm ở trên, bạn sẽ có kết quả như mong muốn

Nếu muốn nhanh và chính xác thì dùng VBA
Lưu ý : Với cách dùng query như trên, trình tự ưu tiên sẽ là Tong, nếu Tong bằng nhau thì ai có HoTen xếp trước theo vần ABC sẽ có thứ hạng đứng trước
Xem file đính kèm


File đính kèm
.zip   12SN.zip (Kích cỡ: 20.55 KB / Tải về: 45)
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(11-09-12, 09:14 AM)Xuân Thanh Đã viết:
(08-09-12, 08:59 PM)hjhjngon Đã viết: các bạn chỉ mình cách sắp xếp thứ hạng theo điểm trong access với, dùng lệnh trong query để sắp xếp ở table

xếp thứ hạng theo điểm chứ k phải là xếp theo thứ tự đâu nhé, xếp như rank trong excel nhưng mà không nhảy cóc thứ hạng khi có nhiều điểm bằng nhau thì càng tốt

bài làm của mình đây: http://www.mediafire.com/download.php?vq0hrsn879f9j8t

1/ Đúng là việc này ít sử dụng
2/ Nếu muốn làm thì làm thủ công thế này
2.1/ Tạo query từ table HoSo, chọn Acending cho trường HoTen, Decending cho truong Tong
2.2/ Chạy query trên và gõ số thứ tự từ 1 đến hết cho trường XepThu (Trong bài Demo của bạn là từ 1 - 10)
2.3/ Chuyển query trên thành query Update, Update To [XepThu]
2.4/ Run query Update vừa làm ở trên, bạn sẽ có kết quả như mong muốn

Nếu muốn nhanh và chính xác thì dùng VBA
Lưu ý : Với cách dùng query như trên, trình tự ưu tiên sẽ là Tong, nếu Tong bằng nhau thì ai có HoTen xếp trước theo vần ABC sẽ có thứ hạng đứng trước
Xem file đính kèm
Vậy bạn viết dùm code VBA xếp hạng luôn đi, xin cám ơn
Chữ ký của tracanhtam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#8
bạn code lun VBA rùi chỉ mình cách dùng lun với
Chữ ký của hjhjngon Xin chào, mình là hjhjngon, Tham gia http://thuthuataccess.com/forum từ ngày 08-09 -12.
Reply
Những người đã cảm ơn
#9
(11-09-12, 12:10 PM)hjhjngon Đã viết: bạn code lun VBA rùi chỉ mình cách dùng lun với

1/ Tạo một table XepHangHocSinh có cấu trúc giống hệt table HoSo nhưng không cập nhật di74 liệu
2/ Tạo một query qryXepHang như sau ;

Mã:
SELECT HoSo.STT, HoSo.HoTen, HoSo.NgaySinh, HoSo.NoiSinh, HoSo.Toan, HoSo.Van, HoSo.Anh, HoSo.Tong, HoSo.XepLoai
FROM HoSo
ORDER BY HoSo.Tong DESC , HoSo.HoTen;
3/ Tạo một modul mới rồi chép hai hàm sau vào modul

Mã:
Option Compare Database
Option Explicit

Function XoaTable(TabName As String)
    Dim CauSQL As String
    CauSQL = "DELETE * FROM " & TabName
    DoCmd.SetWarnings False
    DoCmd.RunSQL CauSQL
    DoCmd.SetWarnings True
End Function

Function XepHang()
    Dim HS As Recordset
    Dim XH As Recordset
    Dim QX As QueryDef
    Dim i As Integer, k As Integer
    Set QX = CurrentDb.QueryDefs("qryXepHang")
    Set HS = QX.OpenRecordset()
    Set XH = CurrentDb.OpenRecordset("XepHangHocSinh", dbOpenTable)
    If XH.RecordCount > 0 Then Call XoaTable("XepHangHocSinh")
    HS.MoveFirst
    For i = 1 To HS.RecordCount
        XH.AddNew
        For k = 0 To HS.Fields.Count - 1
            XH.Fields(k) = HS.Fields(k)
        Next
        XH!XepThu = i
        XH.Update
        HS.MoveNext
    Next
    XH.Close: HS.Close
End Function

4/ Chạy hàm XepHang bằng một nút bấm hoặc gì gì đó tùy bạn

Lưu ý : Khi chạy hàm XepHang, đầu tiên nó sẽ xóa toàn bộ table XepHangHocSinh, sau đó nhặt từng record của table HoSo vào và xếp hạng học sinh như tôi đã nói ở trên. Vì thế bạn cứ thoải mái cập nhật cho table HoSo mà không phải bận tâm tới Table XepHangHocSinh
Thân mến
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
bạn Xuân Thanh có file demo không bạn?
Chữ ký của ndthanh29 Xin chào, mình là ndthanh29, Tham gia http://thuthuataccess.com/forum từ ngày 08-10 -12.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Tạo ứng dụng Access 2003 chạy qua mạng internet tt1212 11 726 28-07-15, 10:50 AM
Bài mới nhất: ledangvan
  trợ giúp về giao diện access quan_pc 7 3,535 24-07-15, 01:39 PM
Bài mới nhất: tranthanhan1962
  Trao đổi vài kinh nghiệm xử lý khi khi thiết kế sản phẩm access. tranthanhan1962 0 47 22-07-15, 11:33 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Tìm kiếm trong một khoảng thời gian bằng VBA thanhtruong 4 139 20-07-15, 08:09 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Tạo thanh Menu trong Access 2010 hkht 1 54 20-07-15, 05:07 PM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)