نجوم المشاركات

بسم الله الرحمن الرحيم اولاً الشكر كل الشكر الى اساتذتى الكرام الذى بفضلهم وصل المشروع الى هذا الحد وبالاخص : استاذ : جعفر لك جزيل الشكر استاذ : ابو عبدالله لك جزيل الشكر استاذ : شيفان لك جزيل الشكر استاذ : ابو خليل لك جزيل الشكر شرح العمل ببساطة يقوم المستخدم باختيار الالوان التى يريدها من نموذج color وتطبق على جميع البرنامج فقط قم باستدعاء هذه الداله فى حدث عند التحميل Call Color_V(Me) وسوف تقوم هى بضبط الاعدادات قم بستدعاء الوحدات النمطية والجدول الخاص بالتخزين الاكواد و النموذج الى برنامجك دون تعديل ويتوفر بالاصدارين لـ2010 و لـ2003 ونتمنى من اساتذنا ان يقوموا بتعديله حتى يصبح برنامج كبرنامج مسقط التقارير او القلعة ولا اسألكم سوي الدعاء Color 2010.zip Color2003.zip

استاذى وأخى // محمد صالح السلام عليكم ورحمته الله وبركاته انا قلت فى عقل بالى ياواد يابيرم سيبك من المرجع وخليك من على الدائرى أسرع أما عن الهروب فالاجمل منه عودتكم الحميده التى طال انتظارها وفقنا الله جميعا الى مايحب ويرضى *** تقبل وافر احترامى وتقديرى *** وجزاكم الله خيرا

بسم الله الرحمن الرحيم وبه نستعين ما أحلى الصحبة الطيبة المباركة العامرة بطيب القلوب الصافيه بصفاء النفوس والسماء بعد إذن جميع السادة الاخوة الافاضل مع حفظ الالقاب / ناصر المصرى - سليم حاصبيا - محمد صالح - ياسر خليل ابو البراء إثراءا للموضوع اليكم حل أخر بالمعادلات يشتمل على الطريقيتين فى مرفق واحد أرجو أن يفى بالغرض أولا طريقة العمود الواحد بخلية كسر الجنية توضع المعادلة التالية للحصول على فرق القروش بين جملة المستحق وجملة المستقطع =MOD(CO8-SUM(CP8:CS8);1) بخلية جملة المستقطع توضع المعادلة التالية لاضافة كسر الجنية حتى 99 قرش على جملة المستقطع =SUM(CP8:CS8)+MOD(CO8-SUM(CP8:CS8);1) بخلية الصافى توضع المعادلة التالية للحصول على الصافى بدون قروش =CO8-SUM(CP8:CS8)-MOD(CO8-SUM(CP8:CS8);1) ثانيا طريقة عمودين القرش والجنيه بخلية كسرالجنيه فقط توضع المعادلة التالية للحصول على فرق القروش بين جملة المستحق وجملة المستقطع أما عن باقى معادلات الملف تبقى كما هى " ونقى اللى على كيفيك ياعم ناصر" ولاتنسى دعواتك للجميع =MOD(100*SUM(CL13;CK13/100);100)-MOD(SUM(100*SUM(CN13;CP13;CR13;CT13);CM13;CO13;CQ13;CS13);100) الحمد لله الذي هدانا لهذا وما كنا لنهتدي لولا أن هدانا الله **** تقبلوا وافر احترامى وتقديرى وجزاكم الله خيرا كسر الجنية بالمعادلات - سعيد بيرم.rar

