معرفة ترتيب كل طالب في نموذج منفرد عن طريق القيام بعملية الفلترة

[Foksh]

وعليكم السلام ورحمة الله وبركاته 🤗 

سأرى ما يمكنني فعله بطريقة أخرى ، ولا يهمك.

في المرات القادمة حاول استخدام الرمز <> لوضع الأكواد فيه اخي الكريم 😇 

 

[Foksh]

5 ساعات مضت, moho58 said:

أخي هل ممكن تغيير  الكود التالي  نهائيا   أو إدخال تعديلات عليه :

رغم أنني لن ألحظ الخطأ ولم أواجهه في أي من أجهزتي ( كما رأيت سابقاً ) ، إلا أنني سأحاول بعد تجربتي بهذا التعديل :-

Private Sub Form_Current()
    On Error GoTo ErrorHandler
    
    If Not IsNull(Me.ID) And Not IsNull(Me.mouadel_3am) Then
        Dim strSQL As String
        Dim rs As DAO.Recordset
        
        strSQL = "SELECT COUNT(*) FROM (" & _
                 "SELECT m.mouadel_3am " & _
                 "FROM info_stagiere i " & _
                 "INNER JOIN modul m ON i.ID = m.id " & _
                 "WHERE i.annee='" & Replace([Forms]![frm_examen_fin_formation]![annet], "'", "''") & "' " & _
                 "AND i.grade='" & Replace([Forms]![frm_examen_fin_formation]![grade1], "'", "''") & "' " & _
                 "AND i.wilaya='" & Replace([Forms]![frm_examen_fin_formation]![wilaya1], "'", "''") & "'" & _
                 ") AS T WHERE mouadel_3am >= " & Replace(Me.mouadel_3am, ",", ".")
        Set rs = CurrentDb.OpenRecordset(strSQL)
        
        If Not rs.EOF Then
            Me.نص73 = rs.Fields(0).Value
        Else
            Me.نص73 = Null
        End If
        
        rs.Close
        Set rs = Nothing
    Else
        Me.نص73 = Null
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "حدث خطأ في حساب الترتيب", vbExclamation + vbMsgBoxRight, "خطأ"
    Me.نص73 = Null
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
End Sub

 

الهدف هو إلمام الحدث بالتأكد من أن mouadel_3am ليس NULL .

وحاولت استخدام Replace لتحويل الفاصلة إلى نقطة في الأعداد والقيم الرقمية الكسرية .

وإذا استمرت المشكلة لديك ، تحقق من إعدادات الإقليمية (Regional Settings) في الويندوز التي قد تؤثر على تنسيق الأرقام 🤔

[moho58]

7 ساعات مضت, Foksh said:

رغم أنني لن ألحظ الخطأ ولم أواجهه في أي من أجهزتي ( كما رأيت سابقاً ) ، إلا أنني سأحاول بعد تجربتي بهذا التعديل :-

Private Sub Form_Current()
    On Error GoTo ErrorHandler
    
    If Not IsNull(Me.ID) And Not IsNull(Me.mouadel_3am) Then
        Dim strSQL As String
        Dim rs As DAO.Recordset
        
        strSQL = "SELECT COUNT(*) FROM (" & _
                 "SELECT m.mouadel_3am " & _
                 "FROM info_stagiere i " & _
                 "INNER JOIN modul m ON i.ID = m.id " & _
                 "WHERE i.annee='" & Replace([Forms]![frm_examen_fin_formation]![annet], "'", "''") & "' " & _
                 "AND i.grade='" & Replace([Forms]![frm_examen_fin_formation]![grade1], "'", "''") & "' " & _
                 "AND i.wilaya='" & Replace([Forms]![frm_examen_fin_formation]![wilaya1], "'", "''") & "'" & _
                 ") AS T WHERE mouadel_3am >= " & Replace(Me.mouadel_3am, ",", ".")
        Set rs = CurrentDb.OpenRecordset(strSQL)
        
        If Not rs.EOF Then
            Me.نص73 = rs.Fields(0).Value
        Else
            Me.نص73 = Null
        End If
        
        rs.Close
        Set rs = Nothing
    Else
        Me.نص73 = Null
    End If
    
    Exit Sub
    
ErrorHandler:
    MsgBox "حدث خطأ في حساب الترتيب", vbExclamation + vbMsgBoxRight, "خطأ"
    Me.نص73 = Null
    If Not rs Is Nothing Then
        rs.Close
        Set rs = Nothing
    End If
End Sub

 

الهدف هو إلمام الحدث بالتأكد من أن mouadel_3am ليس NULL .

وحاولت استخدام Replace لتحويل الفاصلة إلى نقطة في الأعداد والقيم الرقمية الكسرية .

وإذا استمرت المشكلة لديك ، تحقق من إعدادات الإقليمية (Regional Settings) في الويندوز التي قد تؤثر على تنسيق الأرقام 🤔

بعد التجربة أخي @Foksh

حمد لله شغال بامتياز وبدون مشاكل

ألف شكر وامتنان  وتقدير وجزاك الله كل الخير - أمين

[Foksh]

1 ساعه مضت, moho58 said:

الحمد لله شغال بامتياز وبدون مشاكل

 

الحمد لله أخي الكريم ..