jjafferr

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 هذا المنتدى "الاكسس" هو لمساعدة المبرمجين ، فإذا عندك سؤال برمجي تحب ان تسأله ، فضعه هنا ، او الأفضل بأن تبدأ في برنامجك ، وثم تطرح اشكالاتك هنا ، فتتم مساعدتك ان شاء الله 🙂 ابحث في المنتدى ، ففيه الكثير من الاسئلة الشبيهة بطلبك ، اما اذا اردت برنامج جاهز ، وبأجر ، فرجاء وضع طلبك هنا : https://www.officena.net/ib/forum/157-إعلانات-شخصية-بأجر-للاعضاء/ جعفر

يا ريت تشرح اللي قلته !! جعفر

وعليكم السلام 🙂 تفضل ، الكود : Private Sub code_BeforeUpdate(Cancel As Integer) If Len(Me.code & "") <> 0 And Left(Me.code, 1) = 3 Then MsgBox "الرقم يبدأ بالرقم 3" End If End Sub . والاسم : Private Sub name_BeforeUpdate(Cancel As Integer) If Len(Me![name] & "") <> 0 And Left(Me![name], 1) = "S" Then MsgBox "الاسم يبدأ بالحرف S" End If End Sub جعفر 1220.CodeName.mdb.zip

وعليكم السلام 🙂 تفضل جرب المرفق . جعفر 1219.منظومة استرجاعات فواتير العلاج.accdb

الرسالة تقول ، لتنصيب البرنامج ، افتح الاكسس هكذا : 1. بالفأرة اليمين ، انقر على ايقونة الاكسس ، 2. 3. افتح الاكسس جعفر

وعليكم السلام 🙂 اعمل نسخة احتياطية قبل العمل !! انزل هذا البرنامج المجاني : http://www.skrol29.com/us/vtools.php وبعد التنصيب ، استعمل خاصية . . جعفر

1. قد لا يكفيك الاستعلام qry_Calc_Data ، وانما قد تحتاج الى الاستعلام qry_Calc_Data2 او حتى 3 ، حتى لا يعطيك الاكسس خطأ "الاستعلام معقد جدا" ، فقد يجب عليك توزيع الحقول على استعلامين او 3 ، وفي كل استعلام يجب ان يكون عندك الحقل Data_ID ، والذي سنستخدمه لربط الاستعلامات مع بعض ، ومع الجدوا Data . 2. طبعا لا ، لأنه هو الاساس في العمل ، وطريقة العرض ستكون عن طريق الاستعلام ، وذلك بدمج مجموعة استعلامات qry_Calc_Data والجدول Data ، وهذا الاستعلام سيكون مصدر بيانات النموذج او التقرير. 3. علشان تربط بيانات الجدول Data مع بيانات الاستعلام/الاستعلامات ، يجب ان يكون عندك حقل مشترك بينهم ، وبما ان هذا الحقل يأخذ بياناته من الحقل ID في الجدول Data1 ، فعملنا العلاقة بين الجدولين 🙂 جعفر

الطريقة هي: 1. استعلام الحاقي qry_Append حتى تُدخل البيانات في الجدول Data ، 2. ثم تستعمل الاستعلام qry_Calc_Data علشان يعطينا نتائج الحقول المحسوبة 🙂 انا لم اكمل الاستعلام qry_Calc_Data 🙂 جعفر 1218.new.accdb.zip

وعليكم السلام 🙂 لما حذفت حقول المحسوبة ، اخذ البرنامج ثانيتين وخلص 🙂 تقدر تضع هذه الحقول في استعلام بدل الجدول. جعفر new.zip

وعليكم السلام 🙂 بالاضافة الى شرح اخوي خالد ، جرب التالي: 1. اعمل زر جديد ، 2. بدل ان تكون الصورة مضمنة Embeded ، اجعلها مربوطة linked . لاحظت انه هذه العملية تزيل البرواز حول الصورة ، فقد يكون هذا قصدك !! جعفر

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

وانا اتفق معاك 🙂 جعفر