السلام عليكم ورحمة الله وبركاته ***** لا تستخدم هاتفك الشخصي ، فالبرنامج سيحذف جميع الصور التي في المجلد sdcard/DCIM/Camera ***** هذا جزء رقم 1 من مشروع متكامل لتصوير الاشخاص والمستندات بإستخدام الكاميرات والماسح الضوئي (Scanner) ، والمشروع يتكون من: يعني مو بس البرامج الكبيرة تستخدم هذه التقنيات ، وإحنا بعد وهذه الاجهزة ستكون لتصوير الاشخاص والمستندات ، ان شاء الله التصوير عن طريق كاميرا هاتف اندرويد ، وتمت التجربة على هاتف اندرويد Galaxy S3 بنظام 4.4 و Huawei Mate 7 بنظام اندرويد 6 ، التصوير عن طريق WebCam ، وتمت التجربة على Logitec HD c615 ، التصوير عن طريق الكامرات الكبيرة من نوع DSLR ، وتمت التجربة على Nikon D5100 او Canon Mark iii ، تطويع الماسح الضوئي لتصوير المستند/المستندات ، وحفظ المستندات الى اي مجلد ، بصيغة pdf او jpg العمل غير مكتمل 100% ، والخطوات التي على قائمة العمل: 1. إعطاء المستخدم الآلية لتحديد مكان قطع الصورة (لمرة واحدة طبعا) ، وحذف الزوائد ، مثلا: الخلفية الثابته: . تصوير الشخص . قطع الصورة وحذف الزوائد (برمجيا) . وكذلك يمكن الاستفادة منه في تصوير مستندات A4 او A5 ، وقطع الصورة وحذف الزوائد (طبعا يكون هناك زر للـ A4 وزر آخر للـ A5) 2. ماذا لو اردت حفظ صورة / مستند ، وكانت هناك صورة سابقا بنفس الاسم؟ سيكون للمستخدم 3 اختيارات: أ- احذف الصورة القديمة واستبدلها بالصورة الجديدة ، ب- اعطي الصورة الجديدة الرقم التسلسلي التالي ، حسب آخر رقم موجود للصورة ، مثلا: الصورة الموجودة سابقا 1.jpg او Inward_2017_05_06.jpg والصورة الجديدة ستصبح 1_001.jpg او Inward_2017_05_06_001.jpg هذه العملية تنفع للأرشفة ج- دائما اجعل الصورة الجديدة بدون ترتيب ، واجعل الصورة السابقة تأخذ آخر رقم ، مثلا الصورة الموجودة سابقا 1.jpg او Inward_2017_05_06.jpg وآخر صورة في المجلد لنفس الصورة هي 1_001.jpg او Inward_2017_05_06_001.jpg عليه سنأخذ آخر صورة موجودة في المجلد ونعطيها الرقم التسلسلي التالي 1_002.jpg او Inward_2017_05_06_002.jpg والصورة الجديدة التي سنلتقطها ستكون 1.jpg او Inward_2017_05_06.jpg هذه العملية تنفع لبرامجنا والتي تستعمل اسم الصورة ، والذي يكون رقم الموظف مثلا وبقية الصور تسلسلها حسب القِدم . 3- حفظ الصور افقيا او عموديا. والآن الى برنامجنا التصوير عن طريق كاميرا هاتف اندرويد اولا: تهيئة الهاتف (البرنامج المرفق فيه المادة رقم2 ، ولا يوجد داعي لإنزاله) : رجاء اتباع الخطوات التالية ليكون الهاتف مهيأ للإتصال بالبرنامج ، ويجب ان يكون الهاتف موصل بالكمبيوتر عن طريق USB: 1- يجب ان يكون الكمبيوتر متعرف على هاتفك ، ويمكنك انزال هذا التعريف من شركة هاتفك ، او من الرابط التالي ، رقم 1 : http://adbshell.com/downloads . وبرنامجنا محتاج الى البرنامج الذي في الرابط اعلاه ، رقم 2 ، والذي لا يحتاج الى تنصيب (ونضع محتواه في المجلد Android_Mobile كما في الصور في الاسفل) ، او اذا اردت البرنامج اعلاه من مصدر آخر وبه SDK الاندرويد (اي جميع برامج التحكم في جزئياته) ، فيمكن تنزيله من الرابط: https://dl.google.com/android/repository/platform-tools-latest-windows.zip 2- يجب ان يكون هاتفك في وضع Developer Options ، كما في الصورة: . واذا لم يكن ، فعليك اتباع الخطوات التالية لعمله : من الاعدادات . وسترى . ثم انقر على المربع الاحمر ، ليأخذك الى الصورة التاليه ، واختار المربعين بعلامة صح . وعند ربط الهاتف بالكمبيوتر ، اختار من الهاتف . وعند تشغيل البرنامج ، سيطلب منك الهاتف الموافقه على السماح بالكمبيوتر التحكم فيه ، فاختار السماح ، 1 ثم 2 . الآن هاتفك مهيأ للتحكم فيه من خلال البرنامج ، ورجاء اجعل الهاتف في وضع الاغلاق (حيث تكون الشاشة سوداء) ، 3- مجلد برنامجك يجب ان يكون بهذه الطريقة . البرنامج مفتوح المصدر ، وتحتاج لمسك مفتاح Shift عند النقر المزدوج على ايقونة البرنامج لفتحه ورؤية الكود ، - البرنامج يفتح على النموذج frm_Main حيث تختار اسم الشخص او رقمه ، . وعند النقر على تفاصيل الموظف او تفاصيل الموظفين ، يفتح النموذج frm_Names ، وتلقائيا سترى ان الهاتف اشتغل ، وعند الخروج من النموذج سوف يغلق الهاتف ، في النموذج frm_Names ، عند النقر على هذه الايقونة سيتم التصوير . وخلال 8-9 ثوان ، سترى الصورة داخل النموذج ، ان شاء الله ويمكنك جعل الهاتف يأخذ الصورة بالفلاش ، من اعدادات الهاتف نفسه ، هذا كود البرنامج بطريقين ، الطريقة الاولى والتي تأخذ الوقت الاقل ، وتركت الطريقة الثانيه الابسط هنا كذلك للذي يريد اللعب فيه وتغييره: Private Sub Form_Load() Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'turn on the Device cmmd = " shell input keyevent KEYCODE_POWER" Call Shell(App_Location & cmmd, vbHidden) End Sub Private Sub Form_Close() Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" 'turn off the Device cmmd = " shell input keyevent KEYCODE_POWER" Call Shell(App_Location & cmmd, vbHidden) End Sub Private Sub cmd_Android_Camera_Click() On Error GoTo err_cmd_Android_Camera_Click 'KEYCODE_POWER = 26 'KEYCODE_CAMERA = 27 'KEYCODE_BACK = 4 'KEYCODE_HOME = 3 Dim cmmd As String 'how long does it take to take the picture istart = Timer 'set BE_Path Call BE_or_FE 'Adb location App_Location = BE_Path & "Camera_App\Android_Mobile\Adb.exe" Save_images_to = BE_Path & "images\" 'image capture mode cmmd1 = App_Location & " shell " & Chr(34) & "am start -a android.media.action.STILL_IMAGE_CAMERA" & "; sleep 1; " cmmd2 = "input keyevent KEYCODE_CAMERA" & "; sleep 2; " cmmd3 = "input keyevent KEYCODE_BACK" & ";" & Chr(34) cmmd = cmmd1 & cmmd2 & cmmd3 'Debug.Print cmmd Call ShellWait(cmmd, vbHidden) 'transfer the image to the PC cmmd = App_Location & " pull /sdcard/DCIM/Camera/ " & Save_images_to & "temp\" Call Shell(cmmd, vbHidden) 'Delete the pictures from the mobile camera folder cmmd = App_Location & " shell rm /sdcard/DCIM/Camera/*.jpg" Call Shell(cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the existing Employee_ID Kill Save_images_to & Me.Employee_ID & ".jpg" 'move the picture from folder temp and change its name Dim StrFile As String StrFile = Dir(Save_images_to & "temp\") Do While Len(StrFile) > 0 Mobile_Pic = StrFile StrFile = Dir Loop Name Save_images_to & "temp\" & Mobile_Pic As Save_images_to & Me.Employee_ID & ".jpg" PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" 'Delete the temp folder RmDir Save_images_to & "temp\" 'MsgBox Timer - istart Exit Sub to_Here: 'image capture mode cmmd = " shell " & Chr(34) & "am start -a android.media.action.STILL_IMAGE_CAMERA" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) 'Dim PauseTime, Start PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'take a picture cmmd = " shell " & Chr(34) & "input keyevent KEYCODE_CAMERA" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'exit the image capture mod cmmd = " shell " & Chr(34) & "input keyevent KEYCODE_BACK" & Chr(34) Call ShellWait(App_Location & cmmd, vbHidden) Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'transfer the image to then PC cmmd = " pull /sdcard/DCIM/Camera/ " & Save_images_to & "\temp" Call ShellWait(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the image from the camera cmmd = " shell rm /sdcard/DCIM/Camera/*.jpg" Call Shell(App_Location & cmmd, vbHidden) PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the existing Employee_ID Kill Save_images_to & Me.Employee_ID & ".jpg" 'move the picture from folder temp and change its name 'Dim StrFile As String StrFile = Dir(Save_images_to & "temp\") Do While Len(StrFile) > 0 Mobile_Pic = StrFile StrFile = Dir Loop Name Save_images_to & "temp\" & Mobile_Pic As Save_images_to & Me.Employee_ID & ".jpg" PauseTime = 1 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop 'Delete the temp folder RmDir Save_images_to & "temp\" 'show the picture in the Form Me.Pic.Picture = Save_images_to & Me.Employee_ID & ".jpg" 'MsgBox Timer - istart Exit_cmd_Android_Camera_Click: Exit Sub err_cmd_Android_Camera_Click: If Err.Number = 53 Then 'No picture to delete Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub والبرنامج حاليا للمتطوعين الذين يعرفون ان البرنامج لا يحتوي على اي ميزات غير التصوير وحفظ الصور في المجلد Images ، وربط الصور برقم الموظف ورجاء اخبرونا عن نتائج تجربتكم وملاحظة هامة: ***** لا تستخدم هاتفك الشخصي ، فالبرنامج سيحذف جميع الصور التي في المجلد sdcard/DCIM/Camera ***** جعفر Camera_Scanner.zip

