• Trang chủ click to expand contents 

  • 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 040

  • 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:
    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./.

  • 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é