استفسار عن كود يمنع التكرار في حقل ترقيم تلقائى

[فتوش]

السلام عليكم ورحمة الله

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

[كمال النحال]

أخي الكريم

تحية طيبة وبعد ،،،،،،،،،،،،،

ما دام الحقل ترقيم تلقائي فلا أحد من الموظفين يستطيع ادخال أي رقم داخل حقل الترقيم التلقائي لأنه تلقائياً يضيف رقم تصاعدي عند إدخال أي سجل جديد.

بالتوفيق وتقبل تحياتي

[فتوش]

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

Function aut_no(table_name, fld1_name, FLD2_NAME, fld2_val) As Long

On Error GoTo err1

'***************************************************

Dim NO1

If fld2_val = 0 Then

NO1 = DMax(fld1_name, table_name)

Else

NO1 = DMax(fld1_name, table_name, FLD2_NAME & fld2_val)

End If

If IsNull(NO1) Or IsEmpty(NO1) Then NO1 = 1 Else NO1 = NO1 + 1

aut_no = NO1

'***************************************************

err1:

Exit Function

End Function

[منتصر الانسي]

اخي العزيز

اذا كنت فهمت سؤالك فالحل من خصائص النموذج اجعل خاصية (تأمين السجلات) = سجل محرر

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

تحياتي,,,

تم تعديل سبتمبر 7, 2008 بواسطه منتصر الانسي

[فتوش]

بارك الله فيك وكثر من امثالك ونفع بك ولكن عندي سؤال يعني كلامك ان هذه الخاصيه لايمكن احد ان يدخل بيانات في هذا النموذج او انه فقط في هذا الحقل وهل يعطي رساله بهذا الشأن

ولك تحياتي وشكري على الرد

[منتصر الانسي]

اخي العزيز

هذه الخاصية تقوم بمنع اكثر من مستخدم العمل في نفس السجل (وليس النموذج) مثلا يستطيع المستخدم الاول ان يعمل في السجل رقم 15 والمستخدمين الاخرين يعملون في نفس النموذج ولكن في اي سجل غير 15 اما من حيث الرسالة بصراحة لم انتبه ولكن يمكنك ان تجرب وتخبرنا.

تحياتي,,,

[فتوش]

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