وعليكم السلام البرنامج بسيط وجميل وخارج عن المألوف ، تسلم ايدك ومتكامل جعفر

السلام عليكم اخى الكريم انظر الملف.. وان كان هناك من ملاحظات يرجي تحديدها بشكل دقيق مع تحديد ماذا وان لم يكن هناك اى نوع من المنتج يمثل 80% او اقل قليلاُ او اكثر .. هل يتم تحديد النوع الاكثر مبيعاً لهذا المنتج ام لا يتم التحديد .. او ان تقوم حضرتك بالحل بشكل يدوي لمعرفة شكل النتائج المتوقعة .. Best1_3.zip

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

استأذن من استاذنا @أبو عبدالله الحلوانى اتفضل خذا هذا Private Sub المبلغ_AfterUpdate() Forms![نموذج1]![الشهر الحالي2].SetFocus Forms![نموذج1]![الشهر الحالي2].Requery End Sub

شكرا أستاذ محمد تم حل المشكلة بوضع هذا الكود DoCmd.Requery If [Research_ID] = [d1] Then Query5.Visible = True frame.Visible = True Else frame.Visible = False Query5.Visible = False MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! " End If End Sub

السلام عليكم ورحمة الله وبركاته كنت قد وضعت هذا المثال في منتدى الفريق العربي للبرمجة ، وأخي ابو الآ ما قصر وعمل نسخة منه الى هذا المنتدى (انا لم اكن من روّاد هذا المنتدى حينئذٍ) على هذا الرابط: http://www.officena.net/ib/topic/58001-منقول-هدية-برنامج-تصدير-بيانات-من-جداولاستعلامات-اكسس-الى-اكسل/ والآن ، وبعد عمل مجموعة تعديلات عليه واصبح في نسخته الخامسة ، واهمها ان البرنامج اصبح يعمل على 32بت و 64بت ، رأيت ان اضع البرنامج بين يديكم طريقة العمل هي كما في الرابط السابق (ولكن للأسف لا يمكن رؤية الصور التوضيحية هناك) ، فعليه ، سأقوم بعمل نسخة منه هنا مع الصور التوضيحية: رأيت الكثير من الاسئلة حول تصدير بيانات الاكسس الى الاكسل ، وكل سؤال يختلف عن غيره بطريقة او اخرى ، فحبيت ان اضع بين يديكم برنامج اشتغلت عليه ، واتمنى من الله سبحانه وتعالى انه يقدر يخدم الكل البرنامج سهل الاستعمال ، فكل المطلوب في الواجهة ، ولا تحتاج الذهاب للكود اولا: الواجهة: 1. تختار من مربع السرد ، جدول او استعلام ، 2. على اساس الاختيار في رقم 1 ، ستظهر لك قائمة باسماء الجداول او الاستعلامات في برنامجك ، 3. اسم ملف الاكسل المراد حفظه به ، ومجلد التخزين ، فتلقائيا يكون في نفس مجلد البرنامج ، 4. هنا تكتب اسم صفحة الاكسل التي تريدها (انظر الصورة في الاسفل) **1** تستطيع ان تصدر اي عدد من الصفحات الى اكسس (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم اسم صفحة جديدة) ، **2** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 5. تستطيع بدء تصدير البيانات الى اي خانة في اكسل مثل A2 او C5 او اي خانة اخرى ، **3** تستطيع ان تصدر بيانات جديدة الى نفس الصفحة في اكسل (طبعا التصدير يكون باستعمال البرنامج عدة مرات ، في كل مرة تستخدم *الادخال من خانة* اسفل الخانات الموجودة في الاكسل) ، 6. تستطيع ان تحفظ ملف الاكسل بالصيغ التاليه: "xls" او "xlsx" او "xlsm" او "xlsb" او "csv" او "txt" ، والصيغتين الاوليتين هما الاهم ، والصيغتين الاخيرتين بهم قيود معينة ، 7. تستطيع ان تختار المجلد الذي تريده ، مع كتابة اسم الملف المناسب لك (انظر الرقم 3 اعلاه) ، 8. تستطيع تصدير البيانات مع اسماء الحقول (في الاكسس) ، وتستطيع تصدير البيانات مع عناوين/مسميات الحقول (في الاكسس) ، نلاحظ اعلاه ، بان الجدول elemnts لا يحتوي على عناوين/مسميات الحقول بالعربي ، بينما الجدول elemnts2 يحتوي عليها ، وتستطيع تصدير البيانات فقط بدون اسماء الحقول ، 9. تستطيع ان تصدر البيانات الى ملف اكسل فيه بيانات سابقة ، وهنا تستطيع الاستفادة من الارقام 4 و 5 اعلاه ، او ان تحذف ملف الاكسل الموجود حاليا بنفس الاسم ، وتبدأ تصدير ملف جديد ، 10. بعد تصدير البيانات الى اكسل ، هل تريد إحتواء وتوسيع كل الاعمدة فيه ، حتى ترى كل البيانات بدون الحاجة الى توسيع كل عمود على حدة ، او لا تريد توسيع الاعمدة. 11. الزر الذي يقوم بعملية تصدير البيانات الى اكسل ، حسب الاختيارات اعلاه ، مع ملاحظة: يجب تعبئة الحقول داخل المربعات الحمراء ، اما بقية الحقول فإختيارية ، 12و 13. لجعل هذا البرنامج يعمل على اي من برامجكم الحاليه ، يجب تصدير النموذج frm_Export_to_Excel و الوحدة النمطية fFolder_Dialog اليها. طبعا هناك أفضلية تصدير البيانات من الاستعلام ، حيث تستطيع ان تتحطم بالبيانات المطلوب تصديرها. ملاحظات؟ اخطاء/عطل؟ إضافات؟ انا في الخدمة ، قدر المستطاع جعفر 7.Export_to_Excel_05.1.mdb.zip

