محب العلم

السلام عليكم أخي شريف ، تم إضافة خاصية جديدة لجميع نماذج الإدخال وهي عرض النموذج للحقول الرئيسة في وضع قائمة بيانات مع سماح تعديل البيانات التعديل رقم 3 : تحياتي

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

الأخ محمد صالح جازاك الله خيرا وأدخلك الجنة الله يعطيك ألف ألف ألف عافية أنه أروع برنامج رأيته في حياتي شكرا جزيلا لك وننتظر منك المزيد

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

تمام ، شكرا لك أخي محسن

أخي شريف ركز معاي ، لا مشكلة في الرابط تحياتي

أخي ، وضعت مشاركتك في منتدى الأكسيس وملفك في الأكسل تحياتي لك

الأخ بركان ، إذا أردث تفريغ القائمة التي اسمها الثانية التي اسمها b في زر الأمر الخاص بالتفريغ أو في المكان الخاص بالتفرغ تضع ما يآتي : For i = 1 To Me.b.ListCount Me.b.RemoveItem (0) Next i تحياتي

السلام عليكم ، لإهتمام الأخ شريف ، شكرا لك أخي على التوضيحات المتواصلة التي من شأتها بإذن الله أن تصلنا إلى ما تصبو إليه . بعد دراسة مستفيضة ومتمعنة وتحليل النظام قمت بحمد الله ببناء الجداول وإنشاء النموذج العلائقي المطبع (العلاقات) لهذه المسألة وهو كما يلي : وقمت كذلك برفع الجداول لك لكي تراجع تصاميمها وحيثياتها وإن كان عندك استفسار أرجو طرحه . بعد ذلك خلال الييومين الأتيين سأصمم لك نماذج الإدخال لكي نقوم بعمليات الإدخال التجريبية (إن شاء الله) الجداول: تحياتي

السلام عليكم كما وعدتكم أرفع هنا مجموعة من القوالب الجاهزة (حوالي 200 قالب ) بمجرد الدخول على أي منها في البوربوينت يمكن عمل باقي الشرائح بإدراج شريحة مكررة فيما يآتي كل نقطة عبارة عن رابط لملف يمكن تنزيله عندكم تفـضلـوا : 1.قوالب لإدارة الأعمال والتجارة 2.قوالب للمالية 3.قوالب اجتماعية 4.قوالب رياضية 5.قوالب تكنولوجيا 6. قوالب استكشاف 7. قوالب اعياد وهنا أرفع هذا الملف وفيه بعض القوالب المنتقاة عشوائيا للتجربة : powerpoint.rar تحياتي

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

حياك الله ، هذا مثال مصور MultiFieldKey.rar تحياتي

حياك الله أخي ، العملية تتم بفحص كلمة السر في حدث عند الحدف (يعني قبيل الحذف) تضع الكود الآتي : كود Private Sub Form_Delete(Cancel As Integer) TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "إدخال كلمة المرور" str_Prompt = "الرجاء إدخال كلمة مرور" If InputBox(str_Prompt, str_Title) = "good" Then Exit Sub Else Cancel = True End If End Sub لاحظ هنا أننا من خلال صندوق الادخال InputBox ندخل كلمة السر قبل الحذف فإن كانت صحيحة لا نعمل شيء بمعنى exit sub نخرج من الإجراء، وإن كانت خاطئة نلغي عملية الحذف وذلك عن طريق الكود cancel = true حيث cancel كما تلاحظ هي معلمة الحدث . أما بالنسبة لطباعة النجوم عند إدخال كلمة السر في صندوق الإدخال فهذه لوحدها حكاية وهي مرتبطة بالكود الموجود في الوحدة النمطية التي في المثال والتي يتم تفعيلها قبيل طلب صندوق الإدخال بواسطة الجمل الآتية كود TimerId = SetTimer(0, 0, 1, AddressOf TimerProc) str_Title = "إدخال كلمة المرور" str_Prompt = "الرجاء إدخال كلمة مرور" إذا أردت حل بسيط جدا بدون النجوم stars (****) التي تظهر مكان كلمة السر يكون الحل هكذا كود Private Sub Form_Delete(Cancel As Integer) If InputBox("إدخال كلمة المرور", "الرجاء إدخال كلمة مرور") = "good" Then Exit Sub Else Cancel = True End If End Sub وبإمكانك في هذه الحالة حذف الوحدة النمطية delete.rar أنصحك بالحل الكامل وهو الحل الأول تحياتي لك

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

