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

اخواني الاكارم البرنامج التالي يخص محلات بيع النظارات و اطباء العينية و هو مأجور و ليس مجاني الأجرة ( دعوة صالحة لي و لمعلمي ( أبو آدم )) :rol: اترككم مع المرفق و انا بانتظار الردود ( في حال وجود خطأ لا سمح الله ) -------------------------------------------------------------------------------------------------------------------------- اعتذر لجميع الاخوة يرجى اضافة المرفق التالي مع المرفق الأول وهو وحدة نمطية لمنع التحرك بين السجلات عن طريق دولاب الفارة فقط استخرج المف المرفق وضعه في فولدر البرنامج MyCustomerData.rar std.rar

السلام عليكم ورحمة الله وبركاته مرحبا بكم اعزائي و ضيوفي الكرام في هذا المنتدى العظيم اليوم سوف أقدم لكم ملف جميل و هو عبارة عن دوال if هل تعلم لماذا أضفت مشتقاتها لأن لدي دوال من نفس العمل على سبيل المثال كا ان و أخواتها و لهذا قمت بترتيبها حسب المعطيات التي تتوافق مع العمل حتى لا أطيل عليكم الكلام كثيرا أترككم مع هذا الملف البسيط والمتواضع.أخوكم في الله مناد سفيان الجزائر. برنامج القوائم المشروطة.rar

السلام عليكم أساتذتي محترفي الاكسيل أريد بحث فوري و سريع في اليوزفورم كما هو موضع في الصورة فورم بحث سريع .rar

السلام عليكم هذا هو المثال لعل به يتضح المقال من فضلك ادخل بعض البيانات للتجربة TestHiedMonthsData.rar

" هـل من الممكـن التعـديل فى الكـود انى استـدعى اسماء الصفحـات ما عــدا صفحة معـينه ولا لأ ؟" طبعا ممكن ، عدل الكود كالتالي: Sub Sheets_Name() For I = 1 To Sheets.Count If Sheets(I).Name = "AA" Then GoTo 10 ActiveCell.Offset(I, 1) = I ActiveCell.Offset(I, 2) = Sheets(I).Name 10 Next End Sub بفرض أن الشيت الذي لاتود إستدعاء إسمه هو "AA" لاحظ إضافة السطر If Sheets(I).Name = "AA" Then GoTo 10 وكذلك إضافة الرقم 10 للسطر 10 Next

الدالة DSum بیستخدم ھکذا ' لجمع حقل بالکامل فی الجدول DSum("[Fld]";"Tbl") ' لجمع مع الشرط حقل رقمي DSum("[Fld]";"Tbl"; "[Fld1]=" & [Fld1] ) ' لجمع مع الشرط حقل نصی DSum("[Fld]";"Tbl"; "[Fld1]='" & [Fld1] & "'" ) غیر Fld باسم حقل المراد تجمیعه اي اللي فيه درجات الحكام غير Tbl باسم جدول اللي فيها البيانات اي جدول score غير Fld1 باسم الحقل اللی ترید تجمیعھ حسبھ ای رقم الحکام ام اسماء الحکام

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

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

و عليكم السلام اخي العزيز ابو عبد الله هناك طريقة بالكود التالي : Public Function abc(frm As Variant) As Form Dim rs As dao.Recordset Dim I As Integer Set rs = CurrentDb.OpenRecordset("tbl1") With rs .AddNew For I = 1 To 3 .Fields("Fld" & CStr(I)) = frm("txtField" & CStr(I)) Next I .Update End With rs.Close Set rs = Nothing End Function لاحظ بأن الطريقة تعتمد على توحيد اسماء الحقول ( fld ) و لكن باضافة رقم متزايد يبدأ من 1 .. و كذلك اسماء مربعات النصوص (txtField) الحلقة التكرارية تبدأ من 1 و تنتهي بعدد مربعات النصوص لديك ارجو ان يكون هو المطلوب للمعلومية : هذا الحل ليس بإستخدام sql كما ذكرت اخي ابو عبد الله و انما باستخدام DAO و ممكن الحاق البيانات باستخدام sql بالكود التالي : DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO tbl1 ( fld1, fld2, fld3 )SELECT [forms]![frm1]![txtField1] , " & _ "[forms]![frm1]![txtField2] , [forms]![frm1]![txtField3] ;" DoCmd.SetWarnings True تفضل مثال على ذلك بالتوفيق test.rar

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

