الديني

اخواني السلام عليكم ورحمة الله لدي نموذج ارغب عمل تفقيط فيه لطريقة الدفع ارغب عمل تفقيط ل(طريقةالدفع) في النموذج طريقة الدفع والمبينه باللون الاخضر وهي طبعا تحتوي على رقم اريد تفقيطه كالتالي اذا كان طريقة الدفع (1) يعني التفقيط = الدفع مقدم سنوي اذا كان طريقة الدفع (2) يعني التفقيط = الدفع مقدم كل سته شهور اذا كان طريقة الدفع (3) يعني التفقيط = الدفع مقدم كل اربعه شهور اذا كان طريقة الدفع (4) يعني التفقيط = الدفع مقدم كل ثلاثه شهور ولك شكري سلفا الملف مرفق تفقيط طريقة الدفع.rar

اخي ابو خليل لدي طلب اتمنى ان تجيبني عليه ولك شكري وتقديري مرفق اليك ملف به قاعدة سبق وان ارفقتها في طلب سابق ولكن اضفت عليها نموذج ارغب عمل تفقيط ل(طريقةالدفع) في النموذج طريقة الدفع والمبينه باللون الاخضر وهي طبعا تحتوي على رقم اريد تفقيطه كالتالي اذا كان طريقة الدفع (1) يعني التفقيط = الدفع مقدم سنوي اذا كان طريقة الدفع (2) يعني التفقيط = الدفع مقدم كل سته شهور اذا كان طريقة الدفع (3) يعني التفقيط = الدفع مقدم كل اربعه شهور اذا كان طريقة الدفع (4) يعني التفقيط = الدفع مقدم كل ثلاثه شهور ولك شكري سلفا الملف مرفق تفقيط طريقة الدفع.rar

اخي ابو خليل لدي طلب اتمنى ان تجيبني عليه ولك شكري وتقديري مرفق اليك ملف به قاعدة سبق وان ارفقتها في طلب سابق ولكن اضفت عليها نموذج ارغب عمل تفقيط ل(طريقةالدفع) في النموذج طريقة الدفع والمبينه باللون الاخضر وهي طبعا تحتوي على رقم اريد تفقيطه كالتالي اذا كان طريقة الدفع (1) يعني التفقيط = الدفع مقدم سنوي اذا كان طريقة الدفع (2) يعني التفقيط = الدفع مقدم كل سته شهور اذا كان طريقة الدفع (3) يعني التفقيط = الدفع مقدم كل اربعه شهور اذا كان طريقة الدفع (4) يعني التفقيط = الدفع مقدم كل ثلاثه شهور ولك شكري سلفا الملف مرفق

شكرا اخي ابو خليل ويعطيك الف عافيه .

شكرا اخي ابو خليل ولكن ابي اعرف كيف تتم العملية كيفية الربط بين حقل حفظ الرقم ومربع نص t1 في التقرير وشكرا

الادارة الكرام لدي طلب اتمنى ان تفيدوني فيه ارغب في اضافة رقم تلقائي للتقرير يظهر بشكل مسلسل لكل طبعة(يعني كل عقد برقم خاص به) لااريده يكون مرتبط بالجدول اي الترقيم التلقائي للجدول لا وانما ترقيم للتقرير نفسه عند الطباعه. يعني اليوم طبعت عقد ايجار لمستاجر جديد ولنفرض رقم المستاجر (1) اريد له رقم يكون خاص بالعقد وليس مرتبط برقم المستاجر اتمنى ان يكون شرحي واضح. مرفق اليكم البرنامج البرنامج.rar

شكرا اخواني لقيت الحل المشكله كانت في مستوى الامان للتعابير

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

اخواني الكرااام اعضاء منديات اوفيسنا الرائيعين لدي قاعدة بيانات كبيرة جدا اعمل عليها وارفق لكم جزء من محتويات القاعدة وبها مشكله صغيره اطلب حلها في النموذج المسمى (الحسابات) لاينتج عن التعبير الموجود في مربع النص المسمى(رصيد الحساب ) النتيجه التي اريد وهي رصيد الحساب الظاهر في النموذج مع العلم انه كان يظهر بس لااعرف ماذا حصل ويظهر لي الخطاء كالتالي #name? لذلك اريد حل لهذه المشكله اليكم مرفق القاعده db1.rar

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

