ابوخليل

آمين .. وإياك ، والمؤمنين أجمعين

ان كانت ارقام الشيكات تزداد بطريقة متسلسة منتظمة فالامر يسير جدا مثلا عندنا عشرة موظفين اصدرنا لهم شيكات لشهر محرم تبدأ من رقم 1 الى 10 فحينما نريد اصدار شيكات شهر صفر ستكون ارقامهم بدأً من اخر رقم مسجل اي من 11 الى 20 فهو يسير كما ذكرت حيث يتم الالحاق الى جدول خاص يشتمل على رقم تلقائي اما ان كان الترقيم متسلسل وغير منتظم حيث يمكن ان يبدأ الرقم في شهر صفر مثلا بـ66 الى 76 فهذا الأمر يحتاج الى اكثر من عملية : 1- يتم الالحاق الى جدول خاص 2- عملية ترقيم متسلسل في الجدول نفسه حسب المعطيات يفضل ان يكون هذا الجدول فرعيا مرتبطا بالجدول الاساسي

حينما وضعنا علامتي التنصيص فإن اكسس ينظر الى ما بين هاتين العلامتين كجملة نصية ( تم الغاء الصفر كرقم مسجل في القناع ) وحيث ان هذه الجملة ليس هناك ما يقابلها لترجمته في القناع فان اكسس يظهرها كما هي . آمل ان يكون الشرح وافيا

1- نفرض وجود حقل معين في جدول أو قيمة متغيرة معرفة ومعلن عنها . 2- عند نقر المدير للزر Approve يصبح رقم الحقل أو المتغير قيمة معينة مثلا =1 3- عند نقر الزر Submit يتم اختبار الحقل او المتغير السابق فإن كان =1 تم التخزين ، ثم تغيير قيمة المتغير الى صفر مثلا

انسخ الجملة أدناه والصقها في قناع الادخال "10-"00

ينقل لمنتدى أكسل

ينقل لقسم الاعلانات

اخي الكريم اجعل سؤالك في موضوع جديد

كثرة الاوامر في الحدث الواحد ينتج عنه صعوبة في ترتيب التسلسل المطلوب وعى كل تم التعديل في المرفق ادناه وضبط الحركة بقدر المستطاع تجربه17.rar

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

تم التعديل اما : تستطيع عمل ذلك من خصائص الحقل في الجدول غير القيمة في : القيمة مطلوب الى نعم بدلا من لا تجربه16.rar

'انسخ هذا في وحدة عامة Public Function NewcatID() As Long On Error GoTo NewcatID_Err Dim GORID As Long Dim DELID As Long Dim tmax As Long GORID = Nz(DMax("[catid]", "CATEGORIES")) DELID = Nz(DMax("[catid]", "DELCAT")) tmax = GORID If DELID > tmax Then tmax = DELID tmax = tmax + 1 NewcatID = tmax Exit_NewcatID: Exit Function NewcatID_Err: MsgBox "Error " & Err & ": " & Error$ Resume Exit_NewcatID End Function 'وفي حدث النقر على زر جديد الصق هذا ينطبق على النموذجين DoCmd.GoToRecord , , acNewRec Me![catID] = NewcatID()

هل تريدها بواسطة الاستعلام ام عن طريق كود برمجي ؟

لو فرضنا امكانية ذلك وعدم الصعوبة فيبقى احتمال التكرار وارد , كيف ؟ قد يتم تسجيل اسم مبدئي بمعلومية اخر رقم ، ولكن الاحتمال وارد ان يتم ايضا تسجيل اسم دائم قبل الحاق الاول فيأخذ الرقم نفسه الحل : انت بحاجة الى عملية ترقيم واحدة تشمل الجدولين سأنظر لك في هذا ان شاء الله

نعم يمكن انظر هذه المحاولة تجربه15.rar

معلومتين ذهبيتين لمنسقي الكتب والرسائل جزاك الله خيرا

وجدت لك الحل اجعل الترقيم في جدول delcat تلقائي وعند الالحاق الى جدول delcat لا تلحق الرقم ، الحق الاسم فقط ستلاحظ انه تم منح السجل رقما جديدا وفريدا ايضا

اجعل الترقيم التلقائي لواحد منهما ، بل كونه في نموذج التسجيل المبدأي افضل كيف ؟ نفرض اننا سجلنا اربعة اسماء يأخذون الارقام 1 ، 2 ، 3 ، 4 ، ثم نقلنا الرابع الى جدول الدائمين ( الحاق وحذف ) طبعا سينتقل هو ورقمه 4 وحينما نضيف اسما جديدا سيأخذ الرقم 5 وحينما ننقل صاحب الرقم 2 فسينتقل هو ورقمه ، وسيكون مكانه شاغرا هناك بمعنى ان الجدول الاول ترقيم تلقائي بينما الجدول الآخر رقما عاديا غير قابل للتكرار هل ترى مشكلة في هذا الحل ؟

ارى ان تجعل عملك على جدول واحد ونموذج واحد وتضع خانة اختيار للتسجيل النهائي ، بحيث ان الذي لا يتم اختياره يضل مخفيا وغير ظاهر

حاولت انقل مثالك الى جهاز آخر ولكني وجدته مضروب وعلى كل حال في المرفقات تطبيق للكود السابق قبل التشغيل اجعل مستند pdf على قرص c واجعل اسمه مثلا xx ملحوظة / لرفع المرفقات لا بد من ضغطها باحد برامج الضغط winrar او winzip runapplication.rar

Private Sub OpenLink_Click() Me.OpenLink.HyperlinkAddress = Trim(Me![Link]) End Sub

اجعل حقل الرقم CATID ترقيم تلقائي فالرقم الذي يتم حذفه لا يعود ابدا

انظر المثال تم التغيير جذريا حاول اتباع الطريقة السليمة الصحيحة عند انشاء قواعد البيانات آمل ان تجد الفائدة والمتعة dbx.rar

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

تأكد من تخفيض أمان الماكرو الى الحد الأدنى