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

[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]

في 15‏/7‏/2025 at 04:48, 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:

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

 

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

[منتصر الانسي]

في 13‏/7‏/2025 at 02:00, moho58 said:

المشكلة في المعدل العام أنا جاعل نوع النتيجة تكون مزدوج

اعتقد أني عرفت المشكلة

جرب المثال الان وأخبرنا إذا ظهرت الرسالة أم لا

مع تحياتي

baseM11.rar

تم تعديل منذ 6 ساعات بواسطه منتصر الانسي

[Foksh]

32 دقائق مضت, منتصر الانسي said:

اعتقد أني عرفت المشكلة

 

أيعقل أن يكون اسم مربع ا لنص هو السبب !!!!!

[منتصر الانسي]

كما يلاحظ من الصورة

رسالة الخطأ ترد الخطأ للفاصلة وتنسيق الرقم يؤكد هذا لذا فأنا أعتقد أن المشكلة سببها هو تنسيق الرقم

قمت بتعديل تنسيق الحقل في الجدول بدل أن كان Fixed جعلته #.00 حتى أجبره أن يظهر العلامة العشرية كنقطة وليس فاصلة ان شاء الله تنحل المشكلة

اما إذا إستمرت فقد تكرمت أنت بالحل الأخير

في 15‏/7‏/2025 at 04:48, Foksh said:

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

تحياتي

[Foksh]

منذ ساعه, منتصر الانسي said:

قمت بتعديل تنسيق الحقل في الجدول بدل أن كان Fixed جعلته #.00 حتى أجبره أن يظهر العلامة العشرية كنقطة وليس فاصلة ان شاء الله تنحل المشكلة

 

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

في 15‏/7‏/2025 at 04:48, Foksh said:

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