اذهب الي المحتوي
أوفيسنا

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


فتوش

الردود الموصى بها

أخي الكريم

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

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

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

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

اخي العزيز

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

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

تحياتي,,,

تم تعديل بواسطه منتصر الانسي
رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

اخي العزيز

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

تحياتي,,,

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information