maidinhdan > 27-06-19, 02:18 AM
Trích dẫn:từ:Nguyễn Văn Hồng Thắng <nguyenvanhongthang@gmail.com>
tới:maidinhdan@gmail.com
ngày:21:05, 26 thg 6, 2019
Bạn có thể huớng dẫn mình xếp thứ hạng mà không bị nhảy bậc được không
ạ? Thấy cái bạn làm ở đây nó bị nhảy bậc khi có người bằng nhau mất.
Mong bạn giúp đỡ ạ!
'---------------------------------------------------------------------------------------
' Procedure : HamXepHang (I)
' Author : HENDAN_WIN10PRO
' Date : 27/06/2019
' Purpose : HamXepHang("BangLuong","NGAYCONG",[NGAYCONG])
'---------------------------------------------------------------------------------------
'
Function HamXepHang(TenTable As String, TenCotCanXepHang As String, SoCanXep As Integer) As Integer
Dim rs As Recordset
Dim sql As String
Dim i As Integer
On Error GoTo Loi
sql = "SELECT " & TenCotCanXepHang & " FROM " & TenTable & " GROUP BY " & TenCotCanXepHang & " ORDER BY " & TenCotCanXepHang
Set rs = CurrentDb.OpenRecordset(sql)
If rs.RecordCount > 0 Then
rs.MoveFirst
i = 1
Do Until rs.EOF
If rs.Fields(TenCotCanXepHang) = SoCanXep Then
HamXepHang = i
GoTo ThoatLoi
End If
i = i + 1
rs.MoveNext
Loop
Else
MsgBox "Khong co nguoi nao de xep hang"
End If
ThoatLoi:
rs.Close
Exit Function
Loi:
Resume ThoatLoi
End Function
HamXepHang("Tên table của bạn","Tên cột cần xếp hạng",[Tên đối tượng cần phân loại hạng mấy])
Thang0977427268 > 28-06-19, 10:46 AM
Thang0977427268 > 28-06-19, 12:27 PM
maidinhdan > 29-06-19, 11:20 PM
(28-06-19, 12:27 PM)Thang0977427268 Đã viết: Bạn maidinhdan ơi! Cho mình hỏi xíu cái này mình thực hiện từ nguồn Query không phải là Table có được không nhỉ? Do mình làm nó cứ bị treo chứ không chạy được? Nguồn của mình là Query không phải Table