اخواني المساعدة تكفووون هذا الكود في حالة الموجب مثلا2222 يعني الفان ومئتان واثنان وعشرون ريال هذه جيبها صحيحه لكن في حالة السالب مثلا(-2222) يعطي مئتان واثنان وعشرون ريال فقط لاحظو حذف رقم ليش؟ ابي الحل ياخوان: هذا الكود Function NoToTxt(TheNo As Double, MyCur As String, MySubCur As String) As String Dim MyArry1(0 To 9) As String Dim MyArry2(0 To 9) As String Dim MyArry3(0 To 9) As String Dim MyNo As String Dim GetNo As String Dim RdNo As String Dim My100 As String Dim My10 As String Dim My1 As String Dim My11 As String Dim My12 As String Dim GetTxt As String Dim Mybillion As String Dim MyMillion As String Dim MyThou As String Dim MyHun As String Dim MyFraction As String Dim MyAnd As String Dim i As Integer Dim ReMark As String If TheNo > 999999999999.99 Then Exit Function If TheNo = 0 Then NoToTxt = "صفر" Exit Function End If MyAnd = " و" MyArry1(0) = "" MyArry1(1) = "مائة" MyArry1(2) = "مائتان" MyArry1(3) = "ثلاثمائة" MyArry1(4) = "أربعمائة" MyArry1(5) = "خمسمائة" MyArry1(6) = "ستمائة" MyArry1(7) = "سبعمائة" MyArry1(8) = "ثمانمائة" MyArry1(9) = "تسعمائة" MyArry2(0) = "" MyArry2(1) = " عشر" MyArry2(2) = "عشرون" MyArry2(3) = "ثلاثون" MyArry2(4) = "أربعون" MyArry2(5) = "خمسون" MyArry2(6) = "ستون" MyArry2(7) = "سبعون" MyArry2(8) = "ثمانون" MyArry2(9) = "تسعون" MyArry3(0) = "" MyArry3(1) = "واحد" MyArry3(2) = "اثنان" MyArry3(3) = "ثلاثة" MyArry3(4) = "أربعة" MyArry3(5) = "خمسة" MyArry3(6) = "ستة" MyArry3(7) = "سبعة" MyArry3(8) = "ثمانية" MyArry3(9) = "تسعة" '====================== GetNo = Format(TheNo, "000000000000.00") i = 0 Do While i < 15 If i < 12 Then MyNo = Mid$(GetNo, i + 1, 3) Else MyNo = "0" + Mid$(GetNo, i + 2, 2) End If If (Mid$(MyNo, 1, 3)) > 0 Then RdNo = Mid$(MyNo, 1, 1) My100 = MyArry1(RdNo) RdNo = Mid$(MyNo, 3, 1) My1 = MyArry3(RdNo) RdNo = Mid$(MyNo, 2, 1) My10 = MyArry2(RdNo) If Mid$(MyNo, 2, 2) = 11 Then My11 = "إحدى عشر" If Mid$(MyNo, 2, 2) = 12 Then My12 = "إثنى عشر" If Mid$(MyNo, 2, 2) = 10 Then My10 = "عشرة" If ((Mid$(MyNo, 1, 1)) > 0) And ((Mid$(MyNo, 2, 2)) > 0) Then My100 = My100 + MyAnd If ((Mid$(MyNo, 3, 1)) > 0) And ((Mid$(MyNo, 2, 1)) > 1) Then My1 = My1 + MyAnd GetTxt = My100 + My1 + My10 If ((Mid$(MyNo, 3, 1)) = 1) And ((Mid$(MyNo, 2, 1)) = 1) Then GetTxt = My100 + My11 If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My11 End If If ((Mid$(MyNo, 3, 1)) = 2) And ((Mid$(MyNo, 2, 1)) = 1) Then GetTxt = My100 + My12 If ((Mid$(MyNo, 1, 1)) = 0) Then GetTxt = My12 End If If (i = 0) And (GetTxt <> "") Then If ((Mid$(MyNo, 1, 3)) > 10) Then Mybillion = GetTxt + " مليار" Else Mybillion = GetTxt + " مليارات" If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " مليار" If ((Mid$(MyNo, 1, 3)) = 2) Then Mybillion = " ملياران" End If End If If (i = 3) And (GetTxt <> "") Then If ((Mid$(MyNo, 1, 3)) > 10) Then MyMillion = GetTxt + " مليون" Else MyMillion = GetTxt + " ملايين" If ((Mid$(MyNo, 1, 3)) = 1) Then MyMillion = " مليون" If ((Mid$(MyNo, 1, 3)) = 2) Then MyMillion = " مليونان" End If End If If (i = 6) And (GetTxt <> "") Then If ((Mid$(MyNo, 1, 3)) > 10) Then MyThou = GetTxt + " ألف" Else MyThou = GetTxt + " آلاف" If ((Mid$(MyNo, 3, 1)) = 1) Then MyThou = " ألف" If ((Mid$(MyNo, 3, 1)) = 2) Then MyThou = " ألفان" End If End If If (i = 9) And (GetTxt <> "") Then MyHun = GetTxt If (i = 12) And (GetTxt <> "") Then MyFraction = GetTxt End If i = i + 3 Loop If (Mybillion <> "") Then If (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then Mybillion = Mybillion + MyAnd End If If (MyMillion <> "") Then If (MyThou <> "") Or (MyHun <> "") Then MyMillion = MyMillion + MyAnd End If If (MyThou <> "") Then If (MyHun <> "") Then MyThou = MyThou + MyAnd End If If MyFraction <> "" Then If (Mybillion <> "") Or (MyMillion <> "") Or (MyThou <> "") Or (MyHun <> "") Then NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur + MyAnd + MyFraction + " " + MySubCur Else NoToTxt = ReMark + MyFraction + " " + MySubCur End If Else NoToTxt = ReMark + Mybillion + MyMillion + MyThou + MyHun + " " + MyCur End If End Function ارجو التوضيح اين تم التعديل بعد التعديل

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

