أبو آدم

أخي العزيز محمد جرب المرفق حيث تم انشاء فهرس لعدم تكرار الاسماء الثلاثة جرب ووافني بالنتيجة ان كان يناسبك ..... جرب تكرار الاسماء لأي سجل !!! NA_NameIndex.rar

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

يرجى الالتزام بقواعد المشاركة سيتم اغلاق الموضوع

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

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

فهمت انه ليس هناك اي ضوابط او شروط سوى معيار رقم الفصل فقط وأنك تريد اظهار 25 مقعد أو أقل في التقرير أظن أن مساهمة الاخ Sabha كافية وتفي بالغرض كما أسلف أنت فماأظن ان هناك ضوابط بقيت للحديث

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

أخي العزيز المرفقات إصدار 2007 وليس 2003

أخي العزيز ليس هناك شيئ لا يوجد له حل ، فالفتح والتوفيق من الله الموضوع هنا عزيزي لا يعدو أن يكون لحظات تفرغ وتركيز فقط ، فكل شيئ متاح عزيزي أجريت بعض التعديلات ، وكتبت لك الكودات التي تفي بالغرض وزيادة الروتين المقترح: فحص رقم الطالب المستهدف بالاجراء في جدول mhol حال وجودة ، يتم اشعار المستخدم باحتمالية تكرار الترحيل بموجب رسالة ويتم اغلاق الاجراء حال عدم وجود قيد سابق ننتقل للتنفيذ ، اذا كان رقم التحويل 1 نلحق السجل المستهدف بالجدول mhol ، ثم نلغي السجل من الجدول Student اذا كان رقم التحويل 2 نلحق السجل المستهدف بالجدول mhol اذا كان المقترح مناسبا أشعرني ليتم ارفاق التطبيق *** تجنبا لإضاعة وقت السائل ووقتنا ، فيما لا يناسبه ويحقق غاياته ****

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

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

إخوتي الأعزاء تم تعديل التطبيق أخي أبا خليل ... لطفا أعد تحميل التطبيق المرفق المرفق مجلد يحتوي ملف التطبيق قم بتشغيل التطبيق سيبحث التطبيق عن مجلد الصور ، وكونه غير موجود سيقوم بانشائه ، ثم يقوم بتحديث سجلات الجدول في التطبيق من محتويات مجلد الصور ، وحيث انه فارغ وحديث الإنشاء سيرشدك برسالة بأن المجلد تم إنشاؤه من قبل النظام ولا بد من تزويده بصور لغايات العرض قبل اعادة التشغيل مرة اخرى ، ثم يقوم باغلاق النظام. لا تقم باضاف أي ملف في المجلد ، وقم باعادة تشغيل التطبيق ، سيقوم بفحص وجود المجلد فيجده ، ثم يقوم بتحديث سجلات الجدول في التطبيق من محتويات مجلد الصور ،وحيث انه فارغ سيرشدك برسالة بأن المجلد فارغ ولا بد من تزويده بصور لغايات العرض قبل اعادة التشغيل مرة اخرى ، ثم يقوم باغلاق النظام. قم بتزويد المجلد بمجموعة من الصور (كما تشاء) وقم بتشغيل التطبيق ، سيقوم بفحص وجود المجلد فيجده ، ثم يقوم بتحديث سجلات الجدول في التطبيق من محتويات مجلد الصور ،وحيث انه مزود بملفات فيقوم بتشغيل النظام حسب الأصول ويعرص الصور وتعمل كافة إجراءات التطبيق كما يجب. وبذلك نكون قد غطينا كافة الاحتمالات . والله الموفق وهو المستعان بانتظار آرائكم ... تثرينا وتشد من أزرنا وتغنينا... NA_Electronic Library - V1.0.rar

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

تكرم علي برابط الموضوع السابق اذا سمحت !!!

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

نحن وإياكم شكرا لمرورك الطيب يا رفيقي العزيز

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

