نسخ حقل بناء علي قيمة اخر

[husseinharby]

السلام عليكم

في نموذج sale

اريد عندما يكون رقم الكود 1

ان يتم نسخ قيمة خانة الصافي الي خانة الدفعة

Pictures.rar

[husamwahab]

تفضل اخي العزيز

ارجو ان يكون طلبك

ملاحظة : اذا كان التعديل مناسب فالافضل ان يكون اختيار الكود اخر عملية ادخال 

copy-1.rar

[husseinharby]

لم يتم عمل المطلوب

المطلوب عندما يكون رقم الكود 1

وبعد ادخال الكمية والسعر والصنف

ان يتم نقل او نسخ صافي الفاتورة الي خانة الدفعة

[husamwahab]

نعم اخي العزيز

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

اي اجعل رقم الكود اخر عملية ادخال 

[husseinharby]

لايمكن عمل ذلك ترتيب الادخال في الفاتورة مهم

@احمد الفلاحجي

[أبوبسمله]

السلام عليكم اخى @husseinharby

مشاركه مع اخى العزيز @husamwahab جزاه الله خيرا

نفس كود اخى حسام بس نقلته فى حدث عند الخروج للتكست 49 الصافى

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

ان شاء الله يكون ما تريد

بالتوفيق

copy-2.accdb

[husseinharby]

السلام عليكم استاذ @احمد الفلاحجي

شكرا للرد لكن هناك مشكلة

انا اقوم بعمل فاتورة بأكثر من صنف اي عدد سجلات كثيرة

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

 لكن هنا يتم نقل التركيز الي خانة الصافي  مما يضطرني ان ارج الي خانة الصنف مرة اخري بالماوس وهذا صعب

[أبوبسمله]

ان شاء الله احد اخواننا واساتذتنا جزاهم الله خيرا يقدم لك حل آخر يتناسب معك

بالتوفيق

[أبوبسمله]

اخى @husseinharby

جرب ووافنى بالنتيجه وان شاء الله يكون فى حلول افضل

الكود موجود فى حدث بعد التحديث للفورم الفرعى

Private Sub Form_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
Me.Requery
'MsgBox Me.Text70.Value
Forms!sale!code.SetFocus
If Forms!sale!code = 1 Then
Forms!sale!deposit = Forms!sale!Text49
Else
  Forms!sale!deposit = 0
End If
Forms!sale!sale_sub.SetFocus
DoCmd.GoToRecord , , acNewRec

End Sub

بالتوفيق

copy-2.accdb

[husseinharby]

بارك الله فيك 

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