اذهب الي المحتوي
أوفيسنا

إضافة تعديلات في برنامج مخازن


moho58

الردود الموصى بها

السلام عليكم الإخوة الأفاضل في هذا المنتدى الجميل

هذا برنامج مخازن لأستاذنا الفاضل@ابوخليل 

بناءا على طلبي في موضوع سابق

رابط موضوعي السابق:

 

 

استاذنا الفاضل @ابوخليل أريد بعض الإضافات  والتعديلات حسب احتياجاتي من استعمال لهذا البرنامج في العمل ;والبداية بما لي:-

في نموذج مكرة الإدخال والإخراج(جدولtblInvoiceDetail و tblInvoiceHeader  أريد أن يكون معرف الحركة moveCode :رقم تلقائي حتى لا أظصر لكل مرة في  كتابته لانه مع استعمال البرنامج في عملي اضطر كل مرة لكتابته ويجب أن لا يكون مكرر

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

لهذا قررت إضافة هذا الحقل وجعل معرف الحركة رقم تلقائي

 

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

وبارك الله فيك وجزاك الله كل خير وجعلها في ميزان حسناتك

 

 

 

stock9 .accdb

رابط هذا التعليق
شارك

عليكم السلام

اخي الكريم .. توجيه الطلب لشخص بعينه غير مستحسن ، ولا يصب في صالح السائل .. فقد يحرمه من اجابات افضل .. 

لطفا .. لا تكررها  .. واجعل طلبك دوما للعموم

--------------------------

مطلوبك سهل جدا ويمكن تحقيقه بعدة طرق منها :

1- ان يكون الرقم = id  ... في حدث بعد التحديث لمربع العميل :  moveCode=id

بكذا يكون غير قابل للتكرار  وكل فاتورة لها رقمها الخاص

بعضهم يريد التنسيق التالي :

تسلسل ارقام الوارد لوحدها وتمييزها بحرف  .. وكذلك تسلسل ارقام الصادر لوحدها وتمييزها بحرف

انظر ماذا تريد

  • Like 1
رابط هذا التعليق
شارك

10 ساعات مضت, ابوخليل said:

عليكم السلام

اخي الكريم .. توجيه الطلب لشخص بعينه غير مستحسن ، ولا يصب في صالح السائل .. فقد يحرمه من اجابات افضل .. 

لطفا .. لا تكررها  .. واجعل طلبك دوما للعموم

--------------------------

مطلوبك سهل جدا ويمكن تحقيقه بعدة طرق منها :

1- ان يكون الرقم = id  ... في حدث بعد التحديث لمربع العميل :  moveCode=id

بكذا يكون غير قابل للتكرار  وكل فاتورة لها رقمها الخاص

بعضهم يريد التنسيق التالي :

تسلسل ارقام الوارد لوحدها وتمييزها بحرف  .. وكذلك تسلسل ارقام الصادر لوحدها وتمييزها بحرف

انظر ماذا تريد

مشكور جدا أستاذنا الفاضل

 في حدث بعد التحديث لمربع العميل :  moveCode=id

بكذا يكون غير قابل للتكرار  وكل فاتورة لها رقمها الخاص

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

أما هذه الخاصية

بعضهم يريد التنسيق التالي :

تسلسل ارقام الوارد لوحدها وتمييزها بحرف  .. وكذلك تسلسل ارقام الصادر لوحدها وتمييزها بحرف

لم أعرفها

------

إن امكن طلب آخر وهو

أريد إضافة زر حفظ وزر حذف مع رسالة تأكيد الحذف أو الحفظ

مع الانتقال إلى سجل فارغ في حالة الحفظ لحجز بيانات جديدة

حاولت عن طريق الماكرو لم تنجح معي الفكرة

وبارك الله فيك وجزاك الله كل خير

 

 

 

img1.png

رابط هذا التعليق
شارك

بالنسبة للحفظ والحذف

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

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

الرئيسي اعمل له زر ماكرو .... والفرعي جاهز فقط يتم التحديد على السجل ثم زر delet

----------------------------------

اعجبني مثالك .. اذا وجدت الوقت الكافي سوف اعمل تحسينات جوهرية عليه

-----------------------------------------------

تفضل هذه طريقة الترقيم الخاص

Dim xLast, xNext As Integer
Dim prtyr, prtTxt As Integer
xLast = DMax("moveCode", "tblInvoiceHeader", "Left(moveCode, 1) ='" & "W" & "'")
prtyr = Left(xLast, 1)
If IsNull(xLast) Then
xNext = 1
prtyr = "W"
Else
xNext = Val(Mid(xLast, 2, 5)) + 1
End If
Me!moveCode = prtyr & Format(xNext, "00000")

 

stock10 .rar

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information