• 0
عبير الزهور

استدعاء نموذج حسب رقم معين

سؤال

السلام عليكم اساتذتي الافاضل

صباحكم خيرا ان كان صباحاً

وطاب مسائكم ان كان مساءاً

في الصورة المرفقه موضحه ثلاث مطاليب ارجوا ان تكون واضحة

post-254477-0-16537300-1410606931_thumb.

الحركة - Copy - Copy.rar

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

34 إجابة على هذا السؤال .

  • 0

السلام عليكم اخي الكريم

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

حسب فهمي للتغير الذي قمت به على المرفق انك قمت بانشاء استعلام جديد اسمهqry_uq_accumulated)  وجعلته مصدر استعلام السجلات للنموذج فهل كان السر في  الحصول على النتيجه هو هذا الكود

Bal: DSum("[B]";"uq";"[Clients_Name]='" & [Clients_Name] & "' AND [selldate]<=#" & [selldate] & "#")

و هل لي ان افهم طريقة عمل الكود؟؟

 

و ما فائدة وجود الوحدة النمطية (fRowCounter)

 

و اسفة على كثرة الاسئلة و الازعاج

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وعليكم السلام اختي :)

 

خلينا نتكلم بدون كمبيوتر وبدون برنامج :)

أ. احنا علشان نحسب حسابات جعفر ، فلازم نشوف إضبارة جعفر بشكل منفصل عن بقية الاشخاص ،

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

ب. البائع في هذه الدفاتر ، يسجل دائن/مدين بحسب التاريخ ،

 

والآن نترجم هذا الى برمجة :)
 

انا قلت لك في احد مشاركاتي السابقة:

 

وتاريخ المعاملة هو سر نجاح الخطوة التالية

 

رجاء النظر في الصورة التالية للإستعلام qry_uq_accumulated:

post-273849-0-85159300-1414327141_thumb.

 

ستلاحظين:

1. فرز الاسماء تصاعدي (لا يهم ان يكون تصاعديا ، فيمكنك عمله تنازليا) ، يعني انا انظر دائن/مدين الشخص الواحد بتسلسل (وهو مافي الملاحظة أ اعلاه) ،

2. الآن وقد تم كتابة معطيات الشخص بتسلسل ، نريد ان نرى تاريخ عملياته كدائن/مدين تصاعديا (وهذا سر نجاح حساب الشخص التراكمي) ،

لهذا السبب ، في النموذج frm_uq_Accumulated ، لما تعملين تصفية للأشخاص ، تحصلين على المقصود في أ و ب :)

 

الآن وقد تم تنظيم الاسماء والسجلات ، فما علينا إلا جمع المبالغ ونحصل على الحساب التراكمي الصحيح ، والطريقة هي:

نجمع قيمة B (تذكري اننا طرحنا الدائن والمدين في الاستعلام uq في الحقل B) من نتائج الاستعلام uq ، بشرط

ان اسم الزبون المتسلسل هنا هو نفس الزبون في الاستعلام uq ،

وان تاريخ المعاملة هي اصغر من او تساوي تاريخ المعاملة في تسلسل استعلامنا qry_uq_accumulated (يعني التاريخ الاصغر ثم يليه التاريخ الاكبر منه) ، فبهذه الطريقة يكون الحساب التراكمي :)

 

اما الوحدة النمطية (fRowCounter) ، فكنت ساستعملها لعمل تسلسل في الاستعلام ، لكني غيرت رأيي ونسيت ان احذفها :(

هذه الوحدة لأحد اصحابي القدامى وكنا نتشارك في المنتدى الاجنبي www.experts-exchange.com ، وانا اعتمد على هذه الوحدة لعمل ارقام تسلسلية في استعلام :)

 

 

جعفر

تم تعديل بواسطه jjafferr
1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

اخي الكريم و الله لا  اعرف ما اقول لك على طولة بالك معي و شرحك الوافي لا يسعني الا الدعاء لك في ظهر الغيب  بالعافية و البركة في مالك و عمرك

 

و اكيد +1

جزاك الله عني الف خير

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

حياك الله :)

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0
DoCmd.GoToRecord , , acNewRec

السلام عليكم

اخي الكريم

ارجو النظر في الصورة المرفقه

 

و ايضا قمت باضافة الكود التالي  في حدث عند الفتح لنموذج bounds  , sell وذلك للحصول على صفحة فارغه عند فتح النموذج الامر يمشي تمام و لكن عند محاولة استدعاء السندات و فاتورة المبيعات من نموذج 2  تظهر المشكلة التالية المبينه في الصورة

post-254477-0-50943500-1417243740_thumb.

post-254477-0-75382500-1417251561_thumb.

269.الحركة.rar

تم تعديل بواسطه عبير الزهور
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

وعليكم السلام اختي :)

 

انا عملت استعلام آخر باسم qry_Sum_uq2 ، وجعلته مصدر بيانات النموذج :)

وللعلم ، فان بعض الفواتير تتكرر بنفس الرقم ، واحدة للقبض باسم شخص واخرى نقدي باسم شخص آخر (وهنا كذلك اعتقد بان هذا يصير بسبب عدم تنظيم البيانات بطريقة صحيحة :( )

 

 

اما بالنسبة الى فتح النموذجين sell  و bonds ،

 

فقد غيرت كود فتح النماذج من نموذج 2 الى:

    If Me.type_of_pay = "قبض" Then        DoCmd.OpenForm "bonds", , , "[bonds_number]=" & Me.SellBillNum, acFormReadOnly, , "I_want_Read_Only"    Else        DoCmd.OpenForm "sell", , , "[SellBillNum]='" & Me.SellBillNum & "'", acFormReadOnly, , "I_want_Read_Only"    End If    

لاحظي آخر السطرين ، فقد مررت قيمة I_want_Read_Only في الامر Me.OpenArgs الى النماذج عند فتحها (واذكرك بان النموذج للقراءة فقط ولايمكن تغيير او اضافة سجل فيه) ،

 

وعليه ، فكود حدث فتح النماذج اصبح يبحث فيما اذا هذه القيمة موجودة في الامر  Me.OpenArgs ، فاذا وجدت ، لم يفتح سجل جديد ، وإلا ، فهو يفتح سجل جديد :

     If IsNull(Me.OpenArgs) Then        DoCmd.GoToRecord , , acNewRec    End If    

جعفر

269.2.الحركة.accdb.zip

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

اخي الكريم

يمكن انه تكون المشكلة الاولى تحل عندما اقوم بادخال بيانات مرتبة و منتظمة

 

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

بالانتظار

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

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

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



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .