Bluemind

المطلوب غير واضح؟؟ ماهو المقصود باتثبيت البرنامج!!؟؟

ارفق قاعده بياناتك

تم عمل المطلوب في النموذج Course Registration لكن يتبقى مساله تداخل اوقات البرامج للمدربين وسف نجد له حل باذن الله طبعا لاحظت تكرار الحقول في الجدول Instructor course tbl وهي اسم البرنامج ونوعه مادم ان هناك جدول اخر يوجد به نفس الحقول السابقه فلا يوجد داعي لتكرار حقل نوع البرنامج في الجدول اعلاه ويكتفى باضافه نوع البرنامج في القائمه المنسدله لاسم البرنامج كنوع من التوضيح فقط Final Project.zip

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

ارفق مثالك لتكون عون للاخرين على مساعدتك

بعد اذن استاذنا الفاضل nart اخوي قم باضافه page break في نهايه كل مقطع تريد ان يكون في صفحه مستقله كماهو موضح بالصوره المرفقه طبعا سوف يظهر هذا الكائن page break على شكل خط متقطع الى عده نقاط وليس بالمهم ان يكون ممتد بالكامل في عرض التقرير وكذلك تم التطبيق على مثالك ولكن بشكل غير منظم لكي يتم فهم الطريقه ان شاء الله يكون المطلوب قاعدة بيانات1.zip

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

اخوي تم عمل المطلوب حسب طلبك بالرغم من غموض الهدف منه تم وضع الكود التالي في حدث on load او عند التحميل وتم تحديد رقم العميل با 18 على سبيل المثال Private Sub Form_Load() Dim varID As Variant Dim strDelim As String varID = DLookup("CustomerID", "Customerstbl", "[CustomerID] = 18") If IsNumeric(varID) Then With Me.RecordsetClone .FindFirst "[CustomerID] = " & strDelim & varID & strDelim If Not .NoMatch Then Me.Bookmark = .Bookmark End If End With End If End Sub طبعا يمكن تغير رقم العميل من الكود اعلاه وتحديدا من سطر الكود varID = DLookup("CustomerID", "Customerstbl", "[CustomerID] = 18") شوف المرفق و ان شاء الله يكون المطلوب Open Record.zip

بدايه موفقه لمتعلم بالتوفيق

اخوي اولا لقدوضعت ملصقات اسماء الحقول في راس الصفحه ولي في راس التقرير جرب نقلهاالى راس التقرير ثم قم بازاله راس الصفحه ثانيا العمود الثاني الايسر وصل الى اخر سجل فلابد ان يتوقف عدد السجلات هو 89 سجل العمودالايمن يوجد به 45 سجل و الباقي 44 اصبح في العمود الايسر طبعا لايوجد مساحه كافيه لذيل التقرير لذلك وضع جدول الاحصائيات في صفحه جديده لو كان لديك سجلات اكثر لاصبحت في صفحه جديده

وعليكم السلام اخوي ضع الكود التالي في جزء تفاصيل التقرير Private mlngLines As LongPrivate Sub Detail_Format(Cancel As Integer, _FormatCount As Integer) If FormatCount = 1 ThenmlngLines = mlngLines + 1 End If If mlngLines > 11 Then Cancel = True End Sub Private Sub {GroupHeaderName}_Format (Cancel As Integer) 'Reset it for each group mlngLines = 1 End Sub ولكن ماهو الهدف من تحديد عدد كل عمود لان تقرير الاكسس يعرض البيانات كا سجلات متسلسله في صفحه و اثنتان و ثلاث الخ ولكي نقلل عدد الصفحات نقوم بوضع اكثر من عمود اذا توفرت المساحه هناك طريقه للتحايل عليه وهو وضع اربعه تقارير فرعيه في التقرير الرئيسي وكل تقرير فرعي ضع الكود اعلاه وقم بتحديد عدد السجلات حسب طلبك ولكن سوف تكون مكرره في جميع التقارير الاربعه. ياليت توضيح الغرض من طلبك بالتوفيق

