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

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

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

اخ اسلام سيد غالبا عند ما افهم بالضبط ما هو يريد صاحب السؤال انا عم اترك الموضوع وما اعمل التعليق لذا خلي وضح المطلوب اكثر لكي نكدر نساعدك اكثر تحياتي

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

السلام عليكم تفضل اخي الكريم If MsgBox("هل تريد حذف العنصر المحدد") = vbYes Then DoCmd.SetWarnings False DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70 DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70 DoCmd.SetWarnings True Else Me.Undo End If تحياتي

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

السلام عليكم ورحمة الله أولا- أتقدم بالشكر لكل من شارك بالموضوع أو حتى مر به وجزاكم الله خيرا وأخص بالشكر ذلك الجندى الخفى الذى منحنى مفتاح الحل برسالة على الخاص أ/ محمد عصام @ابا جودى وقد أرسل الى هذا الرابط وقال لعله يفيدك http://www.databasejournal.com/features/msaccess/article.php/3848121/Extending-the-InputBox-function-for-MS-Access-Forms.htm وقد وجدت به مرفق جيد جدا حاولت تطويعه الى ما اريد وقد أثمرت محاولاتى عن هذه النتيجة وهى حتى الآن مرضية تماما والحمد لله وان كنت وددت لو كان هنالك حلا أكثر احترافية باستخدام api لمزيد من الفائدة ولكن ما تيسر تم به المراد والحمد لله وقد اسعدنى جدا مرور أستاذنا @يوسف أحمد MultiInputBox.rar

بسم الله الرحمن الرحيم لكل الأعضاء الجدد والقدامي أقدم هديتي المتواضعة قائمة فيديوهات لأساسيات الإكسل ومازالت السلسلة لم تنته بعد بإذن الله تعالى نكملها إلى الاحتراف هذا الجزء الأول منها وأنصح بمشاهدتهم جميعا وبهدووووء ولا ننتقل للحلقة التالية إلا بعد التطبيق والمراجعة تشجيعكم يدفعنا للاستمرار كيف يشجع العضو صاحب القناة أو المنشور؟ بعمل لايك للحلقة والتعليق ولو بكلمة ومشاركة المحتوى على صفحات التواصل الاجتماعي #اللهم_علمنا_ما_ينفعنا_وانفعنا_بما_علمتنا وفقنا الله جميعا لكل ما يحبه ويرضاه

السلام عليكم ورحمة الله وبركاته إخواني الكرام .. ومع كل جديد ومفيد ، أقدم لكم اليوم كود في منتهى الروعة ، يقوم الكود بإنشاء مصنف منفصل لكل ورقة عمل في نفس مسار الملف .. في الملف المرفق ، تم وضع المصنف المسمى Split Workbook في مجلد .. المصنف يحتوي على 4 أوراق عمل ( الأول Main - الثاني Data - الثالث Search - الرابع Result) في ورقة العمل المسماة Main يوجد زر أمر ، بالنقر عليه يتم عمل الكود ، ويبدأ في نسخ كل ورقة عمل ويسميها باسمها كمصنف جديد في نفس مسار المصنف الحالي ، ثم يقوم الكود بإغلاقه .. أسطر الكود مشروحة داخل الكود .. Sub SplitWorkbook() 'تعريف المتغير من النوع النصي Dim xPath As String 'تعريف المتغير من النوع ورقة عمل Dim SH As Worksheet 'تعيين المتغير لتساوي قيمته مسار المصنف الحالي xPath = Application.ActiveWorkbook.Path 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each SH In ThisWorkbook.Sheets 'نسخ ورقة العمل SH.Copy 'حفظ ورقة العمل بنفس الاسم ونفس المسار Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & SH.Name & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled 'إغلاق المصنف الجديد والذي أصبح هو المصنف النشط Application.ActiveWorkbook.Close False 'الانتقال لورقة العمل التالية Next 'تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub * ملحوظة : يجب ألا تكون هناك ورقة عمل بنفس اسم المصنف Split Workbook ، حتى لا يحدث مشكلة أثناء تنفيذ الكود أو لتجنب هذه المشكلة يمكن إضافة هذا السطر On Error Resume Next أرجو أن ينال الملف رضاكم ، وتستفيدوا منه في المقام الأول ... دمتم في رعاية الله وطاعته .. وهذا رابط لقناتي على اليوتيوب (في انتظار آرائكم حول القناة كبداية لمرحلة جديدة ..) My Channel أخوكم أبو البراء من منتدى أوفيسنا حمل الملف من هنا

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

