خطأ في البحث عن الأذون .. ترقيم تلقائي للبنود علي حسب رقم الاذن

[صابر محمد بصير]

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

حاجة كمان عايز ترقيم تلقائي لبنود النموذج الفرعي علي حسب رقم الاذن .. 
يعني في كل اذن جديد يبدأ الترقيم  في ( بند )  من "1" ويبتدي يرقم تلقائي 
ملحوظة :-
الدخول للبرنامج ممكن بالشيفت أو  اسم المستخدم " محمد : وكلمة المرور " 1 2 3 " 

 

مخزووون.rar

البرنااااااامج

مخزوون.rar

[سعيد صواب]

حياك الله اخي الكريم ....

بالنسبة لحفظ السجل في النموذج الرئيسي ... ضع في النموذج الرئيسي head  زر امر التالي باستخدام المعالج ..

طبعا بعد ماتكتب البيانات في النموذج الرئيسي تضغط على زر امر التالي .... وهكذا تحفظ.

بالنسبة لطلبك الثاني ... استخدام الترقيم التلقائي لكل أذن جديد فهذا موضوع ممكن يفيدك .. باستخدام الدالة dmax

http://www.officena.net/ib/topic/59385-ترقيم-تلقائي-رئيسي-وفرعي/#comment-381249

وفقنا الله واياك ..

تم تعديل أغسطس 29, 2015 بواسطه آخر الأرض

[صابر محمد بصير]

استاذي لو تكرمت .. ممكن حضرتك تعمللي المعادلة علي البرنامج بتاعي 

بالنسبة للترقيم التلقائي للبند

[سعيد صواب]

حياك الله اخي الكريم ... 

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

حقيقة لم افهم تركيب القاعدة بشكل كامل ....

يظهر لي خطاء مع جدول items .

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

وفقنا الله واياك ..

ww.Form.serial = Nz(DMax("serial", "main_form", "invioce_no=forms!add_invioce!invioce_no"), 0) + 1

تم تعديل أغسطس 30, 2015 بواسطه آخر الأرض

[صابر محمد بصير]

استاذي 
بمجرد ما اسجل  اسلوب السداد بتظهر الرسالة دي ولو كملت بره مفيش سيريال تلقائي 

[رمهان]

اخي الكريم

بالنسبة لموضوع عدم ظهور رقم الاذن عندما لايكون هناك سجلات في النموذج الفرعي : اذهب الى مصدر بيانات النموذج والذي هو عبارة عن جملة الاستعلام >> سيظهر منشئ الاستعلام في حالة التصميم >> من خلال دبل كليك على الخط او الصلة بين جدولي main_form  , head_form  سيظهر مربع حوار نوع الصلة >> اختر الخيار الثاني : لان الخيار الاول وهو الافتراضي دائما معناته جلب السجلات المتشابهه في كلا الجدولين وهذا لا يتحقق عندما تدخل بيانات في الجدول الاول دون الثاني !

 

بالنسبة للترقيم في النموذج الفرعي : ضع الكود التالي عند التركيز للعنصر serial  وكما بالكود التالي :

Private Sub item_code3_GotFocus()
If NewRecord Then serial = CurrentRecord
End Sub

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

 

بالتوفيق

[سعيد صواب]

جزاك الله خير اخي رمهان ..

 

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

me.serial = Nz(DMax("serial", "main_form", "invioce_no=forms!add_invioce!invioce_no"), 0) + 1

هل يفي بالغرض .

======================

للتنويه : بالنسبة لنوع الصلة قمت بتعديلها ومازال الخطاء يظهر اخي رمهان كما في الصورة التي قام بإرفاقها الاخ السائل  ..

تم تعديل أغسطس 30, 2015 بواسطه آخر الأرض

[رمهان]

معذرة اخي اخر الارض

اﻻن خارج البيت واكتب من الموبايل

تحياتي

[صابر محمد بصير]

استاذي رمهان جزاك الله كل خير 

مشكلة البحث  عن الاذون اتحلت يافندم  ... ألف الف شكر 

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

[رمهان]

لو تلاحظ اخي وجود الرقم صفر في الصنف وهذا رقم صنف غير معرف !

هذا مبدئيا ونظريا والله اعلم !

[رمهان]

حياك الله اخي الكريم ... 

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

حقيقة لم افهم تركيب القاعدة بشكل كامل ....

يظهر لي خطاء مع جدول items .

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

وفقنا الله واياك ..

ww.Form.serial = Nz(DMax("serial", "main_form", "invioce_no=forms!add_invioce!invioce_no"), 0) + 1

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

تحياتي

[صابر محمد بصير]

طيب استاذنا أنا جرت الكود مرة في كود  الصنف ( item_code3 )  منفعشي ومرة في كود المورد منفعشي
ايه العمل ؟ 

[رمهان]

اخ صابر : ممكن ترفق الملف مرة اخرى بعد تطبيق الكود به لتجربته لدي !

[صابر محمد بصير]

الملف يافندم

مخزوون.rar

[رمهان]

معليش اخ صابر : حملت الملف ولم اجد تطبيق المشاركة رقم 6 !

اريد ارى تغييرك لمصدر السجلات وكذلك تطبيقك للكود !

 

تحياتي