نجوم المشاركات

السلام عليكم ورحمة الله تعالى وبركاته فى البداية اود ان اعتذر عن قلة مشاركاتى وذلك لقلة تعاملى مع الاكسس نظرا لانشغالى بـــ بيئة بيسك.نت ببساطة نحن مستخدمى الاكسس نريد ان يكون لدينا هذا الزر فى برامجنا 😂😂😂 اولا كان لدى محاولة واحدة عن كيفية جعل المستخدم يبحث عن تحديثات جديدة للبرنامج الخاص به عن طريق الانترنت فكانت نتيجة المحاولة هو ربط قاعدة البيانات اكسس بقاعدة بيانات سيكوال موجودة على استظافة مجانية قاعدة سيكوال بها حقلين هما رقم النسخة الجديدة ورابط التحميل الخاص بالتحديث الجديدة وهذا الموضوع يشرح ذلك وكانت اكبر المشاكل التى تقابلنى هى الاستضافة المجانية التى بعد شهرين او اكثر تحذف قاعدة بياناتك بدون سابق انذار ولا يوجد المال الكافى لحجز استضافة ورفع قاعدة البيانات سيكوال الخاصة بك عليها فكان التفكير فى استخدام البرامج السحابية (جوجل درايف - وان درايف - دروبوكس ) واكبر المشاكل التى ستقابلك هى المزامنة ثم المشكلة الاخرى وهى انك لن تطلب من كل المستخدمين تثبيت اى من البرامج السحابية لديه واعطائة اسم المستخدم وكلمة السر الخاص بالبرنامج السحابى الذى سترفع عليه التحديث حتى تتم المزامنة على جهاز العميل اولا باول اذا فما هو الحل انا اريد ان يضغط العميل على زر ( البحث عن تحديث جديد ) ثم يجد رسالة تخبره ان برنامجه محدث او انه توفر اصدار جديد من البرنامج اليكم فكرتى قد تحتاجونها او لا ولكن ما كنت لابخل عليكم بشئ فاء الله على به الفكرة بسيطة جدا تتلخص فى ملف نصى LastVersion.Txt قمت بكتابته به مجموعة اسطر الاول هو رقم الاصدار الجديد الثانى هو رابط تحميل التحديث الجديد وبعد هذا سطور على حسب الحاجة تقوم بالتعريف فيها بالتحديث الجديد ومميزاته طريقة العمل سيقوم المرفق الذى سادرجه هنا بتحميل الملف النصى من حسابك الخاص على دروبكس وتفريغ الاسطر التى بداخله الى مربعات النصوص التى بالنموذج ثم يقارن رقم التحديث الجديد بالرقم الحالى ويعلمك اذا كانت نسختك محدثة ام تحتاج تحديث المشاكل التى واجهتنى 1 - عدم وجود (direct download link او static download link ) نظرا لتغير رابط تحميل الملف النصى دائما فماذا سافعل اذ قمت مسبقا بادراج رابط ثابت لتحميل الملف النصى داخل البرنامج 2 - اذا اطلقت نسخة جديدة من برنامجى فساحتاج الى تعديل الملف النصى المحمل مسبقا والمدرج رابط التحميل الخاص به فى النموذج فكانت الحلول هو عمل static download link للملف النصى اى رابط تحميل ثابت للملف النصى تابع معى المتطلبات ---------------------- ان يقوم مصمم البرنامج فقط بالتسجيل على الموقع السحابى (https://www.dropbox.com/h) .. المصمم فقط ان شئت قلت كأنك حجزت استضافة مجانية بها 12 جيجا بايت ومجانية لانه بعد التسجيل سنحتاج اسم المستخدم وكلمة المرور لكتابتهم فى دوال التحميل داخل المرفق وهما دالتان مثل هذا الشكل الدالة الثانية ثم يقوم بانشاء الملف النصى الخاص بالبرنامج الذى صممه انا كتبته بهذا الشكل سنستخدم البرنامج السحابى دروبوكس (https://www.dropbox.com/h) بعد التسجيل - يمكنك التسجيل بسهوله عليه عن طريق رابط جوجل دون الحاجة الى ملئ البيانات بعد التسجيل ستجد نفسك فى الصفحة الرئيسية الخاصة بك بعد كتابة الملف النصى نقوم برفعه على الدروبكس بعد رفعه على الدروبكس نقوم باخذ اللينك الخاص به كوبى وذلك لعمل رابط مباشر له لتحميله بعد اخذ اللينك كوبى بقى اهم خطوة وهى عمل رابط تحميل مباشر له تابع معى ستجد رابط المشاركة بهذا الشكل الرابط الذى اخذته كوبى https://www.dropbox.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 فقط استبدل https://www.dropbox.com استبدلها https://dl.dropboxusercontent.com ليصبح شكل الرابط هكذا https://dl.dropboxusercontent.com/s/n6oa483hwhlpkst/LastVersion.txt?dl=0 وبذلك اصبح لديك رابط مباشر له بعذ ذلك خذ الرابط الجديد وادرجه فى البرنامج فى هذا الكود ثم نقوم برفع القاعدة الجديدة المحدثة على الدروبكس وعمل رابط مباشر لها ولكن هذه المرة نقوم بادراج الرابط المباشر هذا فى الملف النصى لا فى البرنامج مع مراعاة ان نقوم بتحديث رقم الاصدار فيها قبل رفها ليطابق رقم الاصدار الموجود فى الملف النصى والان فيديو يشرح طريقة العمل تم اضافة اسم للمستخدم وكلمة السر يمكنك الان تجربة البرنامج المرفق LinkToUpdate.accdb اتمنى ان اكون عرفت اشرح وطبعا انا منتظر تشريفكم بتعليق لتجربة مرفقى المتواضع

السلام عليكم اخي عبد القدوس تفضل هذا النموذج لاختبار العمل ضمن الحقل المحسوب في منشيء التعبير غير الاسماء حسب ماتريد test.accdb

اذا كنت تريد نشغيل الاستعلام بالكود DoCmd.OpenQuery "ضع اسم الاستعلام هنا" واذا اردت تحذف محتوايات الجدول وتسنغني عن الاستعلام بيكون هكذا CodeDb.Execute "Delete * FROM tabl;"

السلام عليكم لقد قمت بإخفاء رأس الصفحة في الصفحة الأولى فقط باستخدام الأمر التالي عند فتح التقرير Reports!test2.PageHeader = 1 مما سيخفي المربع الغير منضم فيها .. و هو حل جزئي لكن من الممكن ظهور المربع في رأس الصفحة مع المربع ضمن التقرير لا أدري إن كان هناك حل لذلك . test 5000.mdb

اخي qathi جرب هذا Database7.accdb

نزولاُ عند رغبة بعض الأصدقاء و متابعة للموضوع على هذا العنوان ( المراتب من 1 الى مئة) http://www.officena.net/ib/topic/84849-المراتب-من-1-الى-100/ تم زيادة النطاق لغاية الرقم 1000 و بذلك يكتب لك الاكسل مثلاً الرقم 125 (مئة وخمسة وعشرون) : الرقم 934 (تسعمئة وأربعة وثلاثون) الكود Option Explicit Function Order_Salim(cel) Dim degree$, i%, My_num1%, My_num2% Dim aHad$, Asharat$ If Not IsNumeric(cel) Then Order_Salim = "N/A": Exit Function If cel = 100 Then Order_Salim = "المائة": Exit Function End If If cel > 100 Then Order_Salim = "too Big Number": Exit Function End If cel = Int(Abs(cel)) Dim deg1$, deg2$, deg3$, deg4$, deg5$, deg6$, deg7$, deg8$, deg9$, deg10$ deg1 = "الأوّل": deg2 = "الثّاني": deg3 = "الثّالث": deg4 = "الرّابع" deg5 = "الخامس": deg6 = "السّادس": deg7 = "السّابع": deg8 = "الثّامن": deg9 = "التّاسع": deg10 = "العاشر" Dim deg01$, deg02$, deg03$, deg04$, deg05$, deg06$, deg07$, deg08$, deg09$ deg01 = "عشر": deg02 = "والعشرون": deg03 = "والثّلاثون": deg04 = "والأربعون": deg05 = "والخمسون" deg06 = "والستون": deg07 = "والسّبعون": deg08 = "والثّمانون": deg09 = "والتّسعون" If cel < 11 Then Select Case cel Case Is = 1: degree = deg1 Case Is = 2: degree = deg2 Case Is = 3: degree = deg3 Case Is = 4: degree = deg4 Case Is = 5: degree = deg5 Case Is = 6: degree = deg6 Case Is = 7: degree = deg7 Case Is = 8: degree = deg8 Case Is = 9: degree = deg9 Case Is = 10: degree = deg10 End Select Order_Salim = degree: Exit Function Else My_num1 = Mid(cel, 2, 1) '=========================== Select Case My_num1 '======================= Case Is = 1: aHad = "الحادي" Case Is = 2: aHad = deg2 Case Is = 3: aHad = deg3 Case Is = 4: aHad = deg4 Case Is = 5: aHad = deg5 Case Is = 6: aHad = deg6 Case Is = 7: aHad = deg7 Case Is = 8: aHad = deg8 Case Is = 9: aHad = deg9 End Select '====================== My_num2 = Mid(cel, 1, 1) Select Case My_num2 Case Is = 1: Asharat = deg01 Case Is = 2: Asharat = deg02 Case Is = 3: Asharat = deg03 Case Is = 4: Asharat = deg04 Case Is = 5: Asharat = deg05 Case Is = 6: Asharat = deg06 Case Is = 7: Asharat = deg07 Case Is = 8: Asharat = deg08 Case Is = 9: Asharat = deg09 End Select If My_num1 = 0 Then Order_Salim = Right(aHad & " " & Asharat, Len(aHad & " " & Asharat) - 2) Else Order_Salim = aHad & " " & Asharat End If End If End Function Function OrdeUP100(cel) If Not IsNumeric(cel) Or Int(cel) <> cel Or Int(cel) <= 0 Then OrdeUP100 = "ERROR": Exit Function End If If cel = 1000 Then OrdeUP100 = "الألف": Exit Function If cel > 1000 Then OrdeUP100 = "Too Large Integer": Exit Function Dim Mi3at, Free, Martab1 If cel <= 99 Then OrdeUP100 = Order_Salim(cel): Exit Function Select Case Left(cel, 1) Case Is = 1: Mi3at = "مئة" Case Is = 2: Mi3at = "مئتين" Case Is = 3: Mi3at = "ثلاثمائة" Case Is = 4: Mi3at = "أربعمئة" Case Is = 5: Mi3at = "خمسمئة" Case Is = 6: Mi3at = "ستممئة" Case Is = 7: Mi3at = "سبعمئة" Case Is = 8: Mi3at = "ثمانمئة" Case Is = 9: Mi3at = "تسعممئة" End Select If Mid(cel, 2, 1) = 0 Then Free = Right(cel, 1) Select Case Free Case 0: Martab1 = "" Case 1: Martab1 = " وواحد" Case 2: Martab1 = "وإثنين" Case 3: Martab1 = "وثلاثة" Case 4: Martab1 = "وأربعة" Case 5: Martab1 = "وخمسة" Case 6: Martab1 = "وستة" Case 7: Martab1 = "وسبعة" Case 8: Martab1 = "وثمانية" Case 9: Martab1 = "وتسعة" End Select OrdeUP100 = Mi3at & " " & Martab1: Exit Function End If OrdeUP100 = Mi3at & " و" & Order_Salim(Mid(cel, 2, 2) * 1) End Function الملف مرفق order_up_to_1000.xlsm

للاسف لم يضبط معي يطلع هذا الخطاء كما هو في الصورة

عند تطبيق الكود انتبه إلى ضرورة توسيع نطاق رأس الصفحة و إلا فلن يعمل الكود . بالتوفيق

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

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

أخي الكريم الصورة التي أرفقتها ليست للمرفق من الواضح أن الحدث ليس فتح التقرير !! و يبدو أنك تجرب برنامجاً طبقت به الكود بنفسك . عد و حمل المرفق ..

جميل جدااااا عمل يستحق التقدير :: خالص تحياتي

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

أستاذنا الغالي @ابو ياسين المشولي أدعوا الله كما أدخلت في نفسي هذه الفرحة أن يدخلة عليك فرحاً وسرواً يوم أن تلقاه بارك الله فيك .. وجزاك الله خير

السلام عليكم ورحمه الله وبركاته اليوم نبارك للأستاذ ابو ياسين بالترقيه التي حصل عليها إلى رتبة عضو ذهبي ونتمنا المزيد من التقدم إلى الامام يابو ياسين ربنا يكون بعونك يالغالي تحياتي

لقد جربت المرفق و قد عمل لدي بصورة طبيعية سأعيد رفعه تقرير إخفاء رأس الصفحة VBA.mdb

مشكور استاذي الغالي

IIf([عدد ايام الغياب]=1;([الراتب الاساسي] /30;IIf([عدد ايام الغياب]=2;([ الراتب الاساسي])/30*2;IIf([عدد ايام الغياب]=3;([ الراتب الاساسي])/30*3 ;0))) اتفضل

السلام عليكم ضع مربع تاريخ التقرير اليومي في رأس الصفحة و ليس في رأس التقرير test 5000.mdb

أخي @ايمن14 قم بالتعديل على ملفي بما يتناسب معك أقوم بتسطيب الخطوط من تفس الفولدر البرنامج تفضل إضافة الخطوط للويندوز.rar

السلام عليكم الخلل كان موجودا في معادلة الخلية O5 التي تم ربطها بالخلية V1 (التي قيمتها ثابتة) ومن المفروض أن تكون مرتبطة بالخلية R3 (وهي الخلية التي توضع فيها قيم المتغير I من كود الطباعة بخاصية من...إلى... بالخطوة 2)... وقد تم تصحيح هذا الخلل في الملف مع بعض التعديلات في تنسيق الملف وكود الطباعة. بن علية حاجي اكتوبر1.rar

الجزء الثاني

السلام عليكم وضعت معادلة في الملف تفي الغرض المطلوب... ولم أفهم لماذا مررت في مثالك التوضيحي في الصفين 257 و 258 من 0--16--16 إلى 0--1--33 (ملونين بالأصفر)؟؟؟ بن علية حاجي 69.xlsx

شكراً لك اخي محمد فقد نجح الكود 100% اسئل الله ان يجزيك على ما تقدمة من خبرة وعلم لمساعدة الاخرين في تخطي مشاكلهم التي يواجهونها اثناء عملهم على انشاء قواعد بيانات .

ما شاء الله تبارك الله اخي @Elsayed Bn Gemy فعلا الجميع يحتاج الى عملية التحديث ....... جاري التجربة اعلامك بالنتيجة .. بارك الله فيك

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

أعتقد انه ليس هناك اى كلام بعد هذا وان كان ايضا غير ذلك فعليك بالضبط بعمل جدول صغير خارجى لكتابة المبالغ المطلوب التظليل فى وجودها واى عمود بالضبط يكون المفروض كتابة هذه الأرقام به بارك الله فيك 1.xls

انت بالاول قلت بالاستعلام هذا في حقل النموذج =Nz(DSum("[nu]";"[tab1]");"0")

فى مثل عندنا فى مصر بيقول المركب اللى فيها ريسين بتغرق هههههههههه لذلك انا افضل رئيس واحد ( جدول واحد ) افضل فى التعامل معه مريح فى انشاء الاستعلامات والتقارير دون الحاج الى ربط ذاك الجدول بهذا الجدول بالمناسبة انا دائما اتجنب الربط بين الجداول وانصحك بذلك

الله يبارك فيك

بسم الله الرحمن الرحيم أولا : وقبل أى شئ كل الشكر والتقدير لكل الاساتذه عمالقه الاكسل واخص بالشكر استاذى الاستاذ (محمد الدسوقى) اثانيا : اقدم لحضراتكم شيت كنترول المرحله الابتدائيه من الثانى حتى السادس وذلك طبعا بعد الغاء امتحان الصف الاول ارجوا أن ينال رضاكم وان يساهم فى مساعدتكم دعوة بظهر الغيب تكفينى (هذا ما عندي فإن أحسنت فمن الله، وإن أسأت أو أخطأت فمن نفسي والشيطان) وانا مستعد دائما لسماع تعليقاتكم ثالثا : التحميل الصف الثانى الصف الثالث الصف الرابع الصف الخامس الصف السادس البرنامج كامل على رابط واحد

اتفضل اليك هذا DoCmd.OutputTo acOutputReport, "MyReportName", acFormatRTF, "D:\SaveReportInName.rtf" غير MyReportName باسم التقرير في قاعدة بياناتك

اذا الشاشة الرئيسية مصدرها الجدول " اكتب في حقل غير منضم : =count("*") واذا الشاشة مصدرها غير الجدول او بدون مصدر اكتب في الحقل : =DCount("*";"tblName")

أخي الفاضل يرجى عدم الالحاح في الطلب .. من لديه القدرة على المساعدة ، سيقوم بذلك بدون إلحاح .. تفضل الملف المرفق بالمعادلات .. ومتنساش تحدد أفضل مشاركة اللي فيها الإجابة المطلوبة كأفضل إجابة تقبل تحياتي Transfer Data Based On Two Conditions By Formulas.rar

السلام عليكم و رحمة الله كود لايسمح بالعمل على الورقة الاّ ضمن نطاق معين لمن يرغب تضييق نطاق التحديد.rar

المشكلة