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

بسم الله الرحمن الرحيم اولاً الشكر كل الشكر الى اساتذتى الكرام الذى بفضلهم وصل المشروع الى هذا الحد وبالاخص : استاذ : جعفر لك جزيل الشكر استاذ : ابو عبدالله لك جزيل الشكر استاذ : شيفان لك جزيل الشكر استاذ : ابو خليل لك جزيل الشكر شرح العمل ببساطة يقوم المستخدم باختيار الالوان التى يريدها من نموذج 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

هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم http://codevba.com/ وهذه صورة لشريط الاكواد وهذه هو الملف codevba.zip وشكرا لاستاذنا جعفر على ادراج الرابط لكي لا يخالف الملكية الفكرية

تحية طيبة استاذي الغالي جعفر المشكلة ليست من عندي و لا من عندك المشكلة من السوني بحد ذاته كما توقعت تماما للسوني سيناريو خاص به لالتقاط الصورة فعوضا عن الزر 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

بسبب هذا السطر 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

جزاك الله خيرا اخي الكريم علي هذا الدعاء الطيب وجزاك الله بمثله ان شاءالله والحمد لله ان تم المطلوب تقبل خالص تحياتي وتقديري

استاذ / خالد الرشيدي المحترم الله يرحم والديك ويعتقهم من النار غفر الله لك ومن ذريتك وجعل هذا العمل بموازين اعمالك عملت وتعبت وامنت اللهم اجعل له روضة من رياض الجنة واعتقهم من النار وكل من ساعدني بهذا الموضوع اللهم امين شكراً يا اخوان ،،،،

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

السلام عليكم اخي الكريم انظر الملف التالى - وان كان هناك من ملاحظات ارجو ان تكون بتحديد الحالات التى حدثت بها أخطاء.. عدد السنوات وسبب إنهاء الخدمة (aa-bb-cc ) MUHAMMAD SULAIMAN MUJAHID GUL_2_2.rar

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

المشكلة فقط في الدرايفر اعتقد كل اصدار من الهواتف وله تعريف خاص به 1- نزلت المرفق على الكمبيوتر وفكيت الضغط عنه 2- اتبعت الخطوات في اعداد خصائص الهاتف الجوال 3- بحثت عن التعريف الموافق لهاتفي ونصبته في الجهاز 4- وصلت الهاتف بالحاسب واخترت الخيار الموضح بالشرح ثم نعم 5- فتحت ملف اكسس ومن تفاصيل الموظف جعفر نقرت على الزر فاستجاب الهاتف والتقط صورة 6- صبرت ثانيتين فظهرت الصورة في اكسس بالنسبة لالتقاط الصورة الثانية فان الصورة الاولى تحذف وتحل محلها الصورة الجديدة

اول ورقة إجابة الهاتف الجوال : samsung galaxy note 3 الدرايف : هنا ومعلومة : هاتفي يقدر الصحبة فصوري القديمة باقية لم يحذف منها شيء

للاضافة نستخدم الدالة DateAdd للنقصان نستخدم الدالة DAteSerial تفضل التعديل التاريخ قبل وبعد2.rar

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

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

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

الاخ محمد على الطيب ما شاء الله متابع اعمالك المميزة وجهودك فى المنتدى الملف به التعديل كما قال الاخ عبد العزيز مع رفع الاسم وتكبير الحجم ليناسب الاسماء Tbl_ResultPrep_xls.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 جعفر

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

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

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

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

اضف 1 أو 2 إو اي رقم تريد على المعادلة لتصبح هكذا: =IF(B2="","",SUBTOTAL(103,$B$2:B2)+1)

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

اتفضلى الملف بعد التعديل باضافة الرسالة نظام متابعة مواعيد مرضى السكر_UP.rar يتم وضع الرسالة فى نموذج سكرك على زر الامر أمر21 "ادخال" فيصبح الكود بهذا الشكل If IsNull([MS]) Then MsgBox "من فضلك ادخل مستوى السكر" MS.SetFocus ElseIf IsNull([TS]) Then MsgBox "من فضلك حدد وقت اخذ العينة" TS.SetFocus Else DoCmd.SetWarnings False DoCmd.OpenQuery "سكرك" DoCmd.SetWarnings True 'لمسح قيم عناصر التحكم على النموذج بعد ادخال القيم MS = "" TS = "" MsgBox "تم تسجيل نتيجة التحليل" Me.Requery 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 الاستاذ @عبدالله كاظم كل لاشكر والتقدير وجعلكم الله سباقون الى الخيرات دائما وابدا اعتذر منكم وكلى خجل فوالله لم ارى والاحظ ردكم اعتذر منك اخى الكريم

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

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

عمل رائع أ/ قنديل الصياد

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