أمر يأخذ قيم من شاشة للتضاف للشاشة أخري

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

السادة الأساتذة - الأخوة الكرام

توجد شاشة تطلب كود الصنف وتوجد شاشة مبنية علي إستعلام تظهر كود الصنف والإسم ويتم فيها البحث

وفي الشاشة التي تطلب الكود يتم الضغط علي ( F9 ) فيفتح شاشة الإستعلام

المطلوب زر أمر بالغضط عليه ينقل الكود المختار من شاشة الإستعلام إلي الشاشة التي تطلب الكود

أو بالغضط علي Enter وبالــــــ dupleclick نظراً لكثرة الأكواد

أخيكم ( محمد جلال )

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

خاص بنقل قيمة من شاشة إلي أخري

علي فرض أن الشاشة الأولي A والشاشة الثانية B

Public Sub FormA_OnEnter()

If Forms!FormB!txtField <> Null

Me!txtMyField = Forms!FormB!txtField

End If

End Sub

أخيكم ( محمد جلال )

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

Private Sub Ctlرقم الصنف_DblClick(Cancel As Integer)
Dim rst As Recordset
  On Error Resume Next
Me.item_id = Forms!se!Me.item_id
Me.item_name = Forms!se!Me.item_name
Me.unit = Forms!se!Me.unit
'Me.sel_prise = Forms!se!Me.sel_prise
'Me.blance = Forms!se!Me.blance
Set rst = Form.RecordsetClone
            Form.Requery
            rst.MoveLast
            Form.Bookmark = rst.Bookmark
            rst.Close
End Sub

fat.rar

ملاحظة : الحقول غير متساوية في النموذجين عدى ثلاثة حقول ( رقم الصنف ) ( اسم الصنف ) ( الوحدة )

اختكم

زهره

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

ألف شكر للأستاذة الفاضلة / زهرة علي المتابعة والرد

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

ومرسل مثال بسيط للفكرة وشكل الكود وأتمني إبداء الرأي في الكود

أخيك ( محمد جلال )

*******************************************************************

بإذن الله صلاة الفجر يوم عرفة جماعة + الجلوس في الجامع إلي أن تشرق الشمس

نذكر الله ثم نصلي ركعتين ربنا يكتب لنا حجة وعمرة تامة

*********************************************

ربنا يوعدك ويوعدنا بها آمين

senditem.rar