ياليت حدى يعدل لي الامر في برنامج الأقساط

[روح الفريق 0]

حبايبي السلام عليكم هذي اول مشاركه لي

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

ماضبط معاي لاني جديد في الاكسس وكنت اعتقد الامر بسيط لكن خيرها في غيرها

والجايات اكثر زي ما يقولون

حبايبي بنظره على الامر اللي في الفورم هذا

DoCmd.GoToRecord , , acFirst
For i = 1 To Forms![f1]![NO]
Me.aa = Forms![f1]![bb]
Me.dd = DateAdd("m", i, Forms![f1]![Date])
Me.cc = Forms![f1]![nn]
Me.ss = Forms![f1]![kk]
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requery

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

انا بدلت الرقم واحد بالرقم سته بس ما ضبط وتعطل الامر نهائي كذا يعني سويت

DoCmd.GoToRecord , , acFirst
For i = 6 To Forms![f1]![NO]
Me.aa = Forms![f1]![bb]
Me.dd = DateAdd("m", i, Forms![f1]![Date])
Me.cc = Forms![f1]![nn]
Me.ss = Forms![f1]![kk]
DoCmd.GoToRecord , , acNext
Next
DoCmd.Requery

التغيير هون

For i = 6 To Forms![f1]![NO]

ياليت حدى بيساعدني على التعديل بكون ممنون له كثير كثير .

وشكرا

AKSAT.rar

[ايهاب عثمان 276]

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

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

لقد قمت بتغيير المعامل i في الدالة ولا علاقة له بما تريد انما هو لحساب عدد الاقساط (ست/سبع...الخ)

مرادك في المعامل M وهو الفترة الزمنية بين كل قسط واخر فتقوم باستبدال المعامل M بما يناسبك مما يلي..

yyyy سنة

q ربع سنة

WW اسبوع

[روح الفريق 0]

الله يخليك استاذ ايهاب

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

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

هناك عدد من متغيرات الفترة التي يمكن استخدامها وفي القائمة التالية أهم هذه المتغيرات :

yyyy سنة

q ربع سنة

m شهر

d يوم

w يوم الأسبوع

ww أسبوع

h ساعة

n دقيقة

s ثانية

لكن ما فيها نصف سنه ( سته شهور ) وهو ده اللي انا عاوزه .

بتمنى يكون طلبي واضح وبتشكرك مره ثانيه

[ايهاب عثمان 276]

طيب لو ينفع معك 180 يوم (تقريبا ست شهور)

تفضل...

AKSAT.rar

[روح الفريق 0]

بتشكرك كتير كتير على اهتمامك بموضوعي وربنا يديك العافيه استاذ ايهاب

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

معليش بعرف اني تعبتك معاي بس شو بدك تقول جاهل وما بستغني عنكم ابدا

[روح الفريق 0]

يارب ساعد من ساعدني في حل مشكلتي هذه

[abo abdull 0]

اخي الكيريم اليك هذا الحل لعل به ماتحتاجه

AKSAT.rar

[روح الفريق 0]

معليش ابو عبدالله الظاهر مافيه فايده

الامر اللي سويته ما نفع ولا يحدث اي شي بعد الضغط على زر الامر

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

كل عام والجميع بخير

تم تعديل 31 Dec 2006 بواسطه روح الفريق

[abo abdull 0]

معليش ابو عبدالله الظاهر مافيه فايده

الامر اللي سويته ما نفع ولا يحدث اي شي بعد الضغط على زر الامر

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

كل عام والجميع بخير

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

[فهد الدوسري 18]

أخي روح الفريق

أنظر إلى برنامج الأقساط بعد التعديل الذي قام به الأستاذ القدير والخبير المبدع ( أبو هادي ) جزاه الله ألف خير .

أتمنى أن يكون هو ما تريده .

تحياتي ..

كــــــــــــل عـــــــــــام وأنتـــــــــــم بخــــــــــــير .

AKSAT_20061231.rar