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

السلام عليكم ,, ومشاركة مع استاذنا وحبيبنا شفان استبدل علامتي الاقتباس "" بـــ صفر لان نوع الحقل الذي ستجري عليه التحديث رقمي

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

مشاركة مع اخينا الغالي ابا جودي اولا تصحيح الجمله Case 1 Me.RecordSource = "SELECT Tbl_Result.*, Tbl_Result.Sub FROM Tbl_Result WHERE (((Tbl_Result.Sub) Like '*عربية*'));" وهكذا للمواد الاخرى ثانيا ليس من المنطقي ان تتغير الجمل البرمجيه خصوصا لو هناك عميل سيستلم البرنامج وهنا يمكنك 1. ضع حقل اضافي في الجدول المواد باسم كلمة البحث او البحث وسيكون به الكلمات التي تريد الفلترة بها 2. تشير لمربع النص الذي بالتقرير والذي سيحتوي اسم الماده والتي هي بمربع السرد بالنموذج هكذ =[Forms]![Frm_PrintComm]![Cmb_SelectSubject].[column](1) هنا لم يعد حاجة للكود سواء للبحث او للاشاره لاسم الماده فقط استعلام بالتوفيق

لا يمكن أن تعيد Enum قيما نصية للأسف.. لكن لها شقيقة تدعى Type تقوم بتعريف البيانات التي تستقبلها وتعيدها ولكي نطوعها للعمل كسابقتها نحتاج إلى عدة خطوات.. إليكم الخطة سوف نقوم أولا بتعريف البيانات كما يلي Type T_MonthNames Jan As String Feb As String Mar As String Apr As String May As String Jun As String Jul As String Aug As String Sep As String Oct As String Nov As String Dec As String End Type كما أشرت سابقا يمكن تعريف المطليات ونوع البيانات حسب متطلباتكم.. نحن هنا بحاجة إلى معطيات تحمل قيم نصية هي أسماء الشهور فقط. إذا بعد تعريف المعطيات نحن بحاجة إلى إسناد البانات لهذه المطيات.. ولهذا الغرض سوف نقوم بإنشاء وظيفة ونعرف بياناتها من نوع T_MonthNames التي أنشأنها للتو كما يلي Function MonthName() As T_MonthNames '-- هذه البيانات كمثال '-- أكمل إسناد البيانات إذا أردت MonthName.Jan = "يناير" MonthName.Feb = "فيبراير" MonthName.Mar = "مارس" MonthName.Apr = "أبريل" End Function في نافذة التنفيذ السريعة يمكنكم تجربة الوظيفة كمايلي ? MonthName.Apr 'سوف تعيد شهر أبريل إليكم المثال T004.zip

اتفضل استخدمت هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim sql As String If DCount("[ItemID]", "[InvoiceDetails Table]", "[InvoiceID]=" & Me.InvoiceID & "and [ItemID]=" & Me.ItemID) > 0 Then sql = "UPDATE [InvoiceDetails Table] SET [InvoiceDetails Table].Quantity = [InvoiceDetails Table]![Quantity]+[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![Quantity] WHERE ((([InvoiceDetails Table].InvoiceID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![InvoiceID]) AND (([InvoiceDetails Table].ItemID)=[Forms]![Invoice Table]![InvoiceDetails Table Subform].[Form]![ItemID]));" DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (sql) Me.Undo DoCmd.SetWarnings (warningson) End If End Sub واليك قاعدة بياناتك بعد تعديل invoice.rar

اتفضل استخدمت هذا الكود Dim Sql As String Sql = "UPDATE ItemsT SET ItemsT.item_available = 0;" If MsgBox("هل تريد ان تفريغ البيانات حقل الكمية المتوفرة", vbYesNo + vbMsgBoxRight, "اخر تنبيه") = vbYes Then DoCmd.SetWarnings (warningsoff) DoCmd.RunSQL (Sql) DoCmd.SetWarnings (warningson) Me.Refresh End If اي اضفت رسالة نعم ولا لكي لا يتم التفريغ بدون رسالة الحذر و بدلت علامة "" الى صفر كما قال استاذنا @ابو خليل لان الحقل هو رقمي وتكدر تستخدم علامة ايضا لكن من الاحسن ان يكون صفر اتفضل قاعدة بياناتك بعد اضافة الكود الاعلاه Items.rar

الشكر لله أخي ابا جودي فمانحن الا تلامذة صغار امامكم .. نسأل الله ان يزيدنا وإياكم من خزائن علمه ورحمته تحياتي لي سؤال بسيط وهو خارج الموضوع .. كيف اضيف توقيع في مشاركاتي؟

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