اتفضل تقرير.rar

السلام عليكم اخي الكريم الكود التالي صغير يمكنك استخدامه لأي ملف قبل تشغيل الكود ، يجب ان تكون الخلية التي تقف عليها (الخلية النشطة) تقع في مكان يليه عمودين فارغين Sub Sheets_Name() For I = 1 To Sheets.Count ActiveCell.Offset(I, 1) = I ActiveCell.Offset(I, 2) = Sheets(I).Name Next End Sub سينتج من الكود ارقام الشيتات في عمود واسماؤها في العمود التالي مهما كان عدد الشيتات

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

السلام عليكم الأخ الكريم / المسلم العربي بارك الله فيك بالنسبة للطلب الأول بتعديل ترتيب نتائج البحث كل ما عليك هو تغيير الخاصية الخاصة بالفوررم نفسه والمسماه Right to Left من TRUE الي FALSE وتم تنفيذه لك بالمرفق بالنسبة لطلب احضار الصورة اليك المرفق به ما تريد كل ما عليك هو البحث عن الاسم الذي تريده وعند ظهور نتائج البحث في الليست بوكس واختيارك بكليك احد الاسماء المراد احضار الصوره له تظهر لك صورته مباشرة في مكان الصورة وان لم يكن له صوره لديك سيظهر في الصورة انه لا توجد صورة ( كما هو في الصورة ) ولكن يجب الآخذ في الاعتبار : يجب أن تكون الصور المراد احضارها للموردين موجوده في نفس الملف او الفولدر الموجود به ملف الاكسيل كما هو بالملف المرفق يجب ان تكون أسماء الصور في الملف مطابقة تماما للاسم الموجود في شيت الاكسيل والا سيعتبره غير موجود جرب المرفق واخبرنا بالنتائج تقبل خالص تحياتي New folder (7).rar

بارك الله فيك استاذ مناد الله يسر أمرك في الدنيا والآخرة

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

اخي الكريم الامر بسيط فقط كل ماعليك هو نسيان امر الباركود قليلاً وقم بعمل استعلام q1 مستند على جدول Model وقم بعمل تصفية لهذا الاستعلام عن طريق حقل ParCode ..بمعنى آخر افتح الاستعلام بوضع التصميم وضع الامر التالي [forms]![form1]![Text1] كمعيار لحقل ParCode مع تغيير اسم form1 الى اسم النموذج الى النموذج الذي تريد اظهار النتائج فيه .. وكذلك Text1 هو مربع النص الذي سوف يقرأ ارقام الباركود لاحقاً الآن انشيء نموذج منفرد بحيث يكون مصدره الاستعلام q1 وضع فيه جميع الخانات التي تريد اظهارها مثل اسم الصنف والتاريخ والكمية واهم شيء text1 الخاص برقم الباركود الآن توجه الى حدث بعد التحديث لمربع النص text1 وضع الامر التالي Me.requery ومبروك عليك

بخصوص استثناء بعض الاعمدة كل ماعليك فعله هو اخفاء الاعمدة التي لاتريدها ان تظهر في اليست اما الطلب الثاني فقد تم تعديل الفورم بحث اصبحت التكست اطول من السابق مع تصغير العناوين UserForm Flexibles.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

أحسنت التطبيق أخي محمد أدعو لك بالخير و الخيرات والرضا من رب البريات هدية مقبولة ... ونسأل الله ان ينتفع بها من له بها حاجة وإن طالها النقد ... فإستعن ، إنما العلم منزلات تتبعها منزلات ............