اشكالية في ايجاد الارقام الناقصة

سبحان الله

الحمد لله

جزاكم الله خيرا يا جماعة الخير

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

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

 لا اله الا الله

سبحان الله

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

في الحقيقة فكرة الحل بسيطة..

أنت بحاجة إلى عمل التالي

_ معرفة قيمة للقيد الفرعي بشرط العميل ونوع العملية... يمكن الحصول على هذه القيمة عن طريق الوضيفة ()DMAX

_ عمل دوارة FOR ... NEXT  من بداية الرقم 1 وحتى القيمة وأصغر من القيمة العائدة من الدالة السابقة (أكبر قيمة للقيد الفرعي)

_ الآن نريد أن نمرر القيمة العائدة من متغير الدوارة إلى وظيفة DLOOKUP تعيد قيمة القيد الفرعي بثلاثة شروط (العميل، نوع العملية، والقيد الفرعي العائد من الدوارة)؛ طبعا يجب أن يكون رقم العميل نوع العملية ثابت والقيد الفرعي يتغير في كل دورة... 

_ إذا كانت القيمة العائدة من الوظيفة (خالية) فهذا يعني أن هذا القيد ناقص (قيد غير مسجل) .. استخدم IF.. THEN  هنا من أجل فرز غير المسجل

_  نأخذ قيمة متغير الدوارة مع رقم العيل ونوع العملية ونضعها في مربع سرد

هذه هي الطريقة.. 

إذا صعبت عليك وتريدني أن أعمل الشفرة لك!... غير أسماء الحقول أسماء بأحرف لاتينية وارفعها مرة أخرى

هذا كل شيء

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

اشكر حضرتك جدا بدايتا علي ردك واهتمامك لكن للاسف انا جديد في عالم الاكواد تماما ولا استطيع تنفيذ ماذكرت لذا اطمع ان تعلمني ذلك من خلال الكود

لكني فهمت منطقية ما ذكرت وماشاء الله منظم

جزاك الله خيرا وارجو الا اكون اثقل عليك

ارفق الي حضرتك المثال بعد تحويل اسماء الحقول الي اللاتينية

تطبيق علي الارقام الناقصة.rar

اقتباس

 

مثال :: - عميل رقم 100 تم عمل فواتير بيع 1و2و5 وفواتير شراء 3و5و6 

        - عميل رقم 102 تم عمل فواتير بيع 1و3و5 وفواتير شراء 3و5و6 وفواتير استبدال 3و6

فيكون الحل ::

       - عميل رقم 100 فواتيرة الناقصه ( بيع 3و4 - شراء 1و2و4)

      - عميل رقم 102 فواتيرة الناقصه ( بيع 2و4 - شراء 1و2و4 - استبدال 1و2و4و5 )

البيانات في الإقتباس لا تعكس البيانات المسجلة في الجدول MAIN

هل بالإمكان أن تحدد من المسرد التالي الحقول التي تحتوي على البيانات

Name            Type          Size

KIND            Text          255
PRID            Text          255
PUBLIC_NO       Text          255
PRIVATE_NO      Double          8
M_DATE          Date/Time       8

القحم كتب:

 

البيانات في الإقتباس لا تعكس البيانات المسجلة في الجدول MAIN

 

هل بالإمكان أن تحدد من المسرد التالي الحقول التي تحتوي على البيانات

Name            Type          Size

KIND            Text          255
PRID            Text          255
PUBLIC_NO       Text          255
PRIVATE_NO      Double          8
M_DATE          Date/Time       8

KIND هوا نوع الفاتورة  من بيع او شراء او استبدال 

PRID  هوا رقم العميل  

PRIVATE_NO  هوا رقم الفاتورة

M_DATE هوا شهر المحاسبه وهوا مهم لان جميع الارقام تتكرر كل عام 
بمعني عند نهاية العام نبدا من رقم 1 من جديد والبيانات لابد ان تكون محفوظة

اشكرك علي ردك جزاك الله خيرا

قمت بالتعديل على تصميم النموذج من أجل ملاحظة البيانات غير المسجلة

إن شاء الله يفي المرفق بمتطلباتك..

تطبيق علي الارقام الناقصة.zip

سلمت يمينك ... وجزاك الله كل خير لي مجرد ملاحظات 

هل يمكن :

1- نتيجة الارقام الناقصة تكون في جدول .

2-يضاف الي المعلومات عن الفواتير الناقصة التي موجوده  حقل التاريخ شهر / سنه .

3-لدي اكثر من 400 عميل هل استطيع تنفيذ الامر بدون تصفح لعميل عميل .

لا اجد اكثر من جزاك الله خيرا اهديها اليك ودعوة بظاهر الغيب .. لانك اقتطعت من وقتك وعلمك لتعلمني وتقضي لي مسالتي وجزاك الله خيرا مرة اخري

اقتباس

 

 

2-يضاف الي المعلومات عن الفواتير الناقصة التي موجوده  حقل التاريخ شهر / سنه .

في حالتنا هذه يمكن إضافة السنه لأنها هي محور الفرز..  وعلى كل حال سيضيف الجهاز الشهر واليوم الحاليين.

