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

[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

تم تعديل الأربعاء at 14:42 بواسطه منتصر الانسي

[Foksh]

في 16‏/7‏/2025 at 17:40, منتصر الانسي 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 لتحويل الفاصلة إلى نقطة في الأعداد والقيم الرقمية الكسرية .

 

 

[moho58]

في 16‏/7‏/2025 at 16:40, منتصر الانسي said:

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

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

مع تحياتي

baseM11.rar 43.23 kB · 5 downloads

السلام عليكم أخي @منتصر الانسي

شكرا على الرد والاهتمام

بعد تجربة المثال وتغيير تنسيق المعدل العام إلى   #,00

مزالت نفس المشكلة التي كانت تظهر في جميع الاقترحات السابقة ( الصورة المرفقة)

إلى غاية اعتماد فكرة الأخ @Foksh  واعتماد دالة Replace  التي تعمل بصورة جيدة وبدون مشاكل .

 

 

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

ألمهم أن المشكلة حلت

لكن لدي تصحيح بسيط أنا قلت تعديل التنسيق إلى هذا الشكل 

#.00

 

في 16‏/7‏/2025 at 18:38, منتصر الانسي said:

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

علامة الهاشتاغ مع نقصة وصفرين 

وانت قمت بعمل التنسيق بهذا الشكل

#,00

علامة الهاشتاغ مع فاصلة وصفرين

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

بعد تجربة المثال وتغيير تنسيق المعدل العام إلى   #,00

نظرا ً لأن المشكلة هذه لاتظهر عندنا فلو أمكن تعديل تنسيق الحقل في الجدول بالشكل الذي إقترحته لك وتخبرنا هل ظلت المشكلة نفسها أم ظهر خطأ آخر جديد أم أنها نجحت حتى نستفيد

مع تحياتي

[moho58]

السلام عليكم

تحية طيبة أخي @منتصر الانسي

ومشكور مرة اخرى على المتابعة

أخي أنا قمت بالتجربة مباشرة على المثال الذي رفعته آخر مرة

وظهرت معي نفس المشكلة  والتنسيق الموجود في الجدول هو (00,#) كما في الصورة وكذا رسالة الخطأ التي مزالت تظهر

حقيقة امر محير كيف تشتغل معكم وعندي لا تشتغل

الصورة المرفقة تبين اعدادات لوحة المفاتيح

أنا استعمل ويندوز 7  

والأفيس 2016  عربي

[moho58]

سأعيد التجربة اخي @منتصر الانسي

وأستعمل التنسيق (00.#)

بعد التجربة أخي مزال نفس المشكل

حسب معرفتي البسيطة ا لمشكلة في الفاصلة لانه عندما أجعل تنسيق حقل المعدل العام : عدد صحيح يشتغل في جميع الحالات.