مساعدة في كود نسخ سجل بناء على رمز او رقم

[عمر طاهر]

السلام عليكم ورحمة الله

في النموذج المرفق البسيط سؤال ..

كيف يمكنني أن أنسخ قيمة السجل السابق من الكمية عند .او . بعد ادخال رقم 0 في السجل الحالي من الكمية ؟؟

أرجو الافادة ولكم جزيل شكر

teatea.accdbFetching info...

[عبدالقدوس48]

وعليكم السلام أخي 

سؤالك ليس واضح

[ازهر عبد العزيز]

استخدم الكود 

Private Sub tot_AfterUpdate()
If Me.tot = 0 Then
Me.oldtot = Me.tot.OldValue
End If
End Sub

 

teatea.accdbFetching info...

[عبدالقدوس48]

teatea.accdbهل هذا طلبك

[عمر طاهر]

  في 1‏/3‏/2022 at 11:17, ازهر عبد العزيز said:

استخدم الكود 

Private Sub tot_AfterUpdate()
If Me.tot = 0 Then
Me.oldtot = Me.tot.OldValue
End If
End Sub

 

teatea.accdb 640 kB · 0 downloads

Expand  

شكرا اخي لكن ليس هذا ما اردت

اردت في نفس النموذج ينسخ الخانة السابقة من نفس العمود

  في 1‏/3‏/2022 at 11:22, عبدالقدوس48 said:

teatea.accdbهل هذا طلبك

Expand  

لا يا اخي 

الطلب

كي لا اعيد كتابة رقم موجود في الخانة السابقة من الكمية ... أضغط صفر فيكتب القيمة تلقائيا

[عبدالقدوس48]

جرب مثال

[عمر طاهر]

  في 1‏/3‏/2022 at 11:28, عبدالقدوس48 said:

جرب مثال

Expand  

..؟

للتوضيح

الرقم السابق هو 15 ...

أريد عند كتابة 0 يستبدل الصفر بقيمة الخلية السابقة وهي 15

[عبدالقدوس48]

أسف هذا هو

teatea (1).accdbFetching info...

[ازهر عبد العزيز]

اسف لايوجد عندي حل لكني منتظر معك الاجابة

[Eng.Qassim]

انظر للمرفق

 

teatea.accdbFetching info...

[عمر طاهر]

  في 1‏/3‏/2022 at 13:09, Eng.Qassim said:

انظر للمرفق

 

teatea.accdb 960 kB · 1 download

Expand  

شكرا لك وللاخوة

جزاك الله خيرا

[Eng.Qassim]

  في 1‏/3‏/2022 at 13:23, عمر طاهر said:

جزاك الله خيرا

Expand  

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

[ازهر عبد العزيز]

اعتقد اني وجدت الحل لك وذلك عن طريق الكود للاستاذ @Eng.Qassim

If Me.tot = 0 Then
Dim ID As Long
ID = CurrentRecord - 1
Me.tot.Value = DLookup("tot", "asas", "ID=" & ID)
End If

 

[عمر طاهر]

  في 1‏/3‏/2022 at 13:32, ازهر عبد العزيز said:

اعتقد اني وجدت الحل لك وذلك عن طريق الكود للاستاذ @Eng.Qassim

If Me.tot = 0 Then
Dim ID As Long
ID = CurrentRecord - 1
Me.tot.Value = DLookup("tot", "asas", "ID=" & ID)
End If

 

Expand  

تم بالفعل

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