المعذرة لم أتمكن من إكمال المشاركة السابقة لعدم استجابة المتصفح للتحرير 2- إنشاءالوظيفة ()IsMonth وهي تعود بقيمة منطقية، وتستقبل أيضا متغير يعود بقيمة عددية من خلال الحاوية التي أنسأنها 3- يوضح هذا المقطع مستعرض المراجع؛ وهو هنا يسرد قيم الحاوية التي أنشانها 4- هي لنافذة التنفيذ السريعة ويمكن من خلالها فحص الوظفة السابقة ومدى استجابة المحث بسرد قيم حاوية أسماء الأشهر.. يجب أن تظهر هذه القيم عند كتابة الوظيفة وبعد كتابة القوس الأيسير. وهذا مثال للتوضح T004.zip

اتفضل اخي اليك هذا الاستعلام SELECT Basic.Emp_No, Basic.Emp_Name, Egoor_assassia.Emp_No, Max(Egoor_assassia.Agr_Date) AS MaxOfAgr_Date, Nz(DLookUp("[Agr_amount]","egoor_assassia","[Agr_Date]=#" & [MaxOfAgr_Date] & "#" & "and [Emp_No] = [Emp_No]"),0) AS dd FROM Egoor_assassia INNER JOIN Basic ON Egoor_assassia.Emp_No = Basic.Emp_No GROUP BY Basic.Emp_No, Basic.Emp_Name, Egoor_assassia.Emp_No; لكن هناك ملاحظة كان في خطأ في ادخال تاريخ استاذ اشرف اللي في 01\07\2017 انا مسحته و اضفت من جديد حتى لا يظهر معي الخطأ وفي الاخير النتيجة سيكون كالتالي اتفضل مع القاعدة بياناتك last agr.rar تقبل تحياتي

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

الكود بهذا الشكل سليم إن شاء الله ولكن طالما أننا سنتعامل مع أكثر من ورقة عمل فلابد من الإشارة لورقة العمل التي فيها قيمة الخلية (القائمة المنسدلة) قم بالإشارة إلى ورقة العمل قبل كلمة Range في هذا السطر strClass = Sheets(StudentData).Range("W2").Value

وصلت الفكرة وبارك الله فيكم اشكرك اخى n_elmasry

يعنى أنا باستخدم الدبل زى المثال المرفق مع النصوص فى الاستعلام عادى ...

أخى هذه الرسالة لكون مرفق أ/ حمادة مصمم باصدار 2010 وحضرتك بتحاول تفتحه على اصدار 2007 وعلى كل قمت بحويل المرفق الى اصدار 2003 لتستطيع فتحه ومساعدة أخيك وأعتذر لعدم المتابعة لانشغالى قليلا تفضل هذا المرفق New.rar

تفرق بين الارقام والنصوص

ممكن مرفق من القاعدة لو تكرمت

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

ممكن توضح اكثر استاذ عبدالله

السلام عليكم @حسين العربى سامحني لانني مشغول جدا وشكرا للأستاذ @sandanet علي الكود الخاص بالاسكنر وجاري تجربته علي الاسكنر.. بس ليه تعليق بسيط لو يوفر الكود بعد السحب تحويل او الحفظ بصيغة pdf لكن افضل واحسن نظرا لان يوجد بعض المرفقات تحتاج ان تكون في ملف واحد وهل اذا سحبنا مثلا 5 صور يقوم بإدراج رابط كل صورة في سجل جديد داخل النموذج الفرعي؟؟

بالنسبة للنجمة يتم كتابتها فى Label اسم العنصر عن طريق الضغط على Shift+8 من الكى بورد، فمثلاً الحقل الخاص بالاسم سيكون تسميته: اسم الموظف: * وهكذا أما بالنسبة لموضوع أزرار الفورم ، إن كنت تستخدم الأكسيس فالأمر سهل ... اقرأ عن إنشاء النماذج فى الأكسيس

طيب جرب السكانر بدون برنامجك هل تعمل من داخل الويندوز ام لا؟

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

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

اتفضل Error- 2.rar

اتفضل استخدمت هذا الكود عند الضغط على زر انتر If KeyCode = 13 Then Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close End If واستخدمت هذا عند دبل كليك Forms![فاتوره مشتريات]![تابع23]![Rajmsanf] = Me.Rajmsanf DoCmd.close اتفضل مع القاعدة بعد اضافة كود الاعلاه الاضافه على الفاتوره.rar

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

ليس هناك استعلامات العمل هنا داخل محرر الأكواد alt+f11 من نافذة view اختر immediate ctrl+g و بالنسبة لاستخدام مثل هذه القيم فأنا قصدت بالطريقة العادية يعنى ننشئ جدولا به حقلان رقم و اسم الشهر و نعبئه بالقيم ثم نجعله مصدرا للصف فى مربع السرد و سألت عما يميز طريقتكم عن الطريقة المعتادة و مع ذلك فقد حاولت ملء مربع سرد بقيم هذه الطريقة كما بالمرفق افتح نموذج 2 بالمرفق و تفحص مربع السرد و اختر الشهر أبريل بالتوفيق تطبيق على type و معرفة رقم الصف للمختار فى كمبوبوكس.rar

