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

[finance95]

السلام عليكم, المطلوب  : عند تسجيل فاتورة بيع يتم اختيار المادة ويأتي معها سعر الشراء بشكل تلقائي, ليتسنى للموظف معرفة فرق سعر البيع عن سعر الشراء, علما لايتم طباعة ذلك في التقرير . بمعنى يتم طباعة الفاتورة بشكل اعتيادي (لاتحتوي على سعر الشراء او الربح), مع انشاء فواتير البيع والشراء لطفا لطفا 

11.accdbFetching info...

[alaa aboul-ela]

السلام عليكم

اطلع على المرفق من فضلك

 

فاتورة بيع - العلا سوفت 01096620227.accdbFetching info...

تم تعديل يناير 22, 2020 بواسطه alaa aboul-ela

[أبوبسمله]

  في 22‏/1‏/2020 at 08:42, alaa aboul-ela said:

السلام عليكم

اطلع على المرفق من فضلك

 

فاتورة بيع - العلا سوفت 01096620227.accdb 564 kB · 3 تنزيلات

Expand  

اخى الفاضل علاء

المرفق لايوجد به سوى جدول واحد فارغ لعلك أخطائت عند ارفاقك للمثال

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

[finance95]

alaa aboul-ela   الملف المرفق فارغ

[AmirAdams]

  في 21‏/1‏/2020 at 08:38, finance95 said:

السلام عليكم, المطلوب  : عند تسجيل فاتورة بيع يتم اختيار المادة ويأتي معها سعر الشراء بشكل تلقائي, ليتسنى للموظف معرفة فرق سعر البيع عن سعر الشراء, علما لايتم طباعة ذلك في التقرير . بمعنى يتم طباعة الفاتورة بشكل اعتيادي (لاتحتوي على سعر الشراء او الربح), مع انشاء فواتير البيع والشراء لطفا لطفا 

11.accdb 748 kB · 9 تنزيلات

Expand  

تفضل اخي الكريم

طلبك

11.rarFetching info...

[أبوبسمله]

  في 24‏/1‏/2020 at 16:57, AmirAdams said:

تفضل اخي الكريم

طلبك

11.rar 42.38 kB · 6 تنزيلات

Expand  

ما رائيك اخى الفاضل امير

باختصار الكود

الى الكود الرائع لاستاذنا جعفر @jjafferr جزاه الله خيرا هو وجميع اساتذتنا الافاضل الذين تعلمنا ونتعلم منهم كل يوم

وفى حدث قبل التحديث

Private Sub Itemcode_BeforeUpdate(Cancel As Integer)
On Error Resume Next
LN = DLookup("[itemCode] & '|' & [NameItem] & '|' & [الوحدة] & '|' & [سعر الشراء] ", "المواد", "[itemCode]='" & [itemCode] & "'")

If IsNull(LN) Then
MsgBox " كود_الصنف_المدخل غير صحيح", vbCritical, "مراقب حركة الادخالات"
DoCmd.CancelEvent

Else
    X = Split(LN, "|")

          Me.[itemName] = X(1)
          Me.[الوحدة] = X(2)
          Me.[سعر الشراء] = X(3)
       
End If
End Sub

 

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

 

[AmirAdams]

  في 24‏/1‏/2020 at 20:33, أحمد الفلاحجى said:

ما رائيك اخى الفاضل امير

باختصار الكود

الى الكود الرائع لاستاذنا جعفر @jjafferr جزاه الله خيرا هو وجميع اساتذتنا الافاضل الذين تعلمنا ونتعلم منهم كل يوم

وفى حدث قبل التحديث

Private Sub Itemcode_BeforeUpdate(Cancel As Integer)
On Error Resume Next
LN = DLookup("[itemCode] & '|' & [NameItem] & '|' & [الوحدة] & '|' & [سعر الشراء] ", "المواد", "[itemCode]='" & [itemCode] & "'")

If IsNull(LN) Then
MsgBox " كود_الصنف_المدخل غير صحيح", vbCritical, "مراقب حركة الادخالات"
DoCmd.CancelEvent

Else
    X = Split(LN, "|")

          Me.[itemName] = X(1)
          Me.[الوحدة] = X(2)
          Me.[سعر الشراء] = X(3)
       
End If
End Sub

 

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

 

Expand  

اكثر من رائع اخي الكريم أحمد الفلاحجى

بارك الله فيك

 

☘️

[finance95]

  في 24‏/1‏/2020 at 20:33, أحمد الفلاحجى said:

ما رائيك اخى الفاضل امير

باختصار الكود

الى الكود الرائع لاستاذنا جعفر @jjafferr جزاه الله خيرا هو وجميع اساتذتنا الافاضل الذين تعلمنا ونتعلم منهم كل يوم

وفى حدث قبل التحديث

Private Sub Itemcode_BeforeUpdate(Cancel As Integer)
On Error Resume Next
LN = DLookup("[itemCode] & '|' & [NameItem] & '|' & [الوحدة] & '|' & [سعر الشراء] ", "المواد", "[itemCode]='" & [itemCode] & "'")

If IsNull(LN) Then
MsgBox " كود_الصنف_المدخل غير صحيح", vbCritical, "مراقب حركة الادخالات"
DoCmd.CancelEvent

Else
    X = Split(LN, "|")

          Me.[itemName] = X(1)
          Me.[الوحدة] = X(2)
          Me.[سعر الشراء] = X(3)
       
End If
End Sub

 

تقبلوا تحياتى وتمنياتى لكم وللجميع بالتوفيق

 

Expand  

 

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

[أبوبسمله]

الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم

وموصول للاخ الفاضل امير @AmirAdams بارك الله فيه

اتفضل اختار من القائمه المنسدله

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

11.rarFetching info...

[AmirAdams]

  في 25‏/1‏/2020 at 09:38, أحمد الفلاحجى said:

الشكر لله ثم لاخواننا واساتذتنا الذين تعلمنا ونتعلم منهم كل يوم

وموصول للاخ الفاضل امير @AmirAdams بارك الله فيه

اتفضل اختار من القائمه المنسدله

تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

11.rar 57.94 kB · 2 تنزيلات

Expand  

الاخ الكريم بارك الله فيك

                                                                      

[finance95]

شكرا جزيلا بارك الله هذه الجهود