رمهان

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

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

جزيت خيرا والحمد لله رب العالمين

اخينا ساروك ان صح الاسم 1. لو فرضنا ان المستخدم فتح end وبالاستمرار على الشيف فسيفتح القاعدة بدون حماية ! هنا لم تستفد من الفتح عن طريق ملف اخر 2. مسالة الحماية بحذف الكائنات : تخيل ان عميلك قام لهذا من باب الفضول . هنا انت حملت نفسك تكلفة اضافية لاعادة البرنامج وكذلك قد تجد طريقا مسدودا لاعادة الكائنات 3. اختصار لماتريد تستطيع عمل شرط عند فتح النموذج الرئيسي وهو هل تم فتح النموذج مباشرة ام عن طريق الماكرو التنقيذي . فاذا مباشرة يتم الرفض والخروج من البرنامج والعكس اذا تم الفتح عن طريق الماكرو التلقائي يتم فتح النموذج والاستمرار بالتوفيق

جرب DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel7, mTable, Me.ImportFile, True, Me.SheetNumber.Column(1) & "$" لم استعطع التجربة لعدم ظهور مربع حوار فتح الملفات. ولكن جرب المحاولة اعلاه تحياتي

جميل جدا استاذ جعفر انا لم انزل المرفق ولم اجرب . اعتمدت على التوقع وهو انه لفتح نموذج يتطلب فتح القاعدة ضمنيا وعند فتح القاعدة سيعمل الماكروز ولكن التجربه اثبتت توقع خاطئ . تتبعت الكود العام على عجاله ووجد ت هذا السطر واتوقع انه زائد وان شاء الله يكون توقع صحيح Set fGetRefNoAutoexec = objAcc واعتقد الموضوع يحتاج قراءة على روقان وفيه اختصارات كثيره وان شاء الله هم بعد مايكون توقع خاطئ تحياتي

اسمحو لي ببعض التعليقات وان شاء الله تكون مفيده طيب لو ضغط الشفت هنا ؟ سيفتح القاعدة كماهي ! لم تحل مشكلتك ! امسكت بالشفت ومنعته .. تمام .. لكن كيف ستفتح النموذج البعيد ؟ تحياتي

تفضل Compair_No.rar

تمام اعود لك عزيزي وقبل العودة هل الطريقة تمام لو تمت النتائج صحيحة؟

تفضل حل مبدئي لتقريب فهم الموضوع ولعله يكون المطلوب يوجد table1 لتعريف nv وبه النص سواء male او female او فارغ والمقصود x-y او equ وهكذا لكل ارقام متغيره يوجد نموذج table2 والتي هي الحل المبدئي شوف وهات الملاحظات بالتوفيق Compair_No.rar

بتجيب الصور دي من وين ياباشا ؟ ماتجيب الملف وتريحنا!

شفت ياباشا بان ظهرت معلومة جديده وهي ان يكتفى بتعريف ال Equivocal وبالمجال فان زادت على الرقم الاعلى فهي pos وان قلت عن الادنى فهي neg وان بين فهي Equ ولا داعي لتعريف ال pos او neg لوحدهم ايه رايك

معليش ياباشا عايزها في الجدول الذي بمشاركتك رقم 8 . للاسف المنتدى لا يظهر به رقم المشاركات وهي كانت موجوده وياليت المختصين يعيدونها عايز اشوف السجل بالجدول

تمام بقيت ال Equivocal مش واضحه ؟ لان ال pos و neg بتظهر مقارنة مع رقم واحد ؟ فمتى تظهر الرقمين ؟ اقصد هات مثال ل Equivocal ؟

جرب تعديل السطر الذي بكود الاضافة Me.نص57 ="" الى Me.نص57 = Me.نص57 +1 بالتوفيق

اخي رضا انا الل بيسال الان . وبانتظار جوابك على استفساراتي السابقه . تكرما شرح كيف يزداد الترقيم التلقائي؟

يبدو انني فهمت وفيه حاجات بتلعب بدماغي ! خليني ارتبها واعود لك ان شاء الله

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

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

توهتنا اخي محمد اول مشاركة pos اقل من العدد واخر مشاركة تقول pos دائما اكبر من وظهرت بحاجة جديده في اخر مشاركة وهي ال Equ لو تشرح الموضوع من اساسه وفكرته ؟ والاستاذ شبفان به البركه مع كل التقدير

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

مازال لدي سؤال هل يوجد pos 5 - 10 ؟ واذا وجد كيف ستكون النتيجة Neg ؟ ام ان pos و Neg فقط اكبر من او اصغر من رقم ولا تاتي بين رقمين ( مجال ) تحياتي

السلام عليكم لم افهم الاستفسار في البدء لعدم وجود مرفق ارفقت لكم هذا وبه المطلوب تقريبا وبدون اكواد او عملية معالجة لخاصية السماح بالاضافة . جرب اولا كمستخدم وبدون معرفة الطريقه ! وبه ايضا اختصار لفكرة معالجة خاصية السماح بالاضافة بالكود وهي طبعا فكرتك وتم تعطيل الكود لتجربة الفكره اعلاه بالتوفيق myway1.rar

مشاركة جميله اخ مراد وبها فائدة جزيت خيرا الفكرة باختصار ربط جدولي النظام ربط خارجي للبحث عن غير المتطابقات وهو معروف ويوجد معالج استعلامات باسم البحث عن غير المتطابقات ولكن هنا احد الجداول من القاعده البعيده فابحت اشيك على اسماء الجداول بين الجدولين . والربط تم بين حقلي name في الجدول البعيد و حقل foreignname في الجدول الحالي بالتوفيق اخي اوس مشاركتي اصبحت حل شامل . فقد تستخدم في التاكد من ان الربط تم بدون مشاكل خصوصا في بيئة الشبكاتز فقد يتم الربط في جدولك المحدد ولكن تحدث مشكلة في باقي عمليات الربط . وساقوم بعملية اعادة الربط بفكره اخرى ات شاء الله وقريبا تحياتي

هذا كود سيقوم باخبارك هل الربط تمام ام لا If CurrentDb.OpenRecordset("SELECT MSysObjects.Name, MSysObjects.Type FROM MSysObjects AS MSysObjects_1 RIGHT JOIN [" & DLookup("DBPathANDName", "BackDBs", "found=true") & ";pwd=" & DLookup("mypass", "BackDBs", "found=true") & "].MSysObjects ON MSysObjects_1.ForeignName = MSysObjects.Name WHERE (((MSysObjects.Name) Not Like '*msys*') AND ((MSysObjects_1.ForeignName) Is Null) AND ((MSysObjects.Type)=1))").RecordCount <> 0 Then MsgBox ("الربط غير سليم") الصقه في اي حدث يناسبك . مثلا عند التحميل للنموذج الرئيسي. والانتباه الى وجود البيانات التالية بالجدول BackDBs 1. وجود مسار للقاعدة الخلفية ووضع علاة صح ان المسار صحيح 2. هناك كلمة مرور للقاعدة الخلفية والتي مسارها اعلاه وبعدين ننتقل خطوة خطوة لماتريد بافكار جديده تحياتي