اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

محمد طاهر عرفه

إدارة الموقع
  • Posts

    8,486
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    36

كل منشورات العضو محمد طاهر عرفه

  1. السلام عليكم الموضوع من هنا ملاحظة : أرجو اتباع قواعد المشاركة من حيث العنوان المعبر عن السؤال ،و البحث قبل الطرح و أهلا بك فى المنتدي مع تحياتي
  2. الملف المرفق به مثالين أحدهما للأخ طارق و الثاني للأخ أبو هادي و قد شارك فى خطوات اعداد المثال أشرف و أبو هاجر و المثالين هما آخر تطوريرات النموذج الاول ( مثال طارق ) للتقويم الميلادي و الثاني ( مثال أبو هادي ) للتقويم الهجري و الميلادي و أم القري مع الشكر لهم جميعا :d ملاحظة : المثال المرفق عدل ليشمل ملف طارق فقط ، بعد إضافة أبو هادي للنسحة الأخيرة من مثاله فى المشاركة التالية : Calender.rar
  3. السلام عليكم أخي الكريم ، ان الكود سيختلف طبعا مع اختلاف تصميم الجداول ، و اسمح لي أن أختلف معك قليلا فى التصميم الاساسي للجداول :lol: و مرفق ملف به التصميم الذي أراه مناسبا للبرنامج الذي وصفته و قد أعددته علي عجل ، فأرجو مراجعته ، فربما يكون به أخطاء للاستعجال :SHY: ، و به بعض الاستعلامات التي ستستخدم كأساس لتنفيذ عملية التسكين فى الخطوة القادمة طبعا قد لا يوفي التصميم كل احتياجاتك ، و لكن هذه هي الحقول التي سنحتاجها فى تنفيذ ما تريد فأرجو تصفحه و اخباري برأيك فيه ، لنكمل الجزء الباقي الخاص بتسكين الرغبات بناء علي التصميم اذا وافقك هذا التصميم و الفكرة العامة للكود ستكون البدء بالتسكين بترتيب الاستعلام الذي تم فيه ترتيب رغبات الطلاب بحسب درجاتهم ، و ما أن يتم تسكين طالب سيتم تسجيل ذلك فى الحقل المخصص في جدول الطلاب ، و يتم انتقاص الفرص المتبقية من فرص الشركة بواحد و بعد ذلك نأخذ الطالب التالي فى الترتيب و نختبر أولي رغباته ، و هكذا .. و مع كل طالب يتم تسكينه سيتم تسجيل ذلك فى الحقل المخصص فى جدول الطلاب حتي لا نتعامل معه فى باقي الكود ، و ما أن يتم التسكين علي شركة معينة فى مادة معينة ، سننتقص واحد من عدد الفرص المتبقية فى جدول الفرص لهذه الشركة و ذلك للمادة التي تم التسكين عليها و اذا لم توف رغبة الطالب الاولي سنتخبر الثانية و هكذا .. ملاحظة ك تم تعديل الملف فى مشاركة لاحقة مع تحياتي
  4. افتح محرر البيزيك ALT+F11 اختار Tools vba project properties protection lock project from viweing و اكتب كلمة السر و هذا كافي للحماية من غالبية المستخدمين اللهم الا من سيحاولون العبث ببعض ادوات كسر كلمات السر و لذلك يستحسن أن تجعل كلمة السر مزيج من الاحرف و الكلمات و أن تجعل بعضها كابيتال و ذلك من أجل تصعيب المهمة علي برامج الاختراق وأن تجعلها كلمة طويلة
  5. مثال لكتابة الاسم الكامل ، ثم تقسيمه الي أجزاء بالنقر المزدوج عليه Splitnames.rar
  6. السلام عليكم أهلا بالأخ أبو إسراء و في انتظار مشاركاتك الأخ المبرمج ، اذا قصدت برنامج الفيجوال بيزيك نفسه ، فأقترح طرح السؤال فى قسم الفيجوال بيزك فى منتدي الابداع من أجل أن يكون فى مكانه و يستفيد منه الجميع http://www.al-ebda3.info/ib/
  7. السلام عليكم مرفق المثال بعد التعديل بالنسبة للنموذج الغير منضم أي الذي لا يوجد له مصدر بيانات هنا بعد دراج السجل اذا لم يكن الرقم مكرر ، فلا توجد مشكلة ، و لكن لكون النموذج غير منضم ، لم أصل بعد لكيفية التعامل مع حالة عدم اضاف السجل نتيجة لتكرار الرقم ( سبق تسجيله من قبل فى الجدول ) أي البحث عن خطأ نتيجة لعدم الاضافة و مثلما فى مثال النموذج المنضم ، لا يمكننا الاعتماد علي مجرد اختبار وجود القيمة فى الجدول ، حيث أنه قد يضيفها مستخدم آخر بعد اختبارها و هي فى الاغلب لها حل ، و لكن لم يحضرني حاليا فنشرت المثال لكي لا أتأخر ، و قد قمت بحل تحايلي فى حالة النموذج الغير منضم و هو التأكد من القيم المناظرة للرقم و مقارنتها فى الجدول بنظيرتها فى النموذج . و بالنسبة للمثال السابق الخاص بالنموذج المنضم ، أضفت اليه التأكد من عدم ترك الاسم فارغ قبل التسجيل و في انتظار إضافاتكم بخصوص كيفية التأكد من اضافة السجل من عدمه فى حالة النموذج الغير منضم ( أي اذا كان المسلسل موجود فلن يتم اضافة السجل ، و المطلوب هو كيفية معرفة هل أضيف أم كان موجود أصلا ، فى حالة النموذج الغير منضم . ( التي تناظر فى مشاركة الاخ أبوهادي معرفة حدوث الخطأ بالتحرك الي سجل جديد ، فسيرفض التحرك اذا لم يتم حفظ السجل الحالي لوجود نفس رقم المسلسل فى الجدول ) و لكن فى حالة النموذج الغير منضم و حاليا تتم مقارنة الاسم فى النموذج ، بالاسم المسجل فى الجدول و اذا لم يكونا متطابقان يعطي رسالة خطأ فقط و لم أضف عملية زيادة واحد و المحاولة مرة أخري ،ـ لأنه بدون طريقة رقم الخطأ ليس لدي تصور عن كيفية كمل حلقة للتجربة كما فى مثال النموذج المنضم احد الحلول التي خطرت لي هو عمل حلقة 100 مرة مثلا ، لاستحالة ادخال 100 رقم متتالي مع عدد معقول من المستخدمين ، و لكن هذا الحل لم يعجبني ، فلم أنفذه فى انتظار اضافاتكم و أفضل أن نصل لحل مشابه لما فى النموذج المنضم ملاحظة : تم تعديل المثال فى مشاركة تالية مع تحياتي
  8. لعمل اخصار لملف اما تسحبه و انت ضاغط الزر الايمن للماوس و عند الافلات تختار create shortcut أو تستخدم Copy و تذهب للمكان الذى تريد عمل الاختصار فيه و تختار paste shotcut مع تحياتي
  9. تعديل الكود Private Sub Worksheet_Activate() xx: Dim x x = InputBox("Password required" & Chr(13) & "welcome to Officena", "Welcome to Officena") If IsNull(x) Or x = "" Then GoTo xx If x = 5 Then MsgBox "welcome to sheet2" Else MsgBox "Wrong Password" & Chr(13) & " you shall go to sheet 3 and not 2, Bye !!", vbOKOnly Sheets("sheet3").Activate End If End Sub
  10. من الايقونة المظللة بالاصفر و اذا لم تكن موجود فيمكنك اضافتها بالنقر الي أي مكان خالي فى شريط الايقونات بالزر الايمن و اختيار تخصيص customize و سحبها الي شريط الايقونات
  11. موضوع كلمة السر علي ورقة عمل ، تفضل الأخ حسام بطرحه كموضوع منفصل من هنا
  12. و عليكم السلام و رحمة الله و بركاته لنفرض أنك لا تريد فتح ورقة رقم2 الا بكلمة سر اولا تأكد من فتح الملف علي ورقة عمل أخري فى حدث الفتح للملف ككل Private Sub Workbook_Open() Sheets("sheet1").Activate End Sub ثم عند التفعيل لورقة رقم 2 فاذا أدخلت كلمة السر = 5 فسيرحب بك و تدخل الي ورقة رقم 2 و اذا ادخلت كلمة خطأ ، فسيتم ترحيلك الي ورقة رقم 3 و لن تدخل ورقة رقم 2 و ذلك بكتابة الكود التالي فى حدث عند التفعيل لورقة رقم 2 Private Sub Worksheet_Activate() If InputBox("Password required", "Welcome to Officena") = 5 Then MsgBox "welcome to sheet2" Else MsgBox "Wrong Password , Bye !!", vbOKOnly Sheets("sheet3").Activate End If End Sub
  13. و عليكم السلام و رحمة الله و بركاته اختار تنسيق الخلية أو الخلايا ثم تنسيق مخصص Format cell custom و ضع التسيق التالي 0000.00
  14. يمكن ذلك و يمكن ادخال البيانات فيها جميعا أو فى اكثر من شيت و ذلك باختيارها من التبويب Tab السفلي الذي فيه اسم الشيت ثم تطبيق التنسيق أو الادخال و لاختيار اكثر من شيت متباعد نضغط CTR و متتالي نضغط Shift و لاختيار الكل نختار اسم احد الشيتات بالزر الايمن ثم Select all sheets
  15. موقع الفريق العربي لتكنولوجيا الويب دورة في HTML ، دورة في الجافا سكربت ، دورة التجارة الالكترونية ، دورة في برنامج نورتون أنتي فيروس من هنا قسم الدروس فى الفريق العربي لتكنولوجيا الويب من هنا موقع الابداع لااسلامي دورة فى ال Network+ ((جديد)) من هنا دورة فى الفيجوال بيزيك من هنا دورة فى الأوركل من هنا علم قواعد البيانات من هنا 1 2 3 4 5 دورة فى الأكسس منتدي أوفيسنا :pp: من هنا و آخر نا ما تم اضافته اليها هو درس استعلامات التوحيد Union Queries بتاريخ 24-9-2003
  16. الآن عرفنا لماذ ا كنت تبحث عن ربط التسمية بمربع النص :) تطبيق رائع و كما قال طارق ـ، يفتح مجال للكثير و أعتقد أننا بحاجة لنتوقف أمام كيفية استغلاله ، أشعر بانه ستكون هناك اشياء كثيرة ، و لكن لم تختمر الافكار معي بعد ، و أتمني مشاركة الجميع فى وضع تصورات لكيفية الاستفادة من مثال الأخ ابو هادي و سأبدأ : أحد الاقتراحات استخدامه فى ادخال بعض البيانات كناتج عن تحريك الكائن من مكان الي آخر ، و تغيير خواص أخري مثل لون الخلفية مثلا نتيجة لتغيير المكان . أي مثلا الشاشة مقسمة الي 3 أماكن و بنقل الكائن من مكان لآخر تتغير بعض البيانات و يتغير اللون فيعتبر هذا نوع من انواع ادخال البيانات من واجهة رسومية و كتطبيق ايضا بالنسية لتقسم الاراضي الذي ستحدث عنه طارق ، ربما مثلا نقل عميل من قطعة الي اخري عن طريق تحربك اسمه الي تلك القطعة .. و هكذا ، و اذا كانت تلك القطعة من مستوي معين مثلا يتغير لون الاسم أي باختصار تعديل بيانات مسجلة فى قاعدة الباينات بناء علي تحرك الكائنات الي مواقع محددة. ز طبعا الاحتفاظ بالبيانات المحدثة فى جدول مثلما فى مثال أبو هادي مع تحياتي
  17. وينكم ؟؟ أين الاضافات و التصحيحات ؟ فى الانتظار :)
  18. من ملف الاكسيل DATA IMPORT EXTERNAL DATA NEW DATABASE QUERY و ختار MICROSOFT ACCESS و انقر عليه مرتين ليظهر مربع حوار لاختيار الملف و ختار ملف الاكسس ستظهر لك تفاصيله اختار منها الاستعلام الذي تريد و انقر علي الحقول المطلوبة ( تحديد الحقول المطلوب استرجاعها ) ثم انتقل للشاشة التالية لاختيار الحقول التي سيتم عمل شروط عليها و يليها شاشة أخري بها ترتيب البيانات ثم الشاشة الاخيرة فى المعالج و منها تختار RETURN DATA TO MS EXCEL و يمكنك حفظ الاستعلام الذي أنشأتهه بصيغة MS QUERY و انهي عمل المعالج سيسألك عن الخلية التي تريد ادراج الاستعلام الذي كونته فيها و بذلك تحصل علي ما تريد
  19. تم نقل الملف الي قسم الاكسيس العام من دورة الاكسيس لكي يكون واضحا بذاته لنتوقف قليلا أولا مع تصميم الجداول هل يوفي التصميم التالي متطلبات البرنامج لديك ؟؟ جدول الطلبة و بياناتهم و مرتبط به جدول الرغبات و به كود الطالب و كود المادة جدول الشركات و به بياناتها و مرتبط به جدول الفرص المتاحة و به كود الشركة و كود المادة و عدد الفرص المتاحة جدول المواد و به كود المادة و اسمها و لنؤجل كيفية عمل التوزيع الي حين الاتفاق علي الجداول
  20. شرح استعلامات التوحيد من هنا مرفق المثال Q8.rar
×
×
  • اضف...

Important Information