شكرا اخي ابو خليل على جهودك انت حاولت ولك جزيل الشكر ولكن لم اصل الى مبتغاي انت قربت بنسبة95% شوف اوضح لك وش اللي عملته غلط 1- الصفحه الاولى في التقرير المعدل من قبلك طبعا مضبوط 100%(20-17=3) 2- الخطاء في الصفحه الثانية مفروض يكون الاجمالي الناتج يكون(16-12=4) وليس (13-12=4) لابد من اظهار ماقبله في اجمالي الايراد الخاص بالصفحه الثانية 3-الخطاء في الصفحه الثالثه مفروض يكون الاجمالي الناتج يكون(109-12=97) وليس (105-12=97) لابد من اظهار ماقبله في اجمالي الايراد الخاص بالصفحه الثالثه 4-الخطاء في الصفحه الرابعه مفروض يكون الاجمالي الناتج يكون(119-52=67) وليس (22-52=67) لابد من اظهار ماقبله في اجمالي الايراد الخاص بالصفحه الرابعه وهكذا .. اتمنى تكون فهمتني وماعليش اتعبتك اخي سامحني

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

شكرا لكم اخي منتصر والاخ ابو خليل ابو خليل قرب من الذي اريد بنسبة 80% اخي مشكور وعمل جيد مشكور علية بس خانات الحالي ماابغاها وثانياهذ توضيح 1- الصفحه الاولى ( اريد اجمالي الايرادات على حده واجمالي المصروفات على حده ويطلع منهما الرصيد )وهذا انت عملته صح. 2- الصفحه الثانية ( اظهار الرصيد فقط في ماقبله) انت عملت اظهار الرصيد في ماقبله ولكنك سويت اجمالي المنصرف في ماقبله ايضا وهذا خطاء لان اجمالي المنصرف في الصفحه الاولى تم طرحة من اجمالي الايرادات في نفس الصفحة وعند اظهارة في الصفحة الثانية سيتم طرحه مرة اخرى وهذا تكرار مما سيسبب خسائر فانا اريد فقط اظهار الرصيد في ماقبله (سوى كان موجب او سالب)ليتم جمعه مع الاجمالي في الصفحه الثانية وهكذاحتى اخر صفحه بعدين (انت حذفت تعبير ادخال الفتره والتي هي من تاريخ الى تاريخ وتعبير ادخال رقم العقار) وهذه هي العمود الفقري للعمل لابد منها لان العمل كله يعتمد على الفترات يعني لما افتح التقرير من اي مكان سوى مباشرة او عبر نموذج اريده يطالبني بادخال تاريخ البداية وتاريخ النهاية ويطلب ادخال رقم العقار وبعد ادخال المطلوب يعطيني النتيجه للبيانات التي تقع في الفتره المحدده والخاصه بالعقار المدخل رقمه جزاك الله الجنه ولك شكري وامتناني

