jjafferr

وعليكم السلام ورحمة الله وبركاته 🙂 سؤال : اذا يوجد ربط بين النموذج الرئيسي والنموذج الفرعي عن طريق الحقل ID ، لما يعمل النموذج الفرعي سجل جديد ، اي رقم ID يأخذ ؟ هذه المعضلة بين النموذجين ، ولهذا السبب لا يمكن ادخال بيانات في النموذج الفرعي ، إلا على الاقل رقم ID النموذج الرئيسي يتم ادخاله 🙂 جعفر

وعليكم السلام 🙂 انا من مؤيدي استخدام اعدادات الاسكانر في عمله ، وهذه الاعدادات تقوم بالعمل بشكل رائع ، بدون تدخّل اي من برمجتنا 🙂 لهذا السبب ، لا تعليق عندي على كود الماسح الضوئي واليك ملاحظاتي على الكود : 1. الكود يأخذ الصور بدقة: DPI = 200 ، والمفروض للأرشفة ان تكون DPI = 300 ، 2. الكود يأخذ صورة للشاشة بحجم A4 ، فيكون هناك مكان فارغ في الكثير من الصور الصغيرة ، وفيه هدر للمساحة التخزينية : Scanner.Items(1).Properties("6151").Value = 8.3 * DPI 'Horizontal extent Scanner.Items(1).Properties("6152").Value = 11.7 * DPI 'Vertical extent for A4 3. لا ادري مقدار الضغط Compression ، لأنه للأرشفة يجب ان لا يكون هناك ضغط ، 4. وفي الواقع انك لما تأخذ صور jpg وتستعمل تقرير الاكسس لجمع هذه الصور ، ومن ثم تحولها الى pdf ، فأنت تعمل تغيير في حجم صور jpg ، وهذا يتنافى مع اصل الارشفة !! ارفقت لك برنامج يعمل كالتالي: تضع البرنامج في مجلد ، وتضع جميع صور jpg في نفس المجلد ، ثم انقر نقرتين على البرنامج ، وفي الشاشة السوداء اضغط على الرقم 1 من الكيبورد ، فتلقائيا يحول لك الصور الى ملف pdf ، وبنفس نقاوة كل صورة (جرب الصور اللي في المرفق) . طبعا لاحقا تقدر برمجيا ان تعطي البرنامج الامر عن طريق Shell مثلا 🙂 جعفر jpg to pdf.zip

عندك اختيارين : 1. الطريقة التي عرضتها عليك ، فيها قائمة جميع الاشخاص ، فإذا احببت ، يمكن ان نلغي من القائمة الاسماء التي تم اختيارها ، نحن لا نعرف خصوصية برنامجك ، فجوابي هو جواب برمجي عام ، 2. ان نملئ نموذج الفواتير بالاسماء الموجودة اعلاه. ايهم تُفضل ؟ جعفر

آسف ما فتح عندي الاستعلام qry_Calc_Data2 !! رجاء ادخل SQL في الاستعلام ، وارفقه هنا 🙂 جعفر

اخي الفاضل ، رمضان كريم عليك ان شاء الله 🙂 الظاهر ان الصوم مأثر عليّ ، وما قادر افهم طلبك !! يا ريت تشرح طلبك وتعطينا شرح اكثر ، مثلا اخبرنا الاسماء الفلانيه تظهر في النموذج الفرعي الاول ، ويجب ان يظهر الاسم الفلاني فقط في النموذج الفرعي الثاني ، ورجاء استعمل الاسماء اللي في برنامجك 🙂 ساعدنا علشان نساعدك 🙂 جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى 🙂 هذا المنتدى "الاكسس" هو لمساعدة المبرمجين ، فإذا عندك سؤال برمجي تحب ان تسأله ، فضعه هنا ، او الأفضل بأن تبدأ في برنامجك ، وثم تطرح اشكالاتك هنا ، فتتم مساعدتك ان شاء الله 🙂 ابحث في المنتدى ، ففيه الكثير من الاسئلة الشبيهة بطلبك ، اما اذا اردت برنامج جاهز ، وبأجر ، فرجاء وضع طلبك هنا : 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 وخلص الموضوع (طبعا بعديت اصلحت الكود وازلت الامر) 🙂 رجاء ، لا تستعملوه للبرمجة العادية ، وإنما فقط للحالات الخاصة والمستعصية 🙂 جعفر