إخوتي الأعزاء هذا ايضا متاح قم بفتح وحدة نمطية جديدة وأدرج بها : Option Explicit Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _ ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function GetModuleHandle Lib "kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Long Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" _ (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, _ ByVal dwThreadId As Long) As Long Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long Private Declare Function SendDlgItemMessage Lib "user32" Alias "SendDlgItemMessageA" _ (ByVal hDlg As Long, ByVal nIDDlgItem As Long, ByVal wMsg As Long, _ ByVal wParam As Long, ByVal lParam As Long) As Long Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) As Long Private Declare Function GetCurrentThreadId Lib "kernel32" () As Long Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 Private hHook As Long Public Function NewProc(ByVal lngCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim RetVal Dim strClassName As String, lngBuffer As Long If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then RetVal = GetClassName(wParam, strClassName, lngBuffer) If Left$(strClassName, RetVal) = "#32770" Then SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If CallNextHookEx hHook, lngCode, wParam, lParam End Function Public Function InputBoxDK(Prompt, Optional Title, Optional Default, Optional XPos, _ Optional YPos, Optional HelpFile, Optional Context) As String Dim lngModHwnd As Long, lngThreadID As Long lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) InputBoxDK = InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, Context) UnhookWindowsHookEx hHook End Function وفي حدث عند التحميل للنموذج أدرج الكود التالي: Private Sub Form_Open(Cancel As Integer) Dim x As String x = "123" Dim y As String y = InputBoxDK("Enter Password for form") If x <> y Then MsgBox ("Invalid password") DoCmd.CancelEvent End If End Sub وننال المراد بإذن الله وللتطبيق اليك المرفق (كلمة المرور 123) والله من وراء القصد .... ..... NA_PasswordMaskedInputbox.rar

السلام عليكم ورحمة الله وبركاته إخوتي الأفاضل التطبيق المرفق كان قبل الحذف جزءا من الموضوع : http://www.officena.net/ib/index.php?showtopic=37230 ولأسباب تتعلق بطريقة إدارة الموضوع ، وبي شخصيا قمت بحذف المرفق. وخشية على نفسي من حجب ما تعلمت ، وطمعا في عموم الفائدة ، وبعد مراجعة نفسي ، قررت اعادة ارفاق التطبيق في موضوع مستقل . يحتوي المرفق تطبيقات فرز مربع قائمة بالاعتماد على مربع قائمة آخر تنقل تلقائي بين صفوف مربع القائمة طباعة تلقائية لتقرير حسب معايير محددة وبعدد متغير التطبيق المرفق يقوم بفرز ارقام اللجان وأسمائها في مربع قائمة وفي مقابله مربع قائمة آخر لفرز أسماء أعضاء اللجنة مربع نص لرقم اللجنة الحالية و مربع نص آخر يحصي عدد أعضاء اللجنة كود لنقل الضوابط والشروط للتقرير وكود آخر يحمل منظومة الضوابط ويسيطر على القوائم و النصوص ويرتب الإجراءات كما طلبت ، ويصدر أمر الطباعة ، وينتقل تلقائيا من خلال مربع القائمة للجنة التالية ، ويكرر الإجراءات ، وهكذا ... ،، ... ،، حتى آخر لجنة في القائمة. كل ما عليك فعله هو (الضغط) على زر الأمر الوحيد (Scroll & Print) واترك الباقي للتطبيق. معك الإمكانية لفرز مئات اللجان ومئات الاعضاء (بإذن الله( المرفق يمكن أن يصنف كتطبيق بسيط من عائلة (SMART Automation) او (One click) ، ضغطة زر واترك العمل للأتمتة الذكية للعلم : التطبيق صغير ولكن مفعوله كبير - بإذن الله والله من وراء القصد.... NA_AutoMultiReportPages.rar

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

أخي أبا الوليد يرجى ارفاق قاعدة بيانات كمثال ، لمساعدة إخوتك في التطبيق و التعديل وتقبل الله منا ومنكم الطاعات .....

أخي العزيز إستخدم الكود التالي Private Sub Form_Open(Cancel As Integer) Dim x As String x = "password" Dim y As String y = InputBox("Enter Password for form") If x <> y Then MsgBox ("Invalid password") DoCmd.CancelEvent End If End Sub قم باستبدال password بكلمة المرور التي تريد في كل نموذج ووافني بالنتيجة ...

كل الشكر و التقدير للإخوة على جهدكم الطيب نفع الله بكم وبعلمكم وسيعيكم

جزيت خيرا أخي العزيز

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