baraa2007

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

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

برنامج بسيط مبدئي لمتابعة وعمل المستخلصات حسب رغبه الكثير من الزملاء رجاء فتح form1 ادخل مقاسية المشروع اختار اسم المشروع لعمل مستخلص جديد معليش هو مش مرتب نظرا لسرعة الاتمام البركة فيكم بقا مقايسةوتنفيذ2015.rar

=Horof([Text73]) Public Function Horof(X) Ma = " جنيه" Mi = " قرش" n = Int(X) b = Val(Right(Format(X, "000000000000.00"), 2)) R = SHorof(n) If R <> "" And b > 0 Then Result = R & Ma & " و " & b & Mi If R <> "" And b = 0 Then Result = R & Ma If R = "" And b <> 0 Then Result = b & Mi Horof = Result End Function Private Function SHorof(X) n = Int(X) c = Format(n, "000000000000") c1 = Val(Mid(c, 12, 1)) Select Case c1 Case Is = 1: Letter1 = "واحد" Case Is = 2: Letter1 = "اثنان" Case Is = 3: Letter1 = "ثلاثة" Case Is = 4: Letter1 = "اربعة" Case Is = 5: Letter1 = "خمسة" Case Is = 6: Letter1 = "ستة" Case Is = 7: Letter1 = "سبعة" Case Is = 8: Letter1 = "ثمانية" Case Is = 9: Letter1 = "تسعة" End Select c2 = Val(Mid(c, 11, 1)) Select Case c2 Case Is = 1: Letter2 = "عشر" Case Is = 2: Letter2 = "عشرون" Case Is = 3: Letter2 = "ثلاثون" Case Is = 4: Letter2 = "اربعون" Case Is = 5: Letter2 = "خمسون" Case Is = 6: Letter2 = "ستون" Case Is = 7: Letter2 = "سبعون" Case Is = 8: Letter2 = "ثمانون" Case Is = 9: Letter2 = "تسعون" End Select If Letter1 <> "" And c2 > 1 Then Letter2 = Letter1 + " و" + Letter2 If Letter2 = "" Then Letter2 = Letter1 If c1 = 0 And c2 = 1 Then Letter2 = Letter2 + "ة" If c1 = 1 And c2 = 1 Then Letter2 = "احدى عشر" If c1 = 2 And c2 = 1 Then Letter2 = "اثنى عشر" If c1 > 2 And c2 = 1 Then Letter2 = Letter1 + " " + Letter2 c3 = Val(Mid(c, 10, 1)) Select Case c3 Case Is = 1: Letter3 = "مائة" Case Is = 2: Letter3 = "مئتان" Case Is > 2: Letter3 = Left(SHorof(c3), Len(SHorof(c3)) - 1) + "مائة" End Select If Letter3 <> "" And Letter2 <> "" Then Letter3 = Letter3 + " و" + Letter2 If Letter3 = "" Then Letter3 = Letter2 C4 = Val(Mid(c, 7, 3)) Select Case C4 Case Is = 1: Letter4 = "الف" Case Is = 2: Letter4 = "الفان" Case 3 To 10: Letter4 = SHorof(C4) + " آلاف" Case Is > 10: Letter4 = SHorof(C4) + " الف" End Select If Letter4 <> "" And Letter3 <> "" Then Letter4 = Letter4 + " و" + Letter3 If Letter4 = "" Then Letter4 = Letter3 C5 = Val(Mid(c, 4, 3)) Select Case C5 Case Is = 1: Letter5 = "مليون" Case Is = 2: Letter5 = "مليونان" Case 3 To 10: Letter5 = SHorof(C5) + " ملايين" Case Is > 10: Letter5 = SHorof(C5) + " مليون" End Select If Letter5 <> "" And Letter4 <> "" Then Letter5 = Letter5 + " و" + Letter4 If Letter5 = "" Then Letter5 = Letter4 C6 = Val(Mid(c, 1, 3)) Select Case C6 Case Is = 1: Letter6 = "مليار" Case Is = 2: Letter6 = "ملياران" Case Is > 2: Letter6 = SHorof(C6) + " مليار" End Select If Letter6 <> "" And Letter5 <> "" Then Letter6 = Letter6 + " و" + Letter5 If Letter6 = "" Then Letter6 = Letter5 SHorof = Letter6 End Function

يمكن جمعهم من خلال استعلام [اسم الحقل] & [اسم الحقل الاخر]

اعتقد ملهاش حل فى الاكسس

وانت فى وضع التصميم للاستعلام اختار الحقول اللى انت عايزها تظهر واختار sum .... اجعل كل الحقول Group By .....عدا حقل التاريخ اجعله Max او Last

للرفع

دا الشكل الاخير المطلوب بعد الدمج

السلام عليكم عندي استعلامين جدوليين كما فى الصورتين ( مدين - دائن ) عايز ادمجهم مع بعض بحيث يعطوني الصورة الاخيره

من قائمة الخصائص للجدول اجعل الحقل الذي تريدة مطلوب

للاسف بردوا نفس المشكله بعد اعاده الربط

شكرا ....... هجرب

استسمحك اخي توضح اكتر تقصد اثناء تحميل الاوفيس في حاجات نقصه

للرفع

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

شكرا جزيلا على البرنامج

ممكن اعرف ايه هو البرنامج دا

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

قم بحفظ السجل وتحديث مصدر السجلات بعد تحديث حقل الرقم مباشرا ...وبذلك لن يتكرر رقم ان شاء الله

شكرا وهل اعدات اللغة تؤثر على الاستعلامات

عندي برامج معموله على اكسس 2010 ... 2007 بتشتغل على جهازي كويس جدا لكن لما بنقلها على جهاز اخر عليه نفس اصدار الاوفيس بلاقي معظم الاستعلامات مش شغال ولازم اعملها تاني علشان تشتغل ايه الحل ؟؟؟

سؤالك الثاني اعمل مكرو جديد واجعل اسمه ... Autoexec واختار MaximizeWindow

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

للرفع