عفرنس

1 ساعه مضت, فايز.. said:

السلام عليكم 

أتمنى أن يكون الجميع على أحسن حال .

عندي هذا البرنامج من خلاله يتم اضافة أسماء الطلاب والرقم الأكاديمي في ملف الاكسل المرفق .. لكنه يضيف لي الأسماء حسب الرقم الأكاديمي من الأصغر إلى الأكبر .. 

الذي أريد العكس وهو أن يرتب لي الأسماء أبجديا .. 

أليكم البرنامج مرفقا .. ولك جزيل الشكر .. 

 

مجلد جديد.rar 844.1 kB · 0 downloads

@kanory

السلام عليكم 

أتمنى أن يكون الجميع على أحسن حال .

عندي هذا البرنامج من خلاله يتم اضافة أسماء الطلاب والرقم الأكاديمي في ملف الاكسل المرفق .. لكنه يضيف لي الأسماء حسب الرقم الأكاديمي من الأصغر إلى الأكبر .. 

الذي أريد العكس وهو أن يرتب لي الأسماء أبجديا .. 

أليكم البرنامج مرفقا .. ولك جزيل الشكر .. 

مجلد جديد.rar

في ٣٠‏/١١‏/٢٠٢٠ at 14:55, jjafferr said:

تفضل النسختين ، accdb و mdb 🙂

 

جعفر

1289.اوفيسنا.zip 957.36 kB · 32 downloads

جزاكم الله خيرا 

في ٢٢‏/١١‏/٢٠٢٠ at 19:54, محمد التميمي said:

 

السلام عليكم

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

البرنامج شغال وقمت بتجربته على طابعة البطاقات يعمل 100% والحمد لله .. انت فقط اضبط اعدادات الطابعة جيداً

يمكنك تغيير خلفيات البطاقات على راحتك لان صور خلفيات البطاقات معمولة بالفوتوشوب وجميع المعلومات هي افتراضية وغير حقيقية

اسم المستخدم : اوفيسنا

رمز المرور : 1234

حمل البرنامج من الرابط المباشر ادناه

https://www.mediafire.com/file/yz3abye3mekko8z/234.rar/file

الشكر موصول للأستاذ الخبير ابا جودي المحترم لأبداء المساعدة لنا

اخواني ذا كانت هناك أخطاء لا تبخلوا علينا بالتنبيه ومنكم نستفيد

لا تنسونا بالدعاء ولوالدي بالرحمة والمغفرة

جزاكم الله خيرا 

12 ساعات مضت, jjafferr said:

الفائدة الاعم والتي من اجلها تم عمل المنتديات ، هي كما قالها الاستاذ محمد :

 

اما فائدة الدخول متخفي ، فمثلا لما اكون على سفر وادخل المنتدى ، لغرض البحث عن شيء معين ، ولا اريد ان يتتبع الاعضاء وقت دخولي ذلك الوقت ، فأدخل متخفي 

 

جعفر

جزاك الله خيرا..

15 ساعات مضت, محمد طاهر said:

السلام عليكم

اسمح لي أخي الكريم ان اختلف معك ، فكلنا هنا لنتعلم و نتبادل المعرفة ، و كلما زادت المشاركة و التفاعل و محاولة افادة الاخرين ، كلما زادت المعرفة 

زادك الله علما وفهما .. جزيت خيرا.. 

منذ ساعه, محمد طاهر said:

السلام عليكم

من اعدادت الحساب

اختار
Security and privacy
باذن الله سيتم الترجمة الي
الحماية و الخصوصية

 

ثم اعد ادخال كلمة السر
و اضغط
 re-authenticate
باذن الله سيتم ترجمتها الى 
إعادة المصادقة

عندها سيظهر لك خيار الدخول مخفياً
Hide my online status
و باذن الله سيتم ترجمتها الى
الدخول متحفياً   ( للتشجيع على عدم استعمالها بكثرة 😂)

يا ليت لو بينتم معنى (  الدخول متخفيا ) والفائدة منها للي ما يعرف مثلي .. 

39 دقائق مضت, ابا جودى said:

حضرتك استبدل فى الكود الجزء ده 

tblJudy

بالاسم اللى انت عاوزه

انظر اسم الجدول فى الكود ممكن تغيره من مكان التظليل بالصورة

لو مش عارف قول لى اسم الجدول زى ما انت عاوزه وانا اعمله لحضرتك

 

أخي @ابا جودى 

** الملف الذي ارفقه الأخ السائل مكون من عدة أعمدة . 

** الأمر الآخر ماذا لو كان عنده أكثر من ملف هل يظل يغير اسم الجدول في كل مرة في الكود ؟؟ 

18 دقائق مضت, سالم محمد said:

شكرا لسيد /ابو عارف والسيد/ فايز المحترمين

علي المساعدة 

وافر الاحترام والتقدير

 

العفو .. أخي الكريم 