لتفعيل النسخ الإحتياطي التلقائي ، قم بما يلي: أولاً : إعدادت إختيار قواعد البيانات لعمل النسخ الإحتياطى التلقائي لها 1) انقر على الزر "إعداد النسخ الإحتياطي التقائي". أدخل المسار الكامل لقواعد البيانات التي ترغب في النسخ الاحتياطي لها.بإستخدام الزر "استعراض لإختيار قواعد البيانات" 2)انقر على الزر "إضافة قاعدة بيانات إلي القائمة" لإضافة قاعدة بيانات جديدة. 3) انقر مرتين على أي قاعدة بيانات في القائمة للتعديل أو الحذف. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ثانياً : إعدادات مسار تخزين النسخ الإحتياطى التلقائي حدد المسار الكامل الذي تريد حفظ قواعد بيانات النسخ الاحتياطي.فيه عن طريق النقر على الزر "تحديد مسار التخزين" وهذا المسار يجب بالفعل أن يكون موجوداً أو سوف يتم إحباط العملية. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ثالثاً : إعدادات وقت النسخ الإحتياطي التلقائي تحديد وقت بدء النسخ الإحتياطي التلقائي هام جداً جداً جداً أدخل الوقت بهذا التنسيق (HH:MM:SS AM / PM) شرح التسيق HH الساعة MM الدقيقة SS الثانية AM / PM أو ص / م وهذا يشير لتحديد الساعة صباحا او مساءً ويظهر هذا التنسيق فقط عندما تكون إعدادت نظام التشغيل تم تحديد الوقت فيه على نظام 12 ساعة مثال عندما نريد نسخ تلقائى فى تمام الساعة الواحدة ظهراً تكون بهذا الشكل (01:00:00 م ) وفي حالة ضبط إعدادت الوقت فى نظام التشغيل 24 ساعة يكون التسيق (HH:MM:SS) مثال عندما نريد نسخ تلقائى فى تمام الساعة الواحدة ظهراً تكون بهذا الشكل (13:00:00) ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ ملاحظـــــة هامــــــــة ـــــــــــــــــــــــــــــــــــ لكى يتم عمل النسخ التلقائي لقواعد البيانات بشكل تلقائي طبقاً للإعدادت المسبقة 1- يجب فتح النموذج المسئول عن النسخ الإحتياطي التلقائي من خلال النقر على الزر "بدء النسخ الاحتياطي التلقائي" وإلا لن يتم النسخ الاحتياطى تلقائيا فى الوقت المحدد طبقاً للإعدادت المحددة 2- فى حالة إستخدام شاشة التوقف أو شاشة حماية إذا كنت ترغب فى الحصول على السرية والحماية للجهاز الخاص بك فى غيابك لن يؤثر ذلك على النسخ التلقائي ☺ ملاحظة هامة جدا جدا جدا يتم تحديد قاعدة بيانات أو أكثر لعمل نسخ احتياطى لها وضغط واصلاح مرة واحدة فقط من الاعدادت يتم تحديد المسار المراد حفظ النسخ الاحتياطى مرة واحدة فقط وقمت بعمل طريقة تجعل البرنامج يقوم كل يوم بعمل مجلد باسم وتاريخ اليوم دون اى تدخل من المستخدم فقط غير فتح النموذج "frmTimer" مشكلة لو تم وضع باسورد لحماية قاعدة البيانات المراد عمل نسخ احتياطى لها عند فتحها فلن يكتمل النسخ التلقائى الالى بسبب كلمة السر هذه ولن يتم عمل اى نسخ احتياطى لباقى قواعد البيانات الاخرى للامانة العلمية : هذا البرنامج حصلت عليه من احد المنتديات الاجنبية ولكن قمت بتعديلات كثيرة جدا للوصول الى هذه النتيجة المثمرة ان شاء الله واضعها بين أيديكم حتى تعم الفائدة AutoBackup.rar

