أبو آدم

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

أخي العزيز لو أنك أرفقت مثالا للتطبيق والتعديل, مع بعض الشرح الإضافي, لتمكن الإخوة من مساعدتك.

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

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

جزيت خيرا أخي يوسف أداء جميل ، فكرة منسقة وتحليل متميز بارك الله لك وبك ونفعنا وإياك بما علمك آملا ، أن توضح للإخوة حدود حفظ الحقوق حتى تكون الأمور واضحة أحسن الله اليك ... ...

حياك الله أخي يوسف أهلا بك بين إخوتك و زملائك ...........

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

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

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

أحسنت ... أحسن الله اليك ، ونفع بك .....

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

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

الحمدلله صاحب الفضل .... آمين

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

إخوتي الأعزاء في معرض الحديث عن جدولنا المشهور (من جداول النظام) MSysObjects ، يتم التطرق دائما لفوائد هذا الجدول وكيفية الإستفادة منه. وهنا نستعرض فكرة فقط وليس مجمل ما يمكن ، فالافكار لا مقيد لها وحدود الاستفادة المتاحة كبيرة ، تختلف بتطبيقها من شخص لآخر ، والمهم تطبيق الفكرة وآليتها. الأصل بالأمر أن نظهر عناصر فئة معينة في مكان ما أو نجهزها لإستخدام ما ، ولنقل بأننا نريد قائمة بأسماء الجداول المحلية (غير جداول النظام ) ، في مربع قائمة في نموذج ، وهنا يكون مصدر الصفوف للمربع : SELECT MSysObjects.Name FROM MsysObjects WHERE (Left$([Name],1)<>"~") AND (Left$([Name],4) <> "Msys") AND (MSysObjects.Type)=1 ORDER BY MSysObjects.Name; ولاحظوا هنا أننا اشترطنا شرطين : الأول أن لا يكون اسمها يبدأ (Msys ) وهو ما يميز أسماء جداول النظام ، و أن تكون من النوع (1) وهو رمز النوع للجداول المحلية . وبذلك يظهر لدينا في القائمة أسماء الجداول المحلية فقط. وقبل الإستفاضة بالقول أطرح مسألة مهمة تحدد كيفية إستمراري في طرح الموضوع ، ألا وهي : هل يفي بالغرض الشرح فقط ؟ أم يلزمنا توضيح وتوثيق بالصور !!! أم لا بد من إدراج تطبيقات وأمثلة !!! بودي أن أستمزج الآراء حتى تعم الفائدة قدر الإمكان ... وللحديث بقية ....... ............

الحمد لله الذي بفضلة تقضى الحاجات أداؤك مبشر بالخير ... تابع برعاية الله (تمت الاجابة)

خلال التطبيق تم تفعيل وفتح أكثر من نموذج ، مثل عرض معلومات موظف في نموذج ومن خلاله تم فتح نموذج ثاني لمبيعات هذا الموظف ثم نموذج لطلبيات عميل من عملائه. في مرحلة معينة اريد اغلاق جميع النماذج مرة واحدة . دعونا نستخدم الكود التالي : do while forms.count>0 docmd.close acform,forms(0).name loop ,>>>>>>>>>>>>>>>

شكرا لمرورك الطيب ونستكمل الحديث قريبا بإذن الله .....

نستخدم في التطبيق بحكم الحاجة الكثير من الرسائل و التنبيهات ، وفي كل مرة نضطر لكتابة الكود وتحديد موصفات وخصائص صندوق الرسائل ، النص و ضبط الازرار و الشكل و العنوان و,,, و,,, فدعونا ننشيئ وحدة نمطية نستدعيها عند اللزوم Public Function MsgOK(MsgText As String) As Boolean Dim LResponse As Byte Dim MsgTitle As String MsgTitle = " تنبيه " LResponse = MsgBox(MsgText, vbInformation + vbMsgBoxRight, MsgTitle) If LResponse = vbOK Then MsgOK = True Else MsgOK = False End If End Function وحين نحتاجها نستدعيها Call MsgOK("بسم الله الرحمن الرحيم")

أخي العزيز كنت بحاجة المرجع Microsoft DAO 3.6 Object Library تفضل .......... ................ Empl.rar

إخوتي الأفاضل ياسر الحافظ أصبح متخصصا بفتق جعب الرقائق حين تطغى درر القلوب على شح النفوس ، تسمع العجب العجاب ، ... حين تصدح الالسنة بالحق وللحق تتجلى حقائق الصدور ... حوار محترم صادق بين منظومة محترمة من طلاب العلم ، يتقاذفون الفضائل ، وكل منهم يلقي بأزهار الفضل يمنة ويسرة ، مبتهلا أن تصيب غيره ، ويشيح بوجهه متواضعا. حين أكون بين من هم كذلك ، تتناثر عن كاهلي أثقال الإبتلاء ، وتعلو الهمة ، ... فتلكم أخلاق طلاب علم ودأب من تربى على فضائل العلماء. وحوار عبدالله مع إخوته ،، يذكرني بأبيات لمعلم من الشعراء ... يا طالبَ العلم أنت الشمس ساطعة من فيض علمك خيراتٌ ستنهمـــرُ يا طالب العلم أبشر قد غدوت لنا عزاً ومجداً وبالأمجـــادِ نفتخـــرُ هذَّبْتَ روحا بأصنافِ العلوم وقـد سَمَوْتَ فوق جيوشِ الجهلِ تَنْتَصــرُ قد كنت في أول الأيـام نَبْتَتُنــا بالدمع نَسْقي وللأثمـار نَنْتَظِــــرُ تنمو وتكبر والأيـام تصقلهــا صقل الخبيــر لِـُدٍّر منـهُ نَنْبَهِــرُ هنيئا لكم بالطيبات القابعات في قلوبكم ... .......

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

جزيت خيرا أبا خليل جاري الإطلاع .... ......

Date And Time At Forms Caption لإظهار تاريخ اليوم والوقت بدل اسم النموذج ، الكود التالي يفي بالغرض مع تثبيت الرقم 1000 في Timer Interval Private Sub Form_Timer() Me.Caption = " Today is " & "Date :" & " " & Format$(Now()), "dd mm yyyy " & " Time : " & "h:mm:ss AMPM" End Sub >>>>>>>>>>>>

قيد الاجراء باذن الله