اريد عند الذهاب الي السجل التالي يقوم باستدعاء LastNum

[مدحت توفيق]

السلام عليكم

 

عند الانتقال الي السجل التالي اريد يقوم باستدعاء دالة  LastNum  

ملاحظات  

رقم الوثيقة مسلسل بالتدرج بالتراتيب  وقابل لتغير 

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

اريد عند الانتقال الي سجل  جديد  استدعاء   LastNum

( LastNum) هي عبارة عن  جلب اخر رقم وثيقة +1

وافر الاحترام والتقدير 

121.rar

[ابو جودي]

جرب الكود

Private Sub Form_Current()
If NewRecord Then
Call LastNum
Else
Exit Sub
End If
End Sub

 

[مدحت توفيق]

السيد/ ابا جودي (محمد عصام)  المحترم

تحيه طيبه وبعد

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

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

قي اخر سجل يقوم فتح سجل جديد  

وافر الاحترام والتقدير 

شاكرين حسن تعاونكم معنا

121.zip

[مدحت توفيق]

برجاء الرد والافادة

[محمد أبوعبدالله]

بعد اذن استاذنا الفاضل @ابا جودى

يمكنك تعطيل الكود التالي

'Private Sub Form_AfterInsert()
' LastNum
'End Sub

121.zip

تخياتي

[مدحت توفيق]

السيد/محمد ابو عبدالله المحترم   

شكر لك علي المساعدة 

شاكرين حسن تعاونكم معنا

هذا هو المطلوب

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

تحياتي