بالضبط الجزء الثالث لايهمنا هنا و انما الجزء الثاني هو المهم لان المطلوب من داله count هو عد كم مره تحقق الشرط و لانريد وضع الشرط الثالث حتى لا يتم عده اذا اصبح رقم ولاكنها لاتعد الفراغ لذلك اهمل

وعليكم السلام ورحمه الله وبركاته اخوي داله iif الشرطيه تحتوي على ثلاثه اجزاء الجزء الاول التعبير الشرطي الجزء الثاني النتيجه اذا تحقق الشرط التعبيري في الجزء الاول الجزء الثالث النتيجه اذا لم يتحقق الشرط التعبيري في الجزء اول وهذه تركيبه iif IIf(expr, truepart, falsepart) في مثال العضو السائل اذا كان السجل = "مستجد", اذا صفرO ، اذا لم يتحقق لاشي طبعا الصفر يعتبر عدد وسوف تقوم داله count بعده طبعا يمكنك استبدال الصفر باي قيمه تريد ان شاء الله اتضحت الفكره

قم باستخدام الداله count و IIF =Count(IIf([Hala]="مستجد";1)) كذلك ضع مربعات نص الاحصائيات في ذيل التقرير وليس ذيل الصفحه

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

قم بازاله القوسين عن كلمه باق و استبدلها ب علامات اقتباس " "

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

خلال تجربه البرنامج ، ظهرت رساله خطاء في النموذج المسمى تسجيل اسماء البرامج التدريبية في الزر المسمى حفظ ، حيث بعد ظهور رساله التحذير من فضللك .... كما هو ظاهر في الصوره المرفقه الحل اضافه سطر فيجول بيسك التالي في بدايه سطور الكود On Error Resume Next كما هو مبين في الصوره المرفق التالية كذلك كلما كانت اسماء الكائنات بالغه الانجليزيه كلما كان افضل بالتوفيق

ممكن عمله لكن ماهو الغرض من ذلك

في اول مشاركه طلبت تاريخ العمل ولذلك تم عمل الكود ليستخدم تاريخ العمل (الميلادي)

الكود يعمل 100% ماهو التاريخ المدخل في حقلي من الى؟؟ تاريخ العمل(ميلادي) ام التاريخ بالهجري؟؟

ممتاز الرجاء المتابعه على الموضوع السابق اذا انتهاء الغرض من البرنامج وتصميمه تحتاج الى نموذج رئيسي او ما يسمى Dashboard او لوحه التحكم لتكون واجهه البرنامج

شاهد المرفق aa.rar

هذي المشكله تصير عندما يكون هناك اكثر من اصدار للاوفيس على الجهاز جرب الحل التالي افتح Run ثم اكتب RegEdit ثم ابحث عن المفتاح التالي HKEY_CLASSES_ROOT\TypeLib\{4AFFC9A0-5F99-101B-AF4E-00AA003F0F07}\9.0 ثم رايت كليك عليه ثم اختر Permissions بعد فتح Permissions اختر Users group تحت permissions لل Users ضع علامه صح على Full Control ثم موافق هذا الحل موجود في النت ولم اجربه ولكن حاول و ان شاء الله يحل المشكله

تصميم البرنامج كان على اوفيس 2007 او 2010 ثم تم استيراد جميع الكائنات(جداول، نماذج،تقارير...) الى قاعده بصيغه 2003 هناك خصائص موجوده في اوفيس 2007 وليست مدعومه من 2003 وهذا يحدث كثير من المشاكل ثانيا ، لابد من حفظ قاعده البيانات الحاليه من خلال اوفيس 2007 بصيغه 2003 ، وسوف يعلمك اكسس اذا كانت هناك مشكله اولا في التحويل ماهو اصدار الاوفيس؟؟ 2007 او 2010؟؟