ترقيم تلقائي بدون تدخل المستخدم

[taweel2000]

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

 

أخوكم على علم بسيط في الاكسس .. وأحتاج إلى خدمة بسيطة من مرتادي هذا المنتدى الرائع .. وخصوصا ما لمسه الجميع من التعاون المتبادل بينهم ونقل الخبرات .. فلهم مني كل تقدير واحترام .. 

 

اخواني : لدي قاعدة بيانات مرفقة وأحتاج فقط إلى أن البرنامج يقوم بإعطائي رقم تلقائي تسلسلي يبدأ من الرقم ( 1 ) مثلا بدون تدخل من المستخدم ، وعند تسجيل سجل جديد يقوم البرنامج بإعطائي الرقم الذي يليه مباشرة ( 2 ) مثلا .. وهكذا .. أرجو أن يكون طلبي واضح للجميع ..

 

مرفق لكم قاعدة البيانات .. 

 

تحياتي للجميع 

db5.rar

[أبا عمر]

الترقيم التلقائي يفي بالغرض ويبدأ ترقيمه من 1 كما تريد ولا يتكرر أبدا وبدون تدخل المستخدم

[taweel2000]

عزيزي أبا عمر : 

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

 

قصدي بالترقيم التلقائي ليس على المفتاح الأساسي للجدول ( table ) بل أرغب في الترقيم التلقائي مثلا : أريد السجل الذي يحمل الاسم ( أبا عمر ) مثلا يبدأ بالرقم 215 .. وبعد ذلك عند تسجيل سجل جديد آخر يقوم البرنامج بإعطائي الرقم ( 216 ) ومن ثم ( 217 ) وهكذا .. أرجو أن يكون قد أوضحت قصدي من ذلك .. تحياتي لك

[أبا عمر]

ممكن تتطلع على هذا الرابط لعل فيه ما تريد

[taweel2000]

عزيزي أبا عمر

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

 

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

 

فطلبي هو أنه عندما يتم تسجيل سجل جديد فإنني أرغب في أن يزودني البرنامج برقم ( واحد ) وعند الانتقال الى تسجيل سجل آخر ، يقوم البرنامج بتزويدي برقم آخر وهو ( اثنان ) .. بحيث أن السجل الأول يحمل الرقم ( 1 ) والسجل الثاني يحمل الرقم ( 2 ) وهكذا ..

 

معذرة لتكرار المشكلة ولكنني بحاجة إلى هذه الطريقة .. فأتمنى ممن يجد لي الطريقة بأن لا يبخل علينا بها .. شاكرا ومقدرا مدى تعاون الجميع 

[ابوخليل]

Option Compare Database
Dim x As Integer
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If IsNull(Text1) = True Then
'بدء الترقيم من 216
Text1 = 216
x = 1
Else
Text1 = x + Text1
End If
End Sub

[taweel2000]

عزيزي أبو خليل :

اشكرك على مرورك وتفضلك بتزويدي بالكود السابق .. ولكن معذرة .. أين أضع الكود السابق .. تحياتي

[ابوخليل]

يوضع هذا الكود في محرر الفيجوال  الخاص بالنموذج او التقرير

 

التطبيق المرفق وضعنا الكود في حدث طباعة التفصيل في التقرير

db4.rar

[taweel2000]

عزيزي أبو خليل :

 

كلمة شكر لا تفي بحقك وبحق أبا عمر .. ولكن لي طلب من شخصك الكريم ،  ألا وهو الرجاء تحميل ملفي المرفق والتعديل عليه ومن ثم رفعه مرة أخرى .. لأنني أرغب في أن يظهر الترقيم في النموذج والذي يتم بعد ذلك تسجيله في الجدول تلقائيا بعد حفظ السجل .. معذرة ولكن تحملوني  

[ابوخليل]

تفضل وامل ان يفي بحاجتك

db6.rar

[taweel2000]

عزيزي أبو خليل

أشكرك مرة أخرى على جهودك وتعبك معي .. ولقد وفى بالغرض المطلوب مؤقتا .. رغم أنني لم أرضي طموح نفسي بعد .. وبمشاهدة المرفق ألاحط أن السجل الأول لا يحمل أي رقم .. بل يجب علي أن أقوم بكتابة الرقم ( 1 ) مثلا من خلال الجدول وليس النموذج .. وبعد ذلك ألاحظ أن النموذج قد بدأ بالفعل يعطيني أرقام تسلسلية في كل مرة أقوم بتسجيل سجل جديد ..

ولكن المستغرب بأنني عند تسجيل السجل الأول لا يقوم بإعطائي رقم ( 1 ) .. فلماذا يكون ذلك ؟