مشاركة مع أبي عارف .. عملت لك تنسيق شرطي بلون مغاير للرقم صفر .. 

test.accdb

6 ساعات مضت, kanory said:

شغل النموذج Kanory ولاحظ الاستعلام الناتج -------->>>>>>

 

2132172302_FMARK_Kanory.mdb 3.09 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

شكر الله لك .. هذا هو المطلوب .. 

في ٢١‏/١٠‏/٢٠٢٠ at 17:04, kha9009lid said:

مع ذلك ممكن عملها بدون الى الحاجة الى عدة تقرير وعدة استعلامات

تقرير واحد مبني على استعلام واحد ويكون معيار الاستعلام حقل في نموذج ويتم اختيار التصفية من قائمة منسدلة تحتوي على ممتاز جيد جدا جيد مقبول راسب

أخي  @kha9009lid @kanory

لعلك تعينني على هذه وفقك الله .. 

لأني حاول أكثر من مرة ولم أصل إلى الحل . 

12 ساعات مضت, kha9009lid said:

مع ذلك ممكن عملها بدون الى الحاجة الى عدة تقرير وعدة استعلامات

 اخي @kha9009lid هل من الممكن تعمل هذه الطريقة على المرفق . 

11 ساعات مضت, فايز.. said:

إليك البرنامج .. 

‏‏FMARK - Shivan.rar 341.6

ولك جزيل الشكر والامتنان .. 

59 دقائق مضت, kha9009lid said:

>="45"

 

نفس المشكلة . 

2 ساعات مضت, kha9009lid said:

مع ذلك ممكن عملها بدون الى الحاجة الى عدة تقرير وعدة استعلامات

تقرير واحد مبني على استعلام واحد ويكون معيار الاستعلام حقل في نموذج ويتم اختيار التصفية من قائمة منسدلة تحتوي على ممتاز جيد جدا جيد مقبول راسب

لو عملتها مثل ما قلت هنا 

أين يتم وضع المعيار في الاستعلام 

في صف الحقل أم في صف المعيار ؟؟

منذ ساعه, kha9009lid said:

مع ذلك ممكن عملها بدون الى الحاجة الى عدة تقرير وعدة استعلامات

تقرير واحد مبني على استعلام واحد ويكون معيار الاستعلام حقل في نموذج ويتم اختيار التصفية من قائمة منسدلة تحتوي على ممتاز جيد جدا جيد مقبول راسب

إليك البرنامج .. 

‏‏FMARK - Shivan.rar

منذ ساعه, kha9009lid said:

Between 45 And 50

وضعت هذا المعيار ولم يضبط معي يعطيني ضمن الدرجات رقم 5 رقم 6 وهكذا 

منذ ساعه, kha9009lid said:

التصفية يقصد فيها اظهار سجلات وفق معايير محددة

 

الدرجات أصبحت عندي جاهزة .. 

احتاج عمل تقرير لمادة ( رياضيات ) مثلا يظهر لي الطلاب الذين حصلوا على تقدير ( ممتاز ) لوحدهم

وتقرير رقم 2 يعطيني الطلاب الذين حصلا على جيد جدا .. وهكذا .. 

والتقرير حيكون مصدره استعلام .. 

احتاج المعيار الذي يعطيني درجة الممتاز بين 45 و 50 

السلام عليكم 

لدي درجات طلاب وأريد عمل تصفية في الاستعلام بين درجتين لا ستخراج التقدير 

ممتاز من 45 - 100 

جيد جدا من 44-40 

وهكذا ..

ما هو المعيار الذي يقوم بهذا ؟؟ 

شاكر لكم .

في ١٧‏/١٠‏/٢٠٢٠ at 23:36, Shivan Rekany said:

اتفضل اليك تعديل اخر 
الان تعمل مع اربع ملفات اكسل

تم

تم

Fayz.rar 252.37 kB · 11 downloads

شكر الله لك .. دائما مبدع .. 

1 ساعه مضت, Shivan Rekany said:

اكمال الشرح مع استاذ ابو عبدالله

كما تفضل الاستاذ عندك في القاعدة جدول باسم Temp3 وبها عدد من الحقول و اسماءها F1 , F2 ,F3,F4,F5,F6,F7,F8,F9 >>> الى اخره

هنا يقول الكود اذا حقل اللي اسمه F مع قيمة fld_Number وهو 3 زائد 16 اي يعني اللي اسمه F19 بيكون رقم يعمل الاتي

sID = حرف F مع 3 زائد 16 اي يعني F19

sName = حرف F مع 3 زائد 12 اي يعني F15

وهكذا

اي يعني قيمة fld_Number هو 3 مع زيادة رقم المكتوب معه بيساوي اسم الحقل المطلوب
للعلم في رابط مشاركتك الاعلى انا قمت بتعديل الكود و كتبت في نهاية اسطر اسم الحقل 

تقبل تحياتي 

فتح الله عليك 

الان تو راسي يرتاح .. 