تحية طيبة استاذي الغالي جعفر المشكلة ليست من عندي و لا من عندك المشكلة من السوني بحد ذاته كما توقعت تماما للسوني سيناريو خاص به لالتقاط الصورة فعوضا عن الزر Camera يجب ارسال الزر Enter وعوضا عن المسار /sdcard/DCIM/Camera/ يكون المسار /sdcard/DCIM/100ANDRO وهذه ورقة اجابتي

واتمنى لك التوفيق .

::: شكرا لك برنامج جميل ومفيد .. اتمنى لك النجاح

اسعدتنى جداً كلماتك استاذنا جعفر . اتمنى ان يكون نال على رضاك اخى وفقت فى استخدامه . وياك اخى شيفان واتمنى ان يكون عند حسن ظنك . مثال جيد اخى محمد واتمنى ان ينول مثالى على رضاك .

save_user_options.rar

شكرا على الهدية الله يبارك فيك ويجزيك الفردوس الاعلى

تفضل test122.rar

جرب آخر سطرين بهذا الشكل Sheets("Sheet2").Range("E5:G" & Rows.Count).Borders.Value = 0 Sheets("Sheet2").Range("E6").CurrentRegion.Borders.Value = 1

تسلم أخي المبدع Shivan Rekany بارك الله فيك . والشكر موصول ايضاً لأخينا أبو عبدالله الحلوانى . اللهم علمنا ما ينفعنا و أنفعنا بما علمتنا .. واجهتني مشكلة في اضافة الفلس في خانة الأحاد الى عمود [المبلغ] مثال :- الناتتج الحالي = 1,500,00 بعد ادخال المبلغ 0,000,50 يصبح الناتنج= 1,500,50 ولكم الشكر .

