jjafferr

السلام عليكم 🙂 عند تنصيب الاوفيس 2019 و 365 ، فإن التنصيب الافتراضي هو نواة 64 بت ، بينما سابقا كانت مايكروسوفت توصي بتنصيب الاوفيس نواة 32 بت (بغض النظر عن نظام الوندوز) : لذا فقد آن الأوان ان تكون برامجنا تعمل على النواتين 32/64 بت 🙂 اسهل طريقة لتنصيب اكثر من نسخة من البرامج ، هو استخدام الكمبيوتر الافتراضي 🙂 رجاء مشاركتنا تجربتك في هذا المجال 🙂 جعفر

شكرا اخوي امير 🙂 نعم هذا كان قصدي 🙂 جعفر

انتبه ولا تورط نفسك 🙂 اذا قصدك ان تنصب الاكسس نواة 64 بت على كمبيوتر آخر ، بحيث ان كمبيوترك الاصل عليه الاكسس نواة 32 بت ، فنعم الرأي 🙂 اما انك تلغي نواة 32 بت ، فقد لا تستطيع تشغيل برامجك اصلا وتتورط بنواة 64 بت !! وانا اقترح ان تبدأ بعمل برنامج فيه جميع المكتبات التي تحتاج لها ، والتي تعمل على النواتين 32/64 بت ، بحيث تصل للمكتبة بسرعة وتعرف طريقة عملها 🙂 جعفر

البرنامج كجداول واستعلامات ونماذج وتقارير وماكرو وكود ، يعمل على النواتين ، وعلى جميع نسخ الاكسس ، ولكن عندما تستخدم: - مكتبات النواة 32 بت (وجميعها نواة 32 بت (كانت 16 بت وتم تحديثها الى 32 بت)) ، فهذا الشيء الوحيد الذي يجب تغييره بإستخدام PtrSafe وتوابعه من التغييرات (او كما في رابط هذه المشاركة ، او كما في مرفق هذه المشاركة) ، - إلا اذا فيه كائنات OCX خاصة لا تعمل على نواة 64 بت ، وهذا نادر 🙂 اما اذا عملت برنامجك على اكسس نواة 64 بت ، فمن المفترض ان يعمل على الاكسس نواة 32 بت بدون مشاكل وبدون تعديل 🙂 جعفر

تحديث بتاريخ: 20-5-20 في الصفحة الرسمية لمايكروسوفت بتاريخ 8/3/2019 ، فإن مايكروسوفت الآن توصي بتنصيب الاوفيس نواة 64 بت ، وهي النواة التي يتم تنصيبها تلقائيا في الاوفيس 2019 والاوفيس 365. طبعا لا يمكن تنصيب الاوفيس نواة 64 بت ، إلا على الوندوز نواة 64 بت. شو فائدة هذه الرسالة لنا؟ اعتقد من الافضل ان نبدأ بتحويل برامجنا الى النواة 64 بت ، فقد يأتي اليوم الذي تُلغى في نواة 32 بت جعفر

هل قمت بتنصيب هذه الاداة سابقا؟ هكذا يظهر في الصورة !! جعفر

تفضل هنا الحل : جعفر

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

وعليكم السلام 🙂 اخذت لك هذا الكود من مساعد الاكسس ، ممكن تفيدك في امور اخرى : How to: Calculate and Display Specific Date Values Because a Date value is stored as a double-precision number, you may receive incorrect formatting results when you try to manipulate Date values in an expression. This topic illustrates how to create expressions and custom functions for displaying specific dates and calculating time intervals. Displaying Specific Dates The current month: DateSerial(Year(Date()), Month(Date()), 1) The next month: DateSerial(Year(Date()), Month(Date()) + 1, 1) The last day of the current month: DateSerial(Year(Date()), Month(Date()) + 1, 0) The last day of the next month: DateSerial(Year(Date()), Month(Date()) + 2, 0) The first day of the previous month: DateSerial(Year(Date()), Month(Date())-1,1) The last day of the previous month: DateSerial(Year(Date()), Month(Date()),0) The first day of the current quarter: DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 1, 1) The last day of the current quarter: DateSerial(Year(Date()), Int((Month(Date()) - 1) / 3) * 3 + 4, 0) The first day of the current week (assuming Sunday = day 1): Date() - WeekDay(Date()) + 1 The last day of the current week: Date() - WeekDay(Date()) + 7 جعفر

السلام عليكم 🙂 هذا كان رد اخوي احمد : بإستخدام الامر SetValue في الماكرو او الماكرو المضمن : . يجب علينا ان نعرض الجواب في الموضوع ، حتى يستطيع الاعضاء البحث عنه 🙂 جعفر

سهلة ، بدل ان تعمل كود التأكد في VBE ، تقدر تعمله في ماكرو 🙂 شو الحقل الاساسي في النموذج الفرعي ، والذي يجب ان يكون فيه قيمة ؟ جعفر

بأي طريقة عملت ، تحتاج الى كود بطريقة او اخرى ، او تغيير اعدادات حقل في جدول ، بحيث تمنع كونه خالي من قيمة. ولكن السؤال ، لماذا هذا الشرط ؟ جعفر

وعليكم السلام ورحمة الله وبركاته 🙂 سؤال : اذا يوجد ربط بين النموذج الرئيسي والنموذج الفرعي عن طريق الحقل 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