كيفية عمل ترقيم مخصص لكل اداره

up

للرفع

up

up

للرفع

up

اخوانى قمت باستخدام هذا الكود لاختنا ام عهود فى مثال سابق لها

Private Sub strNameN_AfterUpdate()
Me.strNumber.SetFocus
Dim vLastN As Variant
Dim iNext As Integer
vLastN = DMax("[strNumber]", "[tblName2]", "[strNameN] LIKE '" & strNameN & "'")
If IsNull(vLastN) Then
iNext = 1
Else
iNext = vLastN + 1
End If
Me![strNumber] = iNext

End Sub

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

ارجو المساعده

مرفق المثال بعد التعديل الاخير

تمنياتى للجميع بالتوفيق

TestNum_UP.rar

لحظات اخي الكريم : احمد

لأضع لك الترقيم التلقائي الخاص بكل ادارة على حده

بالتوفيق

اخي الفاضل : احمد

هذا ملفك بعد التعديل فيما يخص الترقيم التلقائي لكل اداره

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

ما اطلبه منك الآن هو القيام بتعبئة حوالي 10- 15 سجل لكل اداره على حده ثم القيام برفع الملف مره ثانية هنا لكي اقوم بعمل اعادة الترقيم التلقائي للسجلات في حالة حذف سجل لكل ادارة منفصله عن الأخرى

za-TestNum-UP.rar

بالتوفيق

اختى زهره بارك الله لكى فى عملك واولادك ووقتك اللذى تقضينه بيننا فى سبيل العلم

تم اضافة 10 سجلات لكل اداره كما طلبتى

لى ملحوظه صغيره فى حالة الادخال لم يتم تثبيت الاداره

جزاكى الله عنا كل خير يا ام عهود

za-TestNum-UP1.rar

تفضل اخي الكريم : احمد

برنامجك جاهز من الألف الى الياء ولا ينقصه اي شيء فجميع طلباتك تم حلها

1. عندما تقوم بفتح قاعدة البيانات سيظهر لك النموذج الرئيسي

سيكون النموذج خالي من البيانات حتى تقوم بإختيار احدى الإدارات

بعد اختيار احدى الإدارات ستظهر لك جميع سجلات تلك الإدارة فقط

يمكنك الآن التنقل بين سجلات الإداره وايضا يمكنك اضافة سجل جديد لهذه الإداره مع بقاء اسم الإدارة ثابتا حتى تقوم بتغييره الى اداره جديده وايضا يمكنك حذف سجل من هذه الإداره مع اعادة الترقيم التلقائي لسجلات تلك الإداره فقط وهذا يسري على جميع الإدارات

ملاحظة : بعد اختيار الإدارة واضافة سجل جديد وبعد الخروج من حقل رقم البطاقة سيتم مباشرة الترقيم لهذا السجل الجديد ويتم ادارجه في الجدول مباشرة

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

كل ما عليك الآن هو التجربه وابداء ملاحظاتك اذا كان هناك اي تعديلات اضافية

ولكن رجاء لا تقم بتعديل اي شيء حتى تبلغنا بذلك لأن البرنامج لا يحتاج بعد اللآن الى تعديلات او اضافات ليس لها لزوم .

za-TestNum-Last.rar

بالتوفيق

بارك الله فيك أستاذتنا الفاضلة ... زادك الله علما.

اختى الفاضله ام عهود

بارك الله فيكى وسلمت يمينك تعديلات اكثر من رائعه

باقى فقط بعض امور صغيره

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

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

قمت بفتح نموذج FRMALL لوحده وقمت بتجربة ادخال رقم مسجل فعمل جيدا وقام بالانتقال الى النموذج FRMAdd وهناك قمت باضافة الكود لحقل الرقم لكى يعمل الترقيم .

Dim I, S
 	I = Me!kindd
 	S = Nz(DMax("AutoNum", "TBianat", "kindd = '" & I & "'"), 0)
 	S = S + 1
Me![AutoNum] = S

بارك الله لنا فيكى وبارك لكى فى عهود وشهد وجعل اعمالك فى موازين حسناتك

*

رجاء أستاذتنا الفاضلة هلا تفضلت بشرح هذا الكود ....

Function zaReAutoNum(FldName As String, Val As String) As Integer
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Dim str As String
str = "select * from QAll where " & FldName & "='" & Val & "'"
Set rs = db.OpenRecordset(str, dbOpenDynaset)
While Not rs.EOF
With rs
	.Edit
 	!AutoNum = rs.AbsolutePosition + 1
   .Update
   .MoveNext
