كيف امكن الدالة DMax على العمل مع تعدد المستخدمين لاعطاء ترقيم تلقائي

[alcasir]

مســــــاء الخيــــــرات

استخدم ترقيم تلقائي باستخدام الدالة dmax

ووضعت الكود الاتي

Me!ID = Nz(DMax("[iD]", "[importationtable]"), 0) + 1

عند حدث قبل الادراج بالنموذج

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

لكن لاحظت اثناء تعدد المستخدمين الرقم التلقائي لا يتغير عندما يقوم المستخدم الاخر بادخال البيانات في النموذج في نفس الوقت..!!!؟؟

انا في اشد الحاجة الى العمل في هذا المجال..؟؟

ارجو واتمنى التكرم بالافادة

ولكم خالص شكر وتقديري

علما ان الحقل ID هو المفتاح الرئيسي

DMax.rar

[alcasir]

للرفع

[yr_20]

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

جربها

[Shivan Rekany]

في ٤‏/١٠‏/٢٠١٠ at 20:16, alcasir said:

مســــــاء الخيــــــرات

 

استخدم ترقيم تلقائي باستخدام الدالة dmax

ووضعت الكود الاتي

Me!ID = Nz(DMax("[iD]", "[importationtable]"), 0) + 1

عند حدث قبل الادراج بالنموذج

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

لكن لاحظت اثناء تعدد المستخدمين الرقم التلقائي لا يتغير عندما يقوم المستخدم الاخر بادخال البيانات في النموذج في نفس الوقت..!!!؟؟

انا في اشد الحاجة الى العمل في هذا المجال..؟؟

ارجو واتمنى التكرم بالافادة

ولكم خالص شكر وتقديري

علما ان الحقل ID هو المفتاح الرئيسي

DMax.rar

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

Private Sub NEW_Click()
On Error GoTo Err_NEW_Click
    DoCmd.GoToRecord , , acNewRec
        Me!ID = Nz(DMax("[ID]", "[importationtable]"), 0) + 1
            Me.importername = ""
                 DoCmd.Save
Exit_NEW_Click:
    Exit Sub

Err_NEW_Click:
    MsgBox Err.Description
    Resume Exit_NEW_Click
    
End Sub

 

DMax (1).rar

[محمد ايمن]

تحية طيبة اخي الكريم

حل آخر و هو ان تستخدم جمل SQL لادخال السجل و بهذه الطريقة لن ياخذ السجل الرقم الجديد الا في لحظة ادخال السجل كاملا الى الجدول