فكرة رائعة أستاذ سعيد وهروب جميل من circular reference وفقكم الله لكل ما يحب ويرضى

الحمد لله وصلت للمطلوب قلت لك من قبل اصبر فإن الصبر مفتاح الفرج تقبل تحياتي

بسبب هذا السطر Range("A4:Z1000").Clear إذا أردت مسح البيانات فقط دون التنسيق استخدم ClearContents بدلاً من Clear

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

اها انا هنا الان في خدمتك ان شاء الله اخي الكريم اولا // انا حذفت قيمة افتراضية "اي شيء" لحقل doc في نموذج رئيسي ثانيا // انا نقلت كود عند الفتح لنموذج الرئيسي لتابع حقل التاريخ zdate الى بعد تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف Me.Zdate = Date ثالثا // انا نقلت هذا الكود من بعد تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف الى قبل تحديث لنفس الكومبوبوكس Me.Transaction_subform.Visible = True Me.Transaction_subform![In].Enabled = False Me.Transaction_subform![out].Enabled = True واضفت هذا الكود بعد كود الاعلى If Me.Combo58 = "صرف" Then If DCount("[id]", "[order_sub]", "[id]='" & Me.Combo51 & "'") > 0 Then [Forms]![trans_top]![Transaction subform]![Code] = DLookup("[code]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![Item] = DLookup("[Item]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![out] = DLookup("[Qty]", "[order_sub]", "[id]='" & Me.Combo51 & "'") End If End If اي يعني في الاخير الكود قبل تحديث لكومبوبوكس باسم Combo51 لتابع رقم طلب الصرف صار هكذ Private Sub Combo51_BeforeUpdate(Cancel As Integer) Me.Transaction_subform.Visible = True Me.Transaction_subform![In].Enabled = False Me.Transaction_subform![out].Enabled = True Me.Zdate = Date If Me.Combo58 = "صرف" Then If DCount("[id]", "[order_sub]", "[id]='" & Me.Combo51 & "'") > 0 Then [Forms]![trans_top]![Transaction subform]![Code] = DLookup("[code]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![Item] = DLookup("[Item]", "[order_sub]", "[id]='" & Me.Combo51 & "'") [Forms]![trans_top]![Transaction subform]![out] = DLookup("[Qty]", "[order_sub]", "[id]='" & Me.Combo51 & "'") End If End If End Sub والبعد تحديث صار هكذا Private Sub Combo51_AfterUpdate() [Forms]![trans_top]![Transaction subform].SetFocus DoCmd.GoToRecord , , acNewRec End Sub اتفضل قاعدة بياناتك ex (1).rar تقبل تحياتي

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

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

