إظهار أكبر قيمة في تاريخ العمر لإظهار نتائج قيم أخرى في نفس السجل

وعليكم السلام :)

هناك عدة طرق لعمل الازم ، ومعظمها يتطلب من البرنامج الرجوع الى الجدول مرة اخرى لأخذ النتيجة!! ،

ولكني اضع بين يديك طريقة تقرأ من بيانات النموذج مباشرة:

1. المفروض في الجدول ان تغير نوعية حقل التاريخ ، من نص

2. الى تاريخ

3. ثم لا نحذف مصدر "أكبر عمر" ، ونعمل حدث "في الحالي" للنموذج

4. وهذا كود الحدث اعلاه:

    With Me.RecordsetClone
        .MoveFirst
        
            Me.old_max = !old_date
            Me.name_max = !name
            
            Do Until .EOF
               If Me.old_max < !old_date Then
                    Me.old_max = !old_date
                    Me.name_max = !name
               End If
               
                .MoveNext
            Loop
                    
    End With

5. والنتيجة

جعفر

أخي جعفر   ...

أنت مبدع دائماً   .... وألف شكر على ردك السريع والإجابة الوافية.

أما عن التاريخ فقد قصدت ذلك لأني سأضع قيم التاريخ بالتاريخ الهجري لتقويم أم القرى بصيغة معادلات وأكواد أخذتها من هذا المنتدى الرائع،  وهذا يجبرني على وضع صيغة التاريخ بـ text

وإن زدت كرماً  أن تشرح لي ماذا تعني صيغة الحدث ؟؟!!

أقصد ماذا تعني:

With Me.RecordsetClone

و Do Until .EOF

و Loop

أكرر شكري لك ... 

حياك الله :)

انظر الرابط التالي بالنسبة لـ :

With Me.RecordsetClone

/index.php/topic/227638-%D9%87%D9%84-%D9%8A%D9%85%D9%83%D9%86-%D8%A7%D8%AD%D8%AF-%D9%8A%D8%B4%D8%B1%D8%AD-%D9%85%D8%B9%D9%86%D9%89-%D8%A7%D9%84%D9%88%D8%B8%D8%A7%D8%A6%D9%81-%D8%A7%D9%84%D8%AA%D8%A7%D9%84%D9%8A%D8%A9/

و Do Until .EOF

وهذا معناه ان اقرأ جميع السجلات الى نهاية الملف End Of File (اي نهاية الجدول في حالتنا) ،

و Loop

وهذه تأتي مع Do ومنها يعرف البرنامج اننا نبدأ من Do بعمل حلقة ، وننفذ ما بها من اسطر واوامر ، ونتوقف عند Loop ، حيث ننتقل للسجل التالي :)

جعفر

أكرر شكري لك ... 

بارك الله فيك ... كفّيت وأوفيت  :)