في الواقع ردي انا واخي اشرف متشابهين ، ولكن مختلفين 🙂 طريقتي هي عمل التنسيق في الجدول ، مما يعني ، ان اي استعلام او نموذج او تقرير جديد ، سيأخذ هذا التنسيق من الجدول مباشرة ، وسيُظهر 9 خانات + خانة الصفر اللي على اليسار ، ولكن وكما قلت ، في واقع الامر ، البرنامج يرى 9 خانات فقط. بينما طريقة اخي اشرف ، فيجب ان نضع هذا التنسيق في النموذج ثم في التقرير "يدويا" ، وسيُظهر 9 خانات + خانة الصفر اللي على اليسار ، ولكن في الجدول سيرى 9 خانات فقط. لكل طريقة ميزاتها وعيوبها ، وهنا يجب ان نعطي المستخدم طريقة لا يتلخبط بها 🙂 جعفر

اوووووه زين ذكرتني ان هذا القانون ينطبق حتى في شهر رمضان جعفر

وانا اذا فهمي صحيح ، اعمل حقل Label اسمه R ، واستعمل هذا الكود : Private Sub Form_Current() Me.R.Caption = "Record " & CurrentRecord & " Of " & RecordsetClone.RecordCount & " Records" End Sub جعفر

هممم هذا السؤال صعب الاجابة عليه !! فإذا عملت تصفية للحقل1 ، فعدد السجلات وترتيبها سيختلف من انك اذا عملت تصفية للحقل2 ، واذا عملت تصفية عن طريق الحقلين ، فهذا ترتيب آخر ، واحلاها ، انك بعد ان تعمل كل هذه التصفيات ، تقوم بعمل فرز تصاعدي عن حقل آخر 🙂 جعفر

وعليكم السلام 🙂 ممكن نستخدم الطريقة اللي في الصورة المرفقة ، . ولكن مع التغيير التالي: مجموع علامات الصح Section_A: iif([Section]=-1,1,0) مجموع بدون علامة صح Section_B: iif([Section]=0,1,0) جعفر

واذا اردت ان تعرف سبب الخطأ ، اي لماذا كان يعمل على اكسس 2003 ولم يعمل على اكسس 2016 : جعفر

السلام عليكم 🙂 اذا كان هذا الحقل دائما بحاجة الى صفر على يسار الارقام ، فيمكن ان : 1. في الجدول ، نجعل نوع هذا الحقل "رقم" طويل ، 2. في التنسيق ، تضع اصفار بالعدد الذي تريد "مع الصفر على اليسار" ، فإذا تريد 10 ارقام ، يكون التنسيق: 0000000000 3. الآن ، لما تُدخل الارقام (سواء في الجدول او الاستعلام او النموذج او الكود) ، لا تُدخل الصفر على اليسار ، وانما ادخل التسعة ارقام ، مثل : 503052054 والبرنامج سيُظهر لك : 0503052054 4. ولكن يجب عليك الانتباه ، ان هذا مجرد تنسيق ، والرقم الحقيقي المحفوظ في البرنامج هو التسعة ارقام ، والبرنامج ما يشوف غير هذه التسع ارقام ، لهذا السبب فالصفر الاخير لا وجود له إلا في عرض/اظهار الرقم 🙂 جعفر

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

ارفق اللي عندك من مشاركلتك الاخيرتين الاثنين ، وخلينا نشوف الصورة كاملة 🙂 جعفر

جرب هاي المرفق ، بعد ان حذفنا المجاميع من الاستعلام الاول 🙂 جعفر 1211.2.No_Match.accdb.zip

وعليكم السلام اخوي احمد 🙂 نأخذ نتيجة الاستعلام السابق ، ونستعمله في استعلام مجاميع جديد : . والنتيجة : . جعفر 1211.1.No_Match.accdb.zip

🙂

1. ادخل في صفحة VBE ، 2. . فتحصل على صفحة جديدة . 3. انسخ الكود من مشاركة اخي ابو تراب ، والصقه في الصفحة ، ثم احفظ الوحدة النمطية باسم مميز مثل mod_ExecuteFile : . 4. والآن من اي حدث ، نادي الوحدة النمطية هكذا : ExecuteFile "C:\Windows\System32\calc.exe" جعفر