الاخوة الكرام لدي تقرير يظهر به عمليات على عقار محدد خلا فتره معينه اولا للعلم : الفتره التي يوجد بها بيانات هي من01-01-2009 الى 12-02-2011 وارقام العقارات هي تسلسل من1-17 ورقم فتح القاعدة (26983) الطلب: 1-مجموع الايرادات والمصروفات واظهار الرصيد في كل صفحه في التقرير كل على حده 2-اظهار رصيد الصفحه الاولى في بداية الصفحه الثانية وجمعه مع الايرادات التي سوف تظهر في نهايةالصفحه نفسها وهكذا الى اخر صفحه في التقرير اتمنى يكون شرحي واضح ولكم شكري سلفا القاعدة مرفقة وكلمة المرور كما ذكرت سابقا(26983) %C7%E1%CD%D3%C7%C8%C7%CA2.rar

اخواني الا يوجد حل

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

الاخوة الكرام لدي تقرير يظهر به عمليات على عقار محدد خلا فتره معينه اولا للعلم : الفتره التي يوجد بها بيانات هي من01-01-2009 الى 12-02-2011 وارقام العقارات هي تسلسل من1-17 ورقم فتح القاعدة (26983) الطلب: 1-مجموع الايرادات والمصروفات واظهار الرصيد في كل صفحه في التقرير كل على حده 2-اظهار رصيد الصفحه الاولى في بداية الصفحه الثانية وجمعه مع الايرادات التي سوف تظهر في نهايةالصفحه نفسها وهكذا الى اخر صفحه في التقرير اتمنى يكون شرحي واضح ولكم شكري سلفا القاعدة مرفقة وكلمة المرور كما ذكرت سابقا(26983) %C7%E1%CD%D3%C7%C8%C7%CA2.rar

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

الاخوة الكرام لدي تقرير يظهر به عمليات على عقار محدد خلا فتره معينه اولا للعلم : الفتره التي يوجد بها بيانات هي من01-01-2009 الى 12-02-2011 وارقام العقارات هي تسلسل من1-17 ورقم فتح القاعدة (26983) اريد فقط تفقيط مبلغ الرصيد من ارقام الى حروف بالعربي وبالريال السعودي ولكم شكري سلفا القاعدة مرفقة وكلمة المرور كما ذكرت سابقا(26983) الحسابات1.rar

اخي الكريم تم التعديل اتمنى ان يكون هذا هو طلبك db1.rar

القاعده مرفقه 11.rar

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

الاخ ابو الانس شكرا لك بس ليش ماتخلي الحدث في (المسدد) لانه اخر مربع رقمي يتم تعبئتة وتتم العمليه بنجاح شكرا اخي ابو الانس انا سويتها على المسدد جزاك الله خير وابقاك معلم لهذى المنتدى الرائع