End With
Wend
zaReAutoNum = rs.RecordCount
End Function

اخي الفاضل : احمد

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

لذا قربت لك الطريقة كالتالي :

1. عند فتح النموذج الرئيسي والفرعي سيكونان خاليان من البيانات

2. عتد اختيار اي ادارة فستلاحظ مباشرة ان النموذج الفرعي ذهب مباشرة الى آخر سجل من سجلات الإداره . الآن اضغط على اضافة سجل ( لا اعتقد انها معجزه نقرة زر واحده فقط ) حتى يتجاوب معك البرنامج بطريقة سليمه ومنها تعرف انك في السجل الأخير وكم ترقيم هذا السجل واذا رأيت ان هناك اي اختلاف او لديك شك في ترقيم السجل فيوجد لديك زر امر ( اعادة الترقيم ) منفصل تماما عن زر امر ( حذف سجل )

za-TestNum-Last2.rar

بالتوفيق

بارك الله فيكى يام عهود

قربت كتير يا ام عهود وتسلم ايدك على هذه التعديلات

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

تفضل أخي احمد

اخر التعديلات بناء على طلبك

za-TestNum-Last-UP.rar

تم تعديل المرفق بناء على ملاحظة الأستاذ احمد

بالتوفيق

جزاكى الله خيرا يا ام عهود

بالمرفق الاخير خطأ صغير لاينقص من روعة تعديلاتك شىء وهو فى النموذج frmadd كود الترقيم بحقل رقم البطاقه بعد التحديث والصحيح لحقل الاداره بعد التحديث

واعتذر لكى عن الاطاله وان كنتى تسمحين لى ببعض الاسئله غدا ان شاء الله

بارك الله لنا فيكى ورزقك راحة البال والطمأنينه وسدد خطاكى

وبارك الله لكى فى عهود وشهد

طالب علم مبتدىء كتب:

جزاكى الله خيرا يا ام عهود

بالمرفق الاخير خطأ صغير لاينقص من روعة تعديلاتك شىء وهو فى النموذج frmadd كود الترقيم بحقل رقم البطاقه بعد التحديث والصحيح لحقل الاداره بعد التحديث

واعتذر لكى عن الاطاله وان كنتى تسمحين لى ببعض الاسئله غدا ان شاء الله

بارك الله لنا فيكى ورزقك راحة البال والطمأنينه وسدد خطاكى

وبارك الله لكى فى عهود وشهد

بارك الله بك : اخي احمد

تم تعديل المرفق السابق الى حقل الاداره

بالتوفيق

وبارك الله فيكى يا ام عهود

اعتذر عن الاطاله

قمت بنسخ زر الاغلاق والحفظ من الامثله السابقه لى ووضعتها على المثال الاخير بالنموذج frmall ولكن لم تعمل فى الاستخدام من على النموذج frmmain

قمت بعمل بعض تغييرات فى الاكواد ولكن لم تعمل ايضا ارفق الملف للنظر فيه

تقبلى تحياتى وتمنياتى لكى وللجميع بالتوفيق

za-TestNum-Last-UP_1.rar

اخي الفاضل : احمد

تفضل ملفك بعد التعديل

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

اما زر الأغلاق فقد وضعناه خارج النموذج اي على النموذج الرئيسي ولهذا لابد من اسناد كامل الأمر الى النموذج الفرعي

za-TestNum-Last-UP_2.rar

بالتوفيق

اختى ومعلمتى زهره

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

تفضل اخي الكريم : احمد

اخر تعديل على الملف

ورجاء وانا اختك لا تعدل او تضيف اشياء ليس لها لازمه

لأنك كلما اضفت او عدلت يبدأ التعقيد في البرنامج لأنني سابقا وضعته بخطوات منظمه وكان يعمل بشكل سليم حتى قمت انت بالإضافات الجديده التي لا ارى لها اي داعي

za-TestNum-Last-UP_3.rar

بالتوفيق

جزاكى الله كل خير يا ام عهود ورزقكك راحة البال

الاسباب كثيره وانت تعلمينها فى مدخلوا البيانات ولكن عندى فئات خاصه جداااااااااااااااااااااااااااااااااااااااااااااااااا الى ابعد ماتتخيلى فانا واحد منهم واقلهم فاعذرينى

هذه الرساله تظهر معى كثير هل من حل لعدم ظهورها

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

اسال الله العلى العظيم ان يوفقك فى حياتك العمليه والدنيويه

وان يوفقك لما يحبه ويرضاه