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

[عمر طاهر]

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

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

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

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

teatea.accdb

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

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

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

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

استخدم الكود 

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

 

teatea.accdb

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

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

[عمر طاهر]

8 دقائق مضت, ازهر عبد العزيز 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

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

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

5 دقائق مضت, عبدالقدوس48 said:

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

لا يا اخي 

الطلب

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

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

جرب مثال

[عمر طاهر]

3 دقائق مضت, عبدالقدوس48 said:

جرب مثال

..؟

للتوضيح

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

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

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

أسف هذا هو

teatea (1).accdb

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

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

[Eng.Qassim]

انظر للمرفق

 

teatea.accdb

[عمر طاهر]

14 دقائق مضت, Eng.Qassim said:

انظر للمرفق

 

teatea.accdb 960 kB · 1 download

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

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

[Eng.Qassim]

الان, عمر طاهر 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

 

[عمر طاهر]

17 ساعات مضت, ازهر عبد العزيز 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

 

تم بالفعل

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