جزاك الله خير استاذي @Shivan Rekany انا قاعد اقراء كنت شرح لك لمشاركه سابقه بشان الرصيد نسيت اسمه الأخ علي العموم ربي يبارك فيك دوما وانت سباق للخير بارك الله فيك اخي استاذي انت عملته يحفظ المستخدم بحركات الأصناف وليس بجدولAfwtIar لم اجد الكود ممن توضح لي وين طرحت الكود عشان اعدل عليه اسم الجدول

الأستاذ : شفان ريكاني تسلم يدك و بارك الله فيك يا كبير اوي . تحياتى

في نظري تظل القيمة الراجعة من الإدخال إشكالا .. ومع هذا إليكم هذه التجربة ودعونا نناقش الإشكال سويا. هذه صيغة الوظيفة Sub CustomInputBoxExample() Dim A A = UInputBox("الهوية", "الاسم", "اكتب البيانات المطلوبة", "تجربة") Debug.Print A End Sub وهذه هي التجربة CustomInputBox.zip

استاذي الفاضل sandanet اشكرك اولا علي سعة صدرك ومجهودك العظيم لاكن استاذي الفاضل انا جربت المرفق وعند الضغط علي زر اسكان يحدد لي الاسكان الموجود عندي وهو منوع منفصل وسزف ارفق لك سورة ولا كن عند الضغط علي تحديد تظهر لي رساله انه لم يتم العثور علي جهاز ماسح مع العلم ان مرفق الاخ الفاضل ابا جودي الذي ذكرته سابقا يعمل جيدا معي وهذا للعلم وليكم مرفق ابا جودي اليك صورة من مرفقك استاذي sandanet عند التجربه ماذا يظهر test scan.rar مرفق مرفق ابا جودي test scan.rar

ان شاء الله احاول اعملها لكني حالياً لا املك سكانر اوتوماتيك فيدر للتجربة

ملحوظة صغيرة : اذا لم تكن تعرف عدد مرات المسح فعند تطبيق اللوب السابق Do While يجب عليك ازالة اللوب For i = 1 To Nz(Me.Text1, 1) من المرفق السابق وذلك لأن لوب Do While Err.Number <> -2145320957 يتوقف فقط عندما يكون رقم الخطأ المستلم من الفيدر يساوي -2145320957 اي لم يعد هنالك ورق في السكانر لتصويره بينما اللوب For i = 1 To Nz(Me.Text1, 1) يتوقف عن العد فقط عندما يعد تصاعدياً الى قيمة مربع النص Text1

الله يبعدنا عن الهاكرز .. دحنا ناس غلابة اوي

تقدر تعمل لوب لعند مايصدر رقم الخطأ التالي -2145320957 للبرنامج حينها يتوقف اللوب عن اصدار امر السكان Do While Err.Number <> -2145320957 'عمل سكان Loop

استاذي القدير محمد سلامة يشرفني ان تجرب الملف كما ارجو منك ابلاغي بالنتيجة وذكر نوع السكانر الذي جربت عليه ^_^ بالنسبة للأسم فافضل ان يظل مجهول قدر الامكان

جرب هذه المعادلة قي الخلية E2 (تنسيق الخلية يجب ان يكون General) =DATEDIF(A2,B2,"y")+IF(C2+D2>0,1,0)

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

اي يعني نعمل جدول خاص غير مرتبط لنموذج الامامي لكل جهاز تماما انا معك هذا ما كان في ذهني شكرا

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

مشاركة مع السيد @محمد ابو عبدالله من الافضل ان لا تستخدم ME.Undo لان اذا تريد ان لا يحذف السجل وكان من قبل كنت عمل عليه تعديل راح يرجعه الى مثل القبل هذا والله يعلم تحياتي

اخ محمد ابو عبدالله السلام عليكم ورحمة الله وبركاته نريد نسأل كيف تعرف كل درجة في جدول الطلاب هو لأي مادة ثانيا هناك سؤال اخر كما رأيت انا ان لكل مواد بها نفس الارقام لحد المقبول والجيد و جيد جدا و ممتاز هل سيغير احد من الارقام لمادة فقط او سيكون ثابت اي يعني سيكون لكل مادة حد محدد تقبل تحياتي

هناك سؤالين اعطيني جواب الصحيح لكي اعطيك الكود الصحيح 1 : متعلق بصورة الاولى : عند اضافة طالب جديد و تعطيه الحد الرسول للمادة مثلا مادة اكسس ، هل تريد ان يعمل تحديث لكل طلاب مادة الاكسس و يعمل تحديث لجدول المادة مادة اكسس ام تريد يعمل تحديث فقط لجدول المادة ؟ 2 : متعلق بالصورة الثانية : حين تكود على سجل مثلا جعفر وعنده ثلال مادة مثلا وتم تحديد مادة وورد هل تريد ان يعمل تحديث لكل المواد او فقط مادة وورد فقط ؟

ليس لدي فكرة في الواقع .. ربما لو أرفقت ملف نقوم ببعض المحاولات بحيث يكون الملف معبر عن الملف الأصلي وما هي تلك العمليات الحسابية التي تتم في أكثر من 16 ألف عمود ..أول مرة تقابلني حالة بهذا الشكل

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

السلام عليكم الاخ الكريم / شعبان فليفل بارك الله فيك تفضل اخي الكريم المطلوب بالملف المرفق .. وبالنسبة للشرح ان ما زلت تحتاج اليه فقط اخبرني مشاريع التنفيذ12.rar

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

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

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم مع تحياتي اخيكم // ضاحي الغريب برنامج الايجارات الاصدار الثاني - ضاحي الغريب.rar

السلام عليكم لتثبيت تاريح اليوم في الحقل اجعل القيمة الافتراضية له = Date() واضبط خاصية تمكين = لا واضبط خاصية مؤمن= نعم تحياتي

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

يعمل على الاسكان المنفرد الله يرضى عليك تمااااااااااااااااااااااااام وتحت امرك حنقل لحضرتك الاكواد اللى موجوده فى المرفق عندى لعندك من غير ما نثقل على استاذنا الجميل @sandanet على الاقل انا مش حتعب قوى زيه فى النقل لان انا اخدت وقت كتير على مافهمت الاكواد وعدلتها لاصل بها الى تلك النتيجه المشكله بقه لو حضرتك عاوز تعمل اسكااااااااان لاكثــــــــــر من ورقه فى وقت واحد ؟! لا يعمل واحاول الى الان فى ذلك

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

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

جزاك الله خيراً أخي الحبيب / خالد الرشيدي

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

السلام عليكم ورحمة الله شكرا للمبدع دائما جعله الله فى ميزان حسناتك

مين فات قديمه تاه

السلام عليكم اخواني الاعزاء هذا مثال قمت بعمله يفي بالغرض ان شاء الله بالتوفيق للجميع Input Box.rar

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

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

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

تفضلوا تم التعديل 1- استبدال الدالة بأخرى تستخرج الارقام بدلا من تحويل النص الى رقم 2- الاقتطاع اصبح اربعة ارقام بدلا من 3 3- تغييرات وتصحيح لبعض المتغيرات الآن هذه صورة لرقم الاجهزة عندي انظروا ان كانت تتوافق مع اجهزتكم الهارد والمعالج واللوحة الأم2.rar جزاك الله خير وخيرا فعلت كنت اتصور نموذج المعادلة سيكون عند العميل

السلام عليكم ورحمة الله أخي الكريم علي، أبدلت الدالة AGGREGATE بالدالتين INDEX و SMALL في معادلة صفيف تجدها في الملف المرفق... بن علية Ex1.rar

الرابط لايعمل

طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل بالطبع هناك اكواد كثيرة لعمل شاشة الادخال وكذلك الاستعلام ولكني قصدت اختيار اسهل هذه الاكواد لعمل ذلك لتكون اسهل في توصيل المعلومة وكذلك اسهل عند التطبيق وارجو من الله ان اكون قد وفقت في عمل ذلك (((( الدرس الثالث )))) شاشة ( فورم ) لادخال بيانات والقيام بتسجيل وترحيل هذه البيانات الي صفحة الاكسيل و الاستعلام من خلالها عن طريق نفس الفورم والتعديل ايضا في البيانات في حالة ما اردنا التعديل في بيان قد سبق ادخاله وطبعاً والاكيد كله من علمكم اساتذتي الكرام الاجلاء في هذا الدرس سنتعرف علي طريقة عمل استعلام في نفس الفورم الذي قمنا بتصميمه عن البيانات السابق تسجيلها في صفحة البيانات وذلك عن طريق استخدام كومبوبكس لعمل ذلك ... مع وضع اكواده ... وشرح الكود سطر سطر كما تعودنا واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري في الدرس القادم سنتعرف الطريقة لعمل التعديل في البيانات السابق تسجيلها وذلك عن طريق نفس الفورم ( ان شاء الله ) واليكم ايضا في المرفقات : 1- ملف اكسيل به الاكواد والشرح هذه المرة داخل الكود ( تم شرح الكود سطر سطر بطريقة وافية وبسيطة جدا داخل الكود نفسه ) 2- عدد ( 1 ) ملف فيديو يشرح طريقة التصميم واضافة الاكواد وكذلك مشاهدة النتيجة جزاكم الله خيرا اساتذتنا اكسيل ..طريقة عمل شاشة ادخال واستعلام 3.rar طريقة عمل استعلام في الشاشة عن طريق كومبوبكس3.rar

الرابط لا يعمل