ترقيم تلقائي بدون ترقيم اكسس ( كود مخصص لايقبل التكرار )

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

ترقيم تلقائي في 3 انواع من النماذج وتفادي مشكلة الحذف اخر تحديث

الاخ همام ابو عرقوب للأسف لم استطع الاستفادة من نموذجك ,,

إذا امكن التعديل على المرفق وشكرا

مشكور ويعطيك العافية

بسم الله الرحمن الرحيم

طيب شوف الموضوع هذا يمكن يفيدك

/index.ph...st&p=943098

الرفع للأهمية

up

up

up

للرفع

وعليكــم السـلام ورحمة الله وبركاتـه..

طيب من الممكن أخي أن تتبع هذه الطريقة كما في الملف المرفق...

الكود المضاف هو

	If IsNull(InvNo) Then
		InvNo = Nz(DMax("[f]", "[t]"), 0) + 1
	End If

في حدث Current للنموذج... هذا يعني أنه عند كل سجل، إذا كان حقل رقم الفاتورة خالياً، سيتم البحث عن أكبر قيمة لهذا الحقل في جدول المبيعات وإضافة واحد ثم تعيين الناتج كرقم الفاتورة الجديد... لاحظ أننا جعلنا رقم الفاتورة حقلاً غير قابل للتحرير من الخاصية Locked...

1.rar

ياسلام عليك يا احمد مبارك ,,, ولكن هناك مشكلة عند عمل ازر اضافة سجل فأنه ينتقل تلقائيا حتى وإن كانت الحقول فارغة في النموذج الفرعي .. ؟