ظهور السعر عند ادخال الصنف في الفاتورة البيع

fawaz2004 كتب:

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

تم التعديل على الملف المرفق

في قاعدة بياناتك تقوم بالضغط مرتين على رقم الصنف حتى يظهر فورم البحث

لكن من الضروري بعد أن تقوم بالضغط مرتين على الصنف المراد وظهوره في فاتورة البيع

أن تقوم بكتابة رقم الصنف يدويا حتى يظهر لك السعر تلقائيا

وإذا كان لأحد خبراء الأكسس في هذا المنتدى بحل أفضل

فله الشكر

db1.zip

omr_g كتب:

تم التعديل على الملف المرفق

في قاعدة بياناتك تقوم بالضغط مرتين على رقم الصنف حتى يظهر فورم البحث

لكن من الضروري بعد أن تقوم بالضغط مرتين على الصنف المراد وظهوره في فاتورة البيع

أن تقوم بكتابة رقم الصنف يدويا حتى يظهر لك السعر تلقائيا

وإذا كان لأحد خبراء الأكسس في هذا المنتدى بحل أفضل

فله الشكر

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

تفضل التعديل

مع التحية والتقدير للأستاذ القدير/كمال النحال

dbBill.rar

غرّام العقول كتب:

تفضل التعديل

مع التحية والتقدير للأستاذ القدير/كمال النحال

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

fawaz2004 كتب:

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

في النموذج المسمى SHOW هناك مربع قائمة تحتوي على رقم الصنف , واسم الصنف , وعند النقر المزدوج على مربع القائمة ينتقل رقم الصنف إلى الفاتورة عن طريق الكود التالي الموجود في حدث عند النقر المزدوج لمربع القائمة.

ما قمت به من تعديل هو أنني أضفت سعر البيع إلى مصدر بيانات مربع القائمة وذلك عن طريق:

1- خصائص مربع القائمة - بيانات - مصدر الصف - منشئ الاستعلام - أضفت الحقل Price2

2- عند حدث عند النقر المزدوج لمربع القائمة أضفت السطر الثالث في للكود:

Private Sub SearchList_DblClick(Cancel As Integer)
On Error GoTo ABC
Forms![FTS]![FFDS]![ITemNo] = Me.SearchList.Column(0)
Forms![FTS]![FFDS]![PriceS] = Me.SearchList.Column(2)
DoCmd.Close acForm, "Show"
ABB:
Exit Sub
ABC:
Beep
Resume ABB
End Sub

غرّام العقول كتب:

في النموذج المسمى SHOW هناك مربع قائمة تحتوي على رقم الصنف , واسم الصنف , وعند النقر المزدوج على مربع القائمة ينتقل رقم الصنف إلى الفاتورة عن طريق الكود التالي الموجود في حدث عند النقر المزدوج لمربع القائمة.

ما قمت به من تعديل هو أنني أضفت سعر البيع إلى مصدر بيانات مربع القائمة وذلك عن طريق:

1- خصائص مربع القائمة - بيانات - مصدر الصف - منشئ الاستعلام - أضفت الحقل Price2

2- عند حدث عند النقر المزدوج لمربع القائمة أضفت السطر الثالث في للكود:

Private Sub SearchList_DblClick(Cancel As Integer)
On Error GoTo ABC
Forms![FTS]![FFDS]![ITemNo] = Me.SearchList.Column(0)
Forms![FTS]![FFDS]![PriceS] = Me.SearchList.Column(2)
DoCmd.Close acForm, "Show"
ABB:
Exit Sub
ABC:
Beep
Resume ABB
End Sub

hاشكرك عزيزي على شرحك يحفظك الله وانت والزملاء