شرح وافي وميسر .. 

شكر الله لك .. 

جزاك الله خيرا 

الكود طويل جدا .. 

وسأضعه ان شاء الله حتى تكتمل الفائده .. 

4 ساعات مضت, أبو عبدالله الحلوانى said:

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

    هذا الكود يعمل علي جلب قيمة بعض الحقول واسماءها  داخل الجدول عن طريق الدوران خلال كل الحقول بالجدول بشرط أن يكون حقل معين رقم وليس نص. هذا علي حسب فهمي.

 الكود الموجود بمشاركة حضرتك الاولي لم يظهر به بداية الكود والذي يجب أن يكون يحتوي علي:

1- تعريف لـــ Rst : وهو متغير سيتم تحديد نوعه الي Recordset - ليستعمل في تخزين بيانات الجدول وطريقة التعامل مع هذه البيانات.

مثل: 

Dim rst As Recordset
Set rst = Currentdb.OpenRecordset("TabelName",dbOpendynaset)

2- شرط الدوران داخل جقول الجدول ، مثل: 

For n=1 to rst.RecordCount -1

أو 
For Each field in rst.fields 

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

If IsNumeric(rst("F" & fld_Number + 16).Value) Then
علي افتراض ان حقول الجدول لديك تسمي بهذا الشكل 
F1 , F2 , F100 ....
fld_Number عبارة عن نص يحوي رقم
فعليه يكون الشرط يعني 
لو الحقل المسمي f(1+16) قيمته رقم 
افعل 

أرجو أن يكون الشرح واضح وأني قد أفدتك بمعلومة ولو بسيطة

تمنياتي بالتوفيق

 

جزاك الله خيرا 

الكود طويل جدا .. وهو في المرفق في هذه المشاركة 

لعلك تطلع عليه .. 

@jjafferr

http://arabteam2000-forum.com/index.php?/topic/91403-كيف-اعمل-توليد-رقم-عشوائي-لكل-سجل/&do=findComment&comment=467315

أخي @Shivan Rekany 

عندما أستورد البيانات يكرر اسم الطالب 3 إلى 4 مرات .. ما هو السبب يا ترى ؟؟؟ 

5 دقائق مضت, Shivan Rekany said:

هناك في احدی الملفين اكسل مخصصة لمادة القران الكريم۱

وبها ۲ شیت

لكن هناك اختلاف في ترتيب عمود الدروس في الشیتین

لذلك حسب ذاك الملف اكسل انا عملت تعديل علی الكود

لذلك انا اتوقع سيظهر لك مشكلة حين تطبیق علی ملفات اخری

لذا يجب علیك ان تعمل ترتيب الاعمدة للدروس في كل شيت لكي نعمل لك تعديل اخر حسب ملفاتك 

تحياتي

الأمور تمام في بقية المواد عدا مادة الغة العربية وأرسلتها لك .. 

وهذه الماده اسمها مهارات حياتية .. 

ثم أريد منك كرما : ( تشرح علي التعديل في الكود ماذا عملت أريد أفهم ) وفقك الله 

‏‏CS_GetMatchingGrades (5) - نسخة.xlsx

17 دقائق مضت, Shivan Rekany said:

القي نظرتا الی المرفق

 

Fayz.rar 174.43 kB · 0 downloads

أجرب على بقية المواد ثم أوافيك بالنتائج .. وفقك الله . 

22 دقائق مضت, Shivan Rekany said:

القي نظرتا الی المرفق

 

Fayz.rar 174.43 kB · 0 downloads

هذا ملف مادة اللغة العربية .. يحتاج إصلاح .. 

‏‏CS_GetMatchingGrades (4) - نسخة.xlsx

        السلام عليكم 

أريد شرح هذا الكود .. 

             If IsNumeric(rst("F" & fld_Number + 16).Value) Then
                         sID = rst("F" & fld_Number + 16).Name
                         sName = rst("F" & fld_Number + 12).Name
                                        
                ElseIf IsNumeric(rst("F" & fld_Number + 20).Value) Then
                         sID = rst("F" & fld_Number + 20).Name
                         sName = rst("F" & fld_Number + 18).Name
                 
               ElseIf IsNumeric(rst("F" & fld_Number + 19).Value) Then
                         sID = rst("F" & fld_Number + 19).Name
                         sName = rst("F" & fld_Number + 17).Name
                    
               ElseIf IsNumeric(rst("F" & fld_Number + 17).Value) Then
                         sID = rst("F" & fld_Number + 17).Name
                         sName = rst("F" & fld_Number + 15).Name
                         
              ElseIf IsNumeric(rst("F" & fld_Number + 15).Value) Then
                         sID = rst("F" & fld_Number + 15).Name
                         sName = rst("F" & fld_Number + 10).Name
                   End If
        
                GoTo Got_the_info
           End If
        Next
        
        rst.MoveNext
    Next i

UP

@jjafferr @Barna @Shivan Rekany