بين الترقيم التلقائي ودالة Dmax انقذونا

الأخ على جرب أن تضع فى حدث قبل التحديث الدالة DLOOKUP لفحص الرقم الذي تم ادخاله بحيث لا يتكرر مرتين .

المشكلة التي ذكرتها سببها أن السجل الذي تتم معالجة جديد، وهذا يعني أن قاعدة البيانات لن تتداوله حتى يتم حفظة.

إذا يجب أن تعطي قاعدة البيانات الأمر Refresh قبل فتح قاعدة من قبل المستخدم الآخر .

إذا لم تكن تستخدم DAO أو ADO قم بإصدار هذا الأمر من النموذج في بداية إجراء (إضافة)

ملاحظة: لا تستخدم النهج Update، لانه يعيد مجموع السجلات إلى البداية، وهذا الإجراء يعطل على المستخدم الأول إتمام سجله المحرر

أنا عملت عندي مثال واشتغل تمام بدون مشاكل، ومن أي رقم

Dim Sql, CheckList

Sql = "Delete * from OrphanKaffeal Where kaf_no = null or kaf_name= null"

DoCmd.RunSQL Sql

CheckList = DMax("[kaf_no]", "OrphanKaffeal")

If IsNull(CheckList) Then

Forms!OrphanKaffeal!kaf_no = 5555

Else

Forms!Add_OrphanKaffeal!kaf_no = ""

Forms!Add_OrphanKaffeal!kaf_no = CheckList + 1

End If

اشكر اهتمامكم يا اخوان

الاخ kab هل جربت المثال على الشبكة واذا كان كذلك امل وضع عينة المثال في المنتدى للاستفادة

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