استاذى الفاضل / محمد صالح واستاذى الفاضل / ياسر خليل أبو البراء جزاكم الله خيرا وجعله في ميزان حسناتكم وأسف على ازعاجكم ولكن هذا املنا فيكم بارك الله فيكم وجعله الله فى ميزان حسناتكم

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

تجدها في نموذج الدرجات في حقل رقم المادة بعد التحديث

النتيجة واحدة تقريبا انا استخدمت DCount

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

اخي الكريم في البداية ارسلت مرفقا يختلف عن المرفق الثاني !!!!! في المرفق الثاني ما هي آلية ادراج رقم الطالب ليميز الاكسس ان هذا السجل يعود للطالب 1 و السجل التالي يعود للطالب 2 ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ على العموم تفضل الحل مع تعديل بسيط نصيحة أخيرة ابتعد عن التسميات باللغة العربية فهي تصعب عملبة كتابة و تعديل الكود stu3.rar

اصبر ستتوصل للنتيجة اذا ما وصلت الى النتيجة غدا ان شجاء الله ساعود لك مع النتيجة واسف لاني الان عم استخدم موبايل

وعليكم السلام أخي عبدالله هاي الكود من VBA Help مباشرة ، الظاهر معمول ومفصّل لك Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' The Keycode value represents the key that ' triggered the event. Select Case KeyCode ' Check for the PAGE UP and PAGE DOWN keys. Case 33, 34 ' Cancel the keystroke. KeyCode = 0 End Select End Sub جعفر

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

الاخ اسامة نفذت النصف الشمالى كمل النصف الاخر بنفس الفكرة لابد من عمل كليك مرتين لتحريك الدائرة Presentation21.rar

رايط شرح كود استدعاء بيانات اعمده متفرقه لاعمده معينه اخرى =============== شرح الكود السابق

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

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

اتفضلى جربى الكود بهذه الطريقة على زر جديد ضيفى هذا الكود MS.BackColor = vbWhite MS.ForeColor = vbBlack Me.Requery

