Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Lấy Max và danh sách các field Max
#1
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
Chữ ký của babyrock2009 Xin chào, mình là babyrock2009, Tham gia http://thuthuataccess.com/forum từ ngày 30-03 -13.
Reply
Những người đã cảm ơn
#2
Có ai giúp với 040
Chữ ký của babyrock2009 Xin chào, mình là babyrock2009, Tham gia http://thuthuataccess.com/forum từ ngày 30-03 -13.
Reply
Những người đã cảm ơn
#3
Chào bạn !
1. Đầu tiên bạn thêm Function sau:
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
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ã:
DiemMaxMonMax
Thế là Ok !
3. Demo
Chúc bạn thành công !
Thân chào./.
Chữ ký của Minh Tiên -----------------------------------------------
Đường tuy ngắn, không đi không đến
Việc tuy nhỏ, không làm không nên.
                                           Tuân Tử
-----------------------------------------------
Reply
Những người đã cảm ơn
#4
Thank bạn nhìu nhé
Chữ ký của babyrock2009 Xin chào, mình là babyrock2009, Tham gia http://thuthuataccess.com/forum từ ngày 30-03 -13.
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
  Danh sách các Keys word VBA access (Không dùng để đặt tên cho các Object) tranthanhan1962 1 336 28-05-16, 04:08 PM
Bài mới nhất: jason
  [Lỗi] Run-time error '3070': Does not recognize... as valid field name or... mieuhoa 2 220 05-01-16, 10:10 AM
Bài mới nhất: mieuhoa
  Xử lý vấn đề đồng bộ hóa danh mục ledangvan 13 1,010 30-08-15, 12:53 AM
Bài mới nhất: tranthanhan1962
  Hiện Ribbon theo User đã phân quyền, phân quyền theo Danh sách lựa chọn. minhhang02081992 15 2,194 18-07-15, 10:58 AM
Bài mới nhất: jeck09nt
  [Help] Cách tính chính sách cho khánh hàng thanh_triet09 1 509 02-01-14, 07:39 PM
Bài mới nhất: cpucloi

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