الشاي الأخضر ، الكتب الصادرة بمعنى (الرسائل الصادرة) تنشيء جدول جديد وتضع فيه الحقول الأتية الرقم وهو رقم الكتاب ونوعه نص من 20 حرفا أو أكثر حسبما تحتاج وتجعله مفتاح أساسي لئلا يتكرر المرسل_له وهو نص المرسل وهو نص التاريخ ونوعه تاريخ الموضوع وهو نص الرابط وهو رابط حيث ستربط فيه الملف الذي سترسله ليعمل البرنامج بالإضافة لكونه برنامج صادر أيضا كأرشيف للرسائل الصادرة ثم تعمل نموذج بناء على هذا الجدول وتعبىء البيانات وإن احتجت لمساعدة يمكنك طلبها تحياتي

الأخ شريف ، شكرا على الشرح والتوضيحات مما فهمته من المسألة المعروضة استطعت رسم يساعد في فهمه بطريقة سهلة ويؤكد العمليات التي سآتي على ذكرها أولا : الرسم التوضيحي بشكل مخطط هيكلي ثانيا : ثوضيح الرسم تبين لي من شرحكم السابق أن المشروع في هذه المسألة يتعلق بعمل برنامج لمتابعة الحوادث التي تقع في محافظة ما . هذا المركز (مركز متابعة الحوادث ) هو جزء من شبكة وطنية تمتد في أرجاء المحافظات وتتفاعل هذه المركز معا. الطريقة : 1. يقع حادث (حريق أو انزلاق تربة أو غيرها لا سمح الله ) في أحد المواقع في المحافظة 2. يتصل شخص ما من موقع الحادث بمركز المتابعة التابع لتلك المحافظة ويبلغ عن الحادث وعن الحاجات الطبية كما يتوقعها حسب نوع الحادث 3. في مركز المتابعة حيث يوجد معلومات محدثة عن وضع الاسرة في المستشفيات وعن جاهوزية وحدة الاسعاف ويقوم بناء على هذه المعطيات المهمة بإرسال الوحدات الطبية اللازمة إلى موقع الحادث أخذا بعين الاعتبار قرب هذه الطواقم من موقع الحادث ويقوم بتوجيها إلى أقرب مستشفى يتوفر فيه العناية المطلوبة. 4. إذا لم يتوفر الوحدات الكافية للحادث يتم الاتصال بمراكر متابعة الحوادث في المحافظات القريبة حسب المعلومات ايضا المتوفرة لدينا عن جاهوزيتها للعمل ويطلب منها المساعدة إذا كان هناك أي تعديل أو أي خطأ في الفكرة (التصور) الذي عرضته للمشروع أرجو إعلامي قبل البدء إنشاء وربط الجداول حسب بيئة النظام المعروضة أعلاه. تحياتي

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

أسف جدا أخي زين ، لا استطيع المتابعة في هذا الموضوع لأن نسخة 2007 التي عندي تعطلت ولن اركب نسخة منها قريبا آمل أن تجد من الأخوان من يساعدك تحياتي

نعم أخي ، لا بد من وجود طريقة برمجية حيث أن الأمر وذلك بواسطة CommandBars حيث على سبيل المثال CommandBars("Menu Bar").Controls("Edit").Visible = False وذلك لإخفاء قائمة تحرير edit من شريط الأوامر طبعا هنا الموضوع يتعلق بمعرفة الاسم المناسب الذي يجب أن نستخدمه الكود الآتي يطبع لك جميع الأسماء Public Sub ListCommandBars() ' Purpose: Lists all available command bars in ' this Office application. Dim objCommandBar As Office.CommandBar Dim strResults As String Debug.Print "Command bars in this application:" For Each objCommandBar In Application.CommandBars Debug.Print objCommandBar.Name & _ " (" & GetCommandBarType(objCommandBar.Type) & ")" Next objCommandBar End Sub وهنالك العديد من الإجراءات التي تمكنك من اظهار أو اخفاء أو انشاء أو اضافة أوامر في القوائم هــــــــــــنـــــــــــــا ولكنك ستكون بحاجة إلى مرجع خاص وهو Microsoft Visual Basic for Applications Extensibility 5.3 library - VBE6EXT.OLB تحياتي

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

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

هل تستخدم أكسيس 2007 ؟

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

حياك الله أخي ، المشكلة أنه يوجد علاقة خطأ ، احذفها وثم قم ببناء علاقة جديدة حسب الشكل الآتي : تحياتي

حياك الله أخي ، هذا العمل تم تلقائيا هكذا الخطوة الأولي من شريط الأدوات في النموذج نختار مربع تحرير وسرد ثم نضغط في داخل النموذج في مكان ما ثم نختار في القائمة التي تظهر الخيار رقم 3 هكذا ... الخطوة الثانية نختار next ثم ندخل الحقول ثم هكذا الخطوة الثالثة next ثم finish هكذا لو كنت تعمل في بيئة access 2003 تستخدم نفس الخطوات تماما تحياتي