ابو جودي

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

وكل عام وانت بخير يا قمر وياجميل ربنا يكرمك على نيتك الطيبة بدعائكم الطيب حتى من غير اى حاجه يعنى حذرتك عاوزنى اعدل لك فقط على زر الاغلاق ؟ لو الحقول المطلوبه غير مكتمله لا يحفظ

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

اسأل الله تعالى ان تجد ما تريده ان شاء الله واعتذر للمرة الثانية عن عدم الاهتمام بالتنسيق والشكل العام Database51- with report.rar

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

جزااااااااااااااااااااااااكم الله خيرا اللهم اغفر لكم ولوالديكم وللمسلمين

اعتذر استاذى الجليل ومعلمى القدير لاثقالى على كاهلكم ولكن لا حيلة لى فى قلى تفكيرى وتركيزى ده اقتباس مشاركة حضرتك ما يحيرنى اننى لم اجد اسم الجدول ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 If DCount("[Name]", "MSysObjects", "[Name] = '" & colWorksheets(lngCount) & "'") = 1 Then CurrentDb.TableDefs.Delete colWorksheets(lngCount) DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount وحضرتك حالا ذكرت بعد هذا الامر تمرر اسم الجدول فهي تحذف جدول واحد انا بصراحة مش قادر افهم واستوعب الموضوع جيدا

اليك هذا المرفق بايد عربية وبنفس النتيجة وانظر الى الاكواد المستخدمه الدعاء للاستاذ الجليل والمعلم القدير @رمهان FindAsUType - بايد عربيه رمهانية -.rar

جزاكم الله خيرا لكن CurrentDb.TableDefs.Delete هل تحذف كل جداول القاعدة ؟! ولو لا كيف تحذف هذا الجدول فقط دون غيره

على العموم انا انتهت من تطبيق اعادة الترقيم مرة اخرى بع اغلاق القاعدة وفتحها تجد الترقيم تم اعادته برمجيا Access Import_ up 2.rar

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

جمع كل اكواد الموديول HALABI _ up1 .rar

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

وايه رايكم لو الكود صار هيك اعتقد حذف الجدول اسهل واسرع من حذف السجلات بداخله فلو عدد السجلات كبير؟! وبعد اذن استاذ @رمهان ايه الفرق بين حذف الجدول بهذه الطريقة وبالطريقة تبع حضرتك ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 If DCount("[Name]", "MSysObjects", "[Name] = '" & strTable & "'") = 1 Then DoCmd.DeleteObject acTable, "test" DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount

بعد اذن استاذى الجليل ومعلمى القدير الاستاذ @رمهان الاختلاف هنا بسب حذف السجلات من قبل وهذه هى النتيجة الطبيعية للترقيم التلقائى Access Import_ up.rar

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

اعتقد لا علاقة للكود بدقة الشاشة وانما ابعاد وحجم النموذج

تم التعديل Archive 11111.rar

up لازلت انتظر الرد هل يمكن وضع التركيز على عنصر محدد بعد توسعة كل السجلات ؟؟!! ؟؟؟؟؟؟؟

ملاءمة عناصر النموذج حسب حجم النموذج ☺.rar

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

يوجد كثير من الوحدات النمطية هل يمكن اختصاراها وازالة ماهو ليس له فائدة بعض اختصار البرنامج علي الصادر فقط ، من الملاحظ من اسم الوحدة النمطية ليس لها دور الآن لا يوجد وحده نمطية الان ليس لها اى دور مثل mod_Delete_Files وغيرها من الوحدات الغير مستفاد منها في برنامجي الصغير. ياريت استاذي العزيز ان نختصر بقدر الامكان من عدد الوحدات النمطية . هذه الوحدة النمطية تحذف المرفقات لو حذنا السجل ها محتاج نحذفها براحتك لكن عند حذف سجل محدد يبقى مجلد المرفقات كما هو بالمرفقات جرب زر الامر حذف سجل وتأكد ان لهذا الرقم مرفقات وعندما يطالبك بكلمة مرور الحذف " 123" هل يمكن عند الضغط علي زر " استعراض ملف المرفقات" ولم يوجد للرقم الصادر اي صور ان يعطي رسالة " هذا الرقم ليس له اي صور " نعم ممكن ذلك غير الكود على زر الامر " استعراض ملف المرفقات" بالكود الاتى Dim attash_file As String attash_file = db_path() & "archives\" & "sader\" & [ID] & "\" If Dir(attash_file, vbDirectory) = "" Then MsgBox "هذا الرقم ليس له اي صور" Else ShellExecute attash_file End If لماذا عند اخذ صورة من الكمبيوتر " في زر "ادراج مرفقات من الكمبوتر " لا يدعم الصور التي من نوع PDF ويعطي في مجلد الصور غير متاح مين قال الكلام ده البرنامج يقبل اى مرفق باى امتداد حتى لو كان exe بعض الاكواد داخل الفيجوال غير مستخدمة وانا خايف احذف شئ لا يعمل البرنامج معي . مثل اكواد ملف الوارد وغيرها انا فعلا كنت ناسي كود واحد فقط الان لا يوجد اى اكواد غير مستخدمه راجعت كل الاكواد وحتى لا اشق عليك اليك المرفق بعد التعديل لا يوجد كود غير مستخدم ولا يوجد وحده نمطيه بلا فائده halabi.rar

السلام عليكم ورحمة الله تعالى وبركاته يا استاذنا اولا كل عام وانتم بخير ثانيا : تم حل المشكله جربت الان وكل شئ تمام واستطعت التحميل

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

اهلا اهلا اهلا اخى الحبيب استاذ @sandanet وبعد كل عام وانتم بخير لا ولكن سأجرب واوفيكم بالنتيجة بعد التجربة ان شاء الله