ابو جودي

على العموم انا انتهت من تطبيق اعادة الترقيم مرة اخرى بع اغلاق القاعدة وفتحها تجد الترقيم تم اعادته برمجيا 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 وبعد كل عام وانتم بخير لا ولكن سأجرب واوفيكم بالنتيجة بعد التجربة ان شاء الله

لم استطع تحميل المرفق وتظهر لى هذه الرسالة عفوا هناك مشكله . غير مسموح لك بتحميل هذا الملف. كود الخطاء : 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 عهدنا هذا الصرح الشامخ وتميزه بخير الاساتذة الكرام وجميل حلمهم وعظيم كرمهم ووافر علمهم نسأل الله تعالى لكم جميعا الخير والفلاح والصلاح والرشاد