ابو جودي

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

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

لم استطع تحميل المرفق وتظهر لى هذه الرسالة عفوا هناك مشكله . غير مسموح لك بتحميل هذا الملف. كود الخطاء : 1D161/3

يا استاذ @عبداللهM من فضلك افتح الاستعلام اللى باسم B11 وهيطلب منك ادخال رقم الموظف فلو ادخلت رقم الموظف 1 ترى بيانات باسم الموظف يوسف وللعلم فى التقرير الزر الثانى والثالث يظهر كما كتبت يتم ضغط على زار الثاني في نموذج الفرعي العلاج 1 التنويم 0 يتم ضغط على زار الثاني في نموذج الفرعي للمريض ماجد العلاج 0 التنويم 0 اما الزر الاول حضرتك اللى حسبت غلط تأكد انت من حساباتك بناء على القيم فى الجدول Table2 Table2 RecId السجل جهة REMaa debw desig 1 1 1 01-May-2017 العلاج 2 1 1 04-May-2017 العلاج 3 1 1 22-May-2017 تنويم عدد العلاج 2 وعد التنويم 1 وذلك لبيانات سجل 1 والتى تخص يوسف

تحت امرك اتفضل اضغط هنا لتحميل المرفق

اخونا الكريم انظر الى المرفق الاتى

اتفضل يا سيدى الفاضل الغاء اطار اكسس.rar

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

واصبح طلب حضرتك جاهز ان شاء الله يكون ده طلبك ولو فى اى شئ لا تخجل فقط تدلل وتمنى الارشفة بدون اعداد برنامج - IrfanView.rar

انت بتهزر صح ؟ انت بجد يحثت فى المنتدى والا بتهزر هذا فقط غيث من فيض

ههههههههههههههههه استاذ @Shivan Rekany عهدنا هذا الصرح الشامخ وتميزه بخير الاساتذة الكرام وجميل حلمهم وعظيم كرمهم ووافر علمهم نسأل الله تعالى لكم جميعا الخير والفلاح والصلاح والرشاد

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

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

راااااااااااااااائع جدا تسلم ايدك استاذ @Shivan Rekany