اقتباس

 

 

3-لدي اكثر من 400 عميل هل استطيع تنفيذ الامر بدون تصفح لعميل عميل .

لقد تضاعف هذا الرقم عشر مرات بعد عملية الفرز .. وعليه سوف تكون عملية الإنجاز بطيئة نسبيا.

إليك المثال بعد إجراء التعديل.. اضغط فقط (ADD MISSING)

تطبيق علي الارقام الناقصة.zip

القحم كتب:

 

 

 

 

لقد تضاعف هذا الرقم عشر مرات بعد عملية الفرز .. وعليه سوف تكون عملية الإنجاز بطيئة نسبيا.

 

لا يهم لانها عملية شهرية فلا باس من ان تستغرق بعض الوقت

هناك ملاحظتين علي المخرج النهائي بالجدول الارقام الناقصة :

1- التاريخ صيغته خاطئة يعطيني 06/07/1905 وهوا خاطئ 

2- كود نوع الفاتورة يظهر 40 بدلا من 040

اشكرك

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

لتفادي ذلك يجب أن تحاط البيانات بعلامة تنصيص,,

أليك المرفق بعد التعديل

تطبيق علي الارقام الناقصة.zip

اولا اشكرك علي اهتمامك

ثانيا قد وفيت لكن يتبقي اخر مساعدة وهي بدلا من ظهور التاريخ بصيغة العام year وظهور التاريخ بالكامل 1/1 العام اريده ان يظهر بصيغة  الشهر / العام بلا تدخل

حاولت تعديل ذلك في الكود بازالة year لكن ذلك لم يفلح وحاولت ازالتها من الاستعلام ولكن ايضا لم يفلح ذلك

لماذا في رايك لم يفلح

وهل من السهل الحصول علي التاريخ المسجل فعلا في حقل M_DATE بلا تعديل  داخل بيانات الفواتير الناقصة

افتح جدول البيانات في وضع التصميم --> اختر حقل التاريخ ---> الخصائص العامة ---> تنسيق البيانات

غيرها كما في الصورة

نعم انما اتحدث عن النتيجة التي تظهر في جدول lost_serial  ففي الوحدة النمطية حضرتك كتبت (year (m_date  لظهور التاريخ بصيغة العام فقط وانا عندما حاولت ازالة year من الكود او من الاستعلام فلا تنجح معي

Sub ADD_MISSING()

Dim RS As Recordset

Set RS = CurrentDb.OpenRecordset("SELECT DISTINCT PRID, KIND, YEAR(M_DATE) AS KYEAR FROM MAIN")

RS.MoveFirst

CurrentDb.Execute ("DELETE * FROM Lost_Serial")

Do Until RS.EOF

PRID_KIND_KYEAR = RS!PRID & RS!KIND & RS!KYEAR

MAX_VAL = DMax("PRIVATE_NO", "MAIN", "[PRID]&[KIND]&YEAR([M_DATE])='" & PRID_KIND_KYEAR & "'")

هذا هوا السطر اللذي اقصده واعتقده هوا المسئول عن وجود التاريخ في نتيجة الكود في جدول الفواتير الناقصة YEAR([M_DATE]

For I = 1 To MAX_VAL

MISS_VAL = DMax("PRIVATE_NO", "MAIN", "[PRID]&[KIND]&YEAR([M_DATE])&[PRIVATE_NO]='" & PRID_KIND_KYEAR & I & "'")

If IsNull(MISS_VAL) Then

RSLT = I & ",'" & RS!PRID & "','" & RS!KIND & "','1/1/" & RS!KYEAR & "'"

CurrentDb.Execute PARA & "INSERT INTO Lost_Serial (MISSING_NO, PRID,KIND, M_DATE ) VALUES(" & RSLT & ")"

'Debug.Print RSLT

End If

Next

RS.MoveNext

Loop

End Sub

انا ما فهمت ... ايش المطلوب !

فتحت المثال لم اجد فيه حقول ( فاتورة البيع او فاتورة الشراء ) !

اشكرك علي مشاركتك جزاك الله عنها خيرا

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

  دلالة الكود          Name            Type          Size

 نوع الفاتورة           KIND            Text          255
رقم العميل              PRID            Text          255
                        PUBLIC_NO       Text          255
رقم الفاتورة            PRIVATE_NO      Double          8
شهر الفاتورة            M_DATE          Date/Time       8

وقد شارفت علي الوصول الي حل لكن فقط ينقصني ان تاريخ الفاتورة داخل جدول الارقام الناقصة لايشير الي الشهر فقط يشير الي العام

السلام عليكم شكرا جزيلا علي الرد

ان تاريخ قيد الفاتورة  مذكور في جدول البيانات الرئيسية MAIN في حقل M_DATE واهميته هوا عمل متابعة شهرية للفواتير الناقصة وما تم فيها 

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

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

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

فواتير ناقصة يعني ايه ؟ أيش النقص ؟

تقدر تضيف حقل برقم الشهر او باسم الشهر وتضيف للجدول وللبيانات التي لديك ..