Tùy chọn
Lấy Max và danh sách các field Max
- Lấy Max và danh sách các field Max
-
Lấy Max và danh sách các field Max
babyrock2009 > 22-11-14, 01:16 PM
Mình có 1 table gồm các field : Toan , ly , hoa , van , av , DiemMax, MonMax
Mình tạo 1 form nhập điểm cho các field này
Còn 2 field DiemMax và MonMax sẽ tự động tính toán dựa trên dữ liệu nhập của các field kia
Ví dụ
Toan Ly Hoa Van AV DiemMax MonMax
9 8 9 6 5 9 Toan,Hoa
6 7 7 5 4 7 Ly,Hoa
file đính kèm
http://www.mediafire.com/download/3f1m02...est2.accdb -
RE: Lấy Max và danh sách các field Max
babyrock2009 > 22-11-14, 03:13 PM
Có ai giúp với
-
RE: Lấy Max và danh sách các field Max
Minh Tiên > 22-11-14, 04:03 PM
Chào bạn !
1. Đầu tiên bạn thêm Function sau:
2. Tại các bẩy After_Update của các textbox: Toan, Ly, Hoa, Van, AV bạn thêm đoạn code:Mã:Private Function DiemMaxMonMax()
Dim strMonMax As String, strArr1 As String, trDiemMax As Double, Ctrl As Control, Arr As Variant
Dim strArr()
strArr = Array(Me.Toan, Me.Ly, Me.Hoa, Me.Van, Me.AV)
strArr1 = "Toan,Ly,Hoa,Van,AV"
Arr = Split(strArr1, ",")
strDiemMax = Me.Toan
strMonMax = "Toan"
For i = 1 To UBound(strArr)
If strDiemMax > strArr(i) Then
strDiemMax = strDiemMax
strMonMax = strMonMax
Else
If strDiemMax = strArr(i) Then
strDiemMax = strDiemMax
Set Ctrl = Controls(Arr(i))
strMonMax = strMonMax & "," & Ctrl.Name
Else
If strDiemMax < strArr(i) Then
strDiemMax = strArr(i)
Set Ctrl = Controls(Arr(i))
strMonMax = Ctrl.Name
End If
End If
End If
Next
Me.DiemMax = strDiemMax
Me.MonMax = strMonMax
End Function
Thế là Ok !Mã:DiemMaxMonMax
3. Demo
Chúc bạn thành công !
Thân chào./. -
RE: Lấy Max và danh sách các field Max
babyrock2009 > 22-11-14, 04:38 PM
Thank bạn nhìu nhé