اختبارات تلقائية بعد التعديل هدية لجميع الأعضاء لقد وجدت في المنتدى هذا البرنامج فقمت بالتعديل علية وتنسيقه وتسهيله لأي شخص يريد أن يعمل امتحان تلقائي يدخل الأسئلة اللي هو عاوزها ولم أعرف من صاحب البرنامج اللهم اجعله في ميزان حسناته الرقم السري للدخول هو (123) اختبارات تلقائية.rar

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

@حسين العربى تفضل أخي حسين الارشيف.zip

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

عندي سؤال للاخ athal فرضاً لو أن الاسعار تغيرت وانت رابط رقم المادة مع العدد فقط وليس السعر . لو اصبح لديك مشكلة في فاتورة وكان هناك تغير في الاسعار عند استعادة الفاتورة سيظهر السعر الجديد وليس القديم اذا لم اكن على خطاء. يمكن ان تضيف سعر مع رقم الصنف حيث يكون رقم الصنف ثابت في الفاتورة والسعر يحفظ بنفس الوقت الذي تم البيع به الفاتورة واي تحديث على قائمة الاسعار لا يأثر بالاسعار التي تم البيع بها سابقاً

شكرا جزيلا لكم

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

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

جزاك الله خير

بارك الله فيك أخي الكريم ناصر ممكن توضيح للمطلوب بخصوص "شهادات بدل كلمه ناجح نكتب فصل ونطلع الشهادات بمعيه الفصول"

إليك رابط القناة حاول تتابعها وتستفيد منها بأكبر قدر وإن شاء الله مع الوقت تقدر تكتب أكواد بنفسك .. الموضوع ما هو إلا ممارسة وتدريب وتطبيق (ما ولدنا من بطون أمهاتنا وكنا نعرف كتابة الأكواد بل تعلمناها بمرور الوقت مع التدريب والممارسة) YasserKhalil ExcelLover

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

الفيديو يعمل .. جزاك الله كل خير استاذ ياسر خليل

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

شاهد المرفق .. ان شاء الله به طلبك علي حسب فهمي له اسم آخر شيت تم فتحه.rar

السلام عليكم أخي الكريم ناصر ابحث عن الإجراء الفرعي المسمى Sub Kh_JJJ(Nd As String) وعدل السطر التالي If .Cells(R, 1) = Nd Then ليكون بالشكل التالي If .Cells(R, 1) Like "*" & Nd & "*" Then

اعظيني مثال حي اسي اذا اضيف اي شي اضفه وتريد كيف تظهر

هل تريد ان يظهر لك هكذا ام بأي شكل تريد

السادة / أعضاء أوفيسنا المحترمين السلام عليكم ورحمه الله وبركاته بناء على مراسلات من بعض الإخوة على الإيميل وإستفسارهم عن حساب مكافآة نهاية الخدمة طبقا لقاون العمل بالمملكة العربية السعودية مقدم لكم ملف اكسيل بسيط جدا لكيفية إحتساب المكافأة وأعتذر عن غيابي عن المنتدى الفترة السابقة بسبب ظروف مرضية وأتقدم بخالص الشكر لكل من راسلنى للإطمئنان على وجزيتم عنى خير الخير وتقبلوا منى وافر الاحترام والتقدير حساب مكافأة نهاية الخدمة.rar

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

السلام عليكم، بعد طرح الأخت أم عبد الله لدالة لحساب أيام العمل على هذا الرابط : http://www.officena.net/ib/index.php?showtopic=49022 قمت بالتعديل عليها وإيجاد دالة ثانية تقوم بحساب تاريخ النهاية إذا كان لدينا تاريخ البداية وعدد الأيام معلوما.. أترككم مع تجريب الدالتين في المرفق. دالتان لاحتساب أيام العمل وتواريخ النهاية بدون الجمعة والسبت والأعياد.rar

السلام عليكم ورحمة الله أخي الكريم ريان، تم حل المشكلة بإضافة كود جديد لمسح بيانات الجداول (إلا جدول قائمة الأسماء في النطاق B7:B22)، والكود نقوم بتنفيذه عندما نريد التعديل على قائمة أسماء الفرق (أو عندما نريد إعادة القرعة قبل اكتمال قرعة سابقة).... أرجو أن يعجبك هذا التعديل... أخوك بن علية المرفق : عملية قرعة لـ16 فريق_3.rar