الكود اعتقد راح يظبط بهذا الشكل If Me!TS = "قبل الفطور" And Me![MS] >= 0 And Me![MS] <= 84 Then MS.BackColor = vbYellow ElseIf Me!TS = "قبل الفطور" And Me![MS] >= 85 And Me![MS] <= 125 Then Me.MS.BackColor = vbGreen ElseIf Me!TS = "قبل الفطور" And Me![MS] >= 126 Then MS.BackColor = vbRed MS.ForeColor = vbWhite End If

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

بعد اذن اخويا الغالى واستاذى الحبيب @محمدنجار يوضع سطر الكود الذى تفضل به اخى العزيز فى التقرير فى مربع النص فى control source ويكون الكود بهذا الشكل =DLast("Current_Research_budget";"Balance") وممكن وضعه فى الاستعلام ويكون بهذا الشكل Last Research Budget: DLast("Current_Research_budget";"Balance") بس للتوضيح لو ترك الكود بهذا الشكل بدون تصفيه ستكون اخر قيمة فى المطلق ولكن لو اردتى اخر قيمة ل id user على سبيل المثال يجب عمل تصفية اولا على هذا الحقل حتى تكون اخر قيمة لهذا id user والله اعلى واعلم

السلام عليكم ورحمة الله تعالى وبركاته اختنا الكريمة @Rawannnna ان شاء الله تعالى تجدى فى هذا التعديل مرادك كما تريدين واكثر قمت ببعض التعديلات اولا اضافة حقل تاريخ فى جدول تحاليل السكر قولى ليــــه هأقول لك ليه انا علشان سببين الاول : يعنى مفروض يكون عندى خلفية بمستويات السكر فى تواريخ سابقة لمقارنتها بتواريخ حدبثه للتسهيل متابعة ومراقبة المستوى ☺ ثانيا والاهم برمجيا : حتى لا يتكرر ادخل بيانات فى وقت واحد بقرائة واحده او حتى بقراءه مختلفة يعنى مثلا مش ينفع المريض محمد عصام فى تاريخ 2/5/2017 يكون مستوى السكر 300 قبل الافطار ويتم تكرار هذا السجل مرة اخرى وكذلك لا يصح ان يكون المريض محمد عصام فى تاريخ 2/5/2017 يكون مستوى السكر 450 قبل الافطار اى تسجيل نتيجه مختلفة بالخطأ فى وقت غير وقت العينه امممممم معلش انا اسف لانى مستعجل حبتين ولا يسمح وقتى الحالى بالنقاش والحوار والمتابعة الجيدة انا عدلت من نفسي بما رايت فيه الصالح قد اكون مخطئ وقد اكون مصيب فى افكارى فإن أصبت فبفضل من الله سبحانه وتعالى وان اخطأت فمن نفسى فتقبلوا خطأى بحلم كذلك عذرا قمت بتعديل المسميات للعناصر على النموذج لتسهيل التكويد بصراحه انا مش باعرف اكود عربى اممممممم ايضا قمت بمسح مصدر بيانات النموذج وجعلته غير منضم واضفت استعلام جديد لاضافة القيم من النموذج الى الجدول وقت الضغط على زر ادخال البيانات واخيرا وليس اخرا اسال الله تعالى ان يهدينا الى ما فيه الخير والفلاح والصلاح والرشاد واسالكم الدعاء لوالدتى بظهر الغيب فنحن فى امس لحاجة لدعوات صالحات بظهر الغيب نظام متابعة مواعيد مرضى السكر_UP.rar الاستاذ @عبدالله كاظم كل لاشكر والتقدير وجعلكم الله سباقون الى الخيرات دائما وابدا اعتذر منكم وكلى خجل فوالله لم ارى والاحظ ردكم اعتذر منك اخى الكريم

بعد كود فتح نموذج "سكرك" نضع الكود التالي Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض بحيث يصير الكود بالشكل التالي DoCmd.OpenForm "سكرك", , , , NewRecord Forms![سكرك]![رقم ملف المريض] = Me.رقم_ملف_المريض اتمنى يكون هذا هو المطلوب

السلام عليكم اخوانى سؤالى هو طريقة تركيب between مع دالة IF كما بالمثال If 90 > Great > 80 Then Text1 ="ناجح" Else Text1 ="راسب" End If

اعلم هذا ولكنى اريد ان افعل مثلها ولقد وجدت هذا المثال وضبط معى If Age = > 46 And age <= 50 Then وشكراً جزيلا لك اخى @sandanet

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

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