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

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

شكرا لكم احبابي عمل جميل ورائع واكواد نادرة ولكن ايضا العمل ضمن نموذج كما تفضل به ايضا استاذنا ابو احمد أما لو تم عمل دالة خاصة مثل : 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

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

@حسين العربى أخي حسين وجدتها اخيراً ههه كانت المشكلة امام عيني طول الوقت لكني لم انتبه لها .. المشكلة كانت في الأمر : Ret = TWAIN_AcquireToFilename(Me.hwnd, PictureFile) عندما لغيته لم تعد تظهر لي مسألة الخصائص تلك إليك المرفق التالي .. جربه ووافيني أو الغي كود Ret من المرفق السابق وهذا الامر نفسه لأخي @ابا جودى ارجو تطبيقه على مثالك ايضاً تحياتي الارشيف2.zip

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

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

أبشر اخي حسين؟

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

على اد علمل المتواضع استخدم استخدم ناقص التاريخين ثم اقسمهم على عدد الايام بالسنة وهم 365 يوم ثم الناتج استخدم عليه دالة roundup مع جعل الخانات العشرية صفر ومرفق طية ملف توضيح او انتظر راي الخبراء بالمنتدى ووفقق الله لك الخير New Microsoft Excel Worksheet.rar

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

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

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

مشاركتا مع السيد @محمد ابو عبدالله فرضنا اسم المربع النصي اللي تدخل التاريخ هو MyDateTascil استخدم هذا الكود قبل التحديث if Me.MyDateTascil > Date Then msgbox "لا يجوز تاريخ التسجيل الطلاب بيكون اكبر من التاريخ اليوم" Cancel = -1 endif

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

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

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

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

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

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

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

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

نعم بالضبط استاذ @عبد الفتاح كيرة If len(Text01) > 10 Then

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

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

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

الان جربه اذا حد الرسوب بيكون ما بها اي رقم لا يبدله stu.rar

جرب اخي المرفق التالي وفي انتظار ردك تقبل خالص تحياتي نسخ شيتات معينة لملف آخر بدون المعادلات وتسميته بتاريخ اليوم.rar

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

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

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

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

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

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