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

السلام عليكم جزاكم الله خيرا اخي الكريم ياسر ائراءا للموضوع بدون استخدام معادلات على الخلايا Sub kh_Start() Dim obj Dim Lr As Integer, iRnd As Integer, i As Integer Lr = Cells(Rows.Count, "A").End(xlUp).Row - 1 '======================================== Set obj = CreateObject("Scripting.Dictionary") '======================================== Do iRnd = Int((Rnd * Lr) + 1) If Not obj.Exists(iRnd) Then i = i + 1 obj.Add iRnd, i Range("F2").Cells(i, 1).Resize(1, 2).Value = Range("A2").Cells(iRnd, 1).Resize(1, 2).Value End If If i = 10 Then Exit Do Loop Set obj = Nothing End Sub المرفق 2003 Random word Generator2.rar

الأخ الحبيب الغالي مختار .. مين اللي في بالك .. اللي في بالك ربنا يهنيه يا سيدي إليك الملف المرفق (بس متنساش لو عجبك الحل يختاره كأفضل إجابة) Random Word Generator.rar

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

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

السلام عليكم مكتبة اكسيل باللغه العربيه تضم كتب كثيره ومفيده جدا ومجانيه لا تنسونا بصالح دعاءكم http://download-pdf-ebooks.net/49-1-library-books

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

السلام عليكم ورحمة الله وبركاته قمت بإعداد الملف المرفق لإدارة حركة المستودعات وهو مضبوط للتعامل مع 100 مادة وخمسة مستودعات ... فقط قم بتغيير أسماء المواد والمستودعات في شريحة التعريفات وستتعرف على كامل المصنف ... إذا أعجبكم الملف أدعولي بالخير ... وإذا حد من الاخوة الأفاضل أحب الإفادة فياريت يعمل فورم إدخال للبيانات بحسب الشرائح ( وارد - صادر - مردود ) وطبعاً يشاركنا الملف :) ... والسلام عليكم مشروع حركة المستودعات - 1.2 battarov.rar

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

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

السلام عليكم جزاكم الله خيرا تقبلوا تحياتي وشكري

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

أسأل الله العلى القدير ألا يحرمنا جميعنا من النظر الى وجهه الكريم :fff:

الف شكر جعلة الله فى ميزان حسناتك أميييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييييين

اجعل نوع الحقل رقمي حجم الحقل = مزدوج التنسيق = قياسي moo2.rar

مش فاهم مين دول ولا قصدك ايه

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

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

نشارككم بالكود التالي وعند تحميل النموذج Private Sub Form_Load() For Each r In CurrentProject.AllReports: text2.AddItem r.Name: Next r End Sub طبعا نغير خاصية نوع مصدر الصف = قائمة القيم وهو عبارة عن سرد جميع التقارير بالقائمة وطبعا يمكن استثناء تقارير معينة بإضافة شرط للكود ! تحياتي

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

أخي اباعمرو انت مشكلتك في استيراد بيانات الاكسل ، مب في الاكسس انا اعطيك اسهل طريقة لاستيراد بياناتك من الاكسل الى للاكسس: 1. استعمل الكود التالي ، والذي سيستورد بيانات الاكسل الى جدول مؤقت اسمه Temp: DoCmd.DeleteObject acTable, "Temp" DoCmd.TransferSpreadsheet acImport, 8, "Temp", ImportFileName, True 2. اعمل استعلام الحاقي ليأخذ بيانات الجدول Temp الى جدولك "جدول تسجيل الكتب" ، سر نجاح هذه الطريقة هي ، يا أخي خلي الاكسل يتدلل ويتدلع ، بس خليه يجيب البيانات ، وبعدين لما كل شئ عندنا في الاكسس ، نعرف كيف التعامل معاه جعفر

الأخ الفاضل أبو ملك تفضل رابط هذا الفيديو على اليوتيوب ..تم العمل على ملفك ..

أخي الحبيب إليك شرح للخطوات (دا أول فيديو أقدمه .. فيديو خفيف ..) Insert Flash Movie.rar

نعم ، هذا ما يعمله الكود (مع تغيير بسيط عليه ، لاني لم اجرب ما كتبت): اكتب هذا الكود على حدث زر في النموذج Forms ، فيغير خلفية text1 في form1 الى الاحمر: Forms!form1!text1.BackColor = RGB(255,0, 0) جعفر

وعليكم السلام أخي حسين انا حذفت الجدول rebt ، وعملت نسخة اضافية من التقرير ، وجعلت مربع سرد اسماء التقارير ، يأخذ اسم التقارير من هذا الاستعلام (تقدر تخلي هذا الاستعلام يعطيك اسماء جميع الكائنات اللي في برنامجك من جداول و...): وتلاحظ اني وضعت شرط ان اول 3 حروف من اسم التقرير هي rbo ، وعلى هذا الاساس ، لم يظهر اسم النسخة الاضافية من التقرير اللي انا عملته وعلى بركة الله جعفر 27.1.طباعة التقرير بصيغة ورد.accdb.zip

1. نعم ، ضع صورة خلف التقرير ، واجعل خلفية الحقةل شفافة ، 2. نعم ، اجعل الشعار في التقرير باسم img_Logo مثلا ، في النموذج frm_1 ، اجعل حقل Show_Logo علامة نعم/لا (ويمكن عمل اي نوعية اخرى) ، وعندما تريد الشعار يظهر على التقرير ، اختار نعم ، في التقرير ، في قسم التفصيل ، في حدث التنسيق او حدث قبل الطباعة اكتب هذا الكود: if Forms!frm_1!Show_Logo=-1 then 'معناها نعم ، اظهر الشعار me.img_Logo.visible=true else me.img_Logo.visible=false endif جعفر

آمين ولك بالمثل

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

ضراحة أنا بدأت أتوه منك جرب تغير العلامة < إلى العكس في السطر الأول .. شوف هتظبط معاك زي ما إنت عايز أو لا .. لأني والله حاسس إني بوادي وإنت بوادي ..

جميل .. الآن سننتقل الى المرحلة التالية وهي النتائج والمخرجات ومعها سننتقل الى مكان جديد حيث سأفتح درسا جديدا بذلك وسيكون عنوانه استخراج وعرض تقارير ونتائج الطلاب واتصور ان التقارير ستكون : 1- اشعار بنتيجة طالب لشهر معين 2- شهادة النصف الأول الاختبار + الشهور الثلاثة 3- كشوف الناجحين والمكملين والراسبين 4- الشهادة النهائية ويمكن ان يكون في ظهرها كشف بعموم الدرجات ويمكن افرادها علما ان لنا رجعة هنا ان شاء الله لاستكمال ما وعدتكم به وهو كيفية ادخال جميع درجات مواد لطالب معين الى ان ننتقل الى الدرس الجديد مطلوب منك يا ابا محمد ان تبدأ بتصميم ما تقدر عليه من هذه التقارير ( شكليا حسب ما تود ان تظهر )

وعليكم السلام 1. اريد تغيير خلفية مربع النص Forms!form1!text1.BackColor = RGB(2550, 0) 2. والزر الامر حسب علمي ، صيغة mdb لا تسمح بهذا جعفر

الترحيل يتم بواسطة المعادلات المعادلات محمية حتى لا يعبث يها عن طريق الخطأ tarhil names SALIM.rar

صحيح وسبب اللخبطة ان معرف الطالب نصي لذا اكسس يرى ان رقم 2 اكبر من 10 الحل بسيط : 1- اجعل الترقيم التلقائي هو المفتاح 2- في خصائص حقل المعرف / اجعل القيمة مفهرس = نعم بدون تكرار هكذا يكون المعرف فريد ويمكن ربطه وكذلك يمكننا البحث عن آخر سجل تم ادراجه ملحوظة : اذا جعلت الاثنين مفاتيح تذهب خاصية الحقل الفريد فيمتنع الربط

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

حياك الله اخي الكريم هذه دالة dlookup في الأكسس ويوجد في الأكسس ايضا دالة vlookup تشبهها مع اختلافات بسيطة لا اذكرها .. المهم هنا: مثال: لدي رقم الموظف واود ان ابحث عن اسمه في جدول ما . لدي في النموذج حقلين . A= الحقل المراد البحث عنه . text1= هو الحقل الذي سوف اضع فيه رقم الموضف . فيكون البحث بالشكل التالي: a=dlookup("empname"),"employee","[empno]=forms!form1!text1") empname: اسم الحقل في الجدول , وهو حقل اسم الموظف employee: اسم الجدول , جدول الموظفين empno: هذه المعلومة التي بيدنا الآن وهو رقم الموظف . forms: هذه ثابته اكتبها كماهي. form1: اسم النموذج الذي تعمل عليه . text1: اسم الحقل في النموذج المحتوي علي المعلومة . وفي حال اردت البحث بأكثر من شرط يكون البحث كالتالي : لو اردنا مثلا مثلا ان نعرف كم راتبه ... ولدينا معلومتين رقمه الوظيفي واسمه .. الحقل لدينا في النموذج اسمه salary. يكون البحث كالتالي : salary=("salary","employee","[empno]=forms!form1!text1 and [name]=forms!form1!a") هذي ببساطة بعيد عن تعقيدات نوع الحقل نص ورقم وتاريخ ... وفقنا الله واياك ...

تفضل أخي الحبيب Sub TransferData() Dim WS As Worksheet, SH As Worksheet Set WS = Sheets("tax"): Set SH = Sheets("tax41") Application.ScreenUpdating = False 'العمود الأول WS.Range("A2:A15").Copy SH.Range("A2").PasteSpecial xlPasteValues 'العمود الثاني WS.Range("B2:B15").Copy SH.Range("H2").PasteSpecial xlPasteValues 'العمود الثالث WS.Range("C2:C15").Copy SH.Range("G2").PasteSpecial xlPasteValues 'العمود الرابع WS.Range("D2:D15").Copy SH.Range("F2").PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = True End Sub exeg.rar

عندك طريقتين لعمله: 1. تعمل نموذج صغير بحقل واحد لإدخال كلمة السر ، والحقل يكون له "قناع ادخال" "input mask" وهو password ، والمرفق فيه هذا النموذج جاهزا 2. والطريقة الثانية انك تضع هذا الكود في وحدة النمطية: Option Explicit '//////////////////////////////////////////////////////////////////// 'Password masked inputbox 'Allows you to hide characters entered in a VBA Inputbox. ' 'Code written by Daniel Klann 'http://www.danielklann.com/ 'March 2003 '// Kindly permitted to be amended '// Amended by Ivan F Moala '// http://www.xcelfiles.com '// April 2003 '// Works for Xl2000+ due the AddressOf Operator '//////////////////////////////////////////////////////////////////// '******************** CALL FROM FORM ********************************* ' Dim pwd As String ' ' pwd = InputBoxDK("Please Enter Password Below!", "Database Administration Security Form.") ' ' 'If no password was entered. ' If pwd = "" Then ' MsgBox "You didn't enter a password! You must enter password to 'enter the Administration Screen!" _ ' , vbInformation, "Security Warning" ' End If '************************************** 'API functions to be used Private Declare Function CallNextHookEx _ Lib "user32" ( _ ByVal hHook As Long, _ ByVal ncode As Long, _ ByVal wParam As Long, _ lParam As Any) _ As Long Private Declare Function GetModuleHandle _ Lib "kernel32" _ Alias "GetModuleHandleA" ( _ ByVal lpModuleName As String) _ As Long Private Declare Function SetWindowsHookEx _ Lib "user32" _ Alias "SetWindowsHookExA" ( _ ByVal idHook As Long, _ ByVal lpfn As Long, _ ByVal hmod As Long, _ ByVal dwThreadId As Long) _ As Long Private Declare Function UnhookWindowsHookEx _ Lib "user32" ( _ ByVal hHook As Long) _ As Long Private Declare Function SendDlgItemMessage _ Lib "user32" Alias "SendDlgItemMessageA" ( _ ByVal hDlg As Long, _ ByVal nIDDlgItem As Long, _ ByVal wMsg As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) _ As Long Private Declare Function GetClassName _ Lib "user32" _ Alias "GetClassNameA" ( _ ByVal hWnd As Long, _ ByVal lpClassName As String, _ ByVal nMaxCount As Long) _ As Long Private Declare Function GetCurrentThreadId _ Lib "kernel32" () _ As Long 'Constants to be used in our API functions Private Const EM_SETPASSWORDCHAR = &HCC Private Const WH_CBT = 5 Private Const HCBT_ACTIVATE = 5 Private Const HC_ACTION = 0 Private hHook As Long Public Function NewProc(ByVal lngCode As Long, _ ByVal wParam As Long, _ ByVal lParam As Long) As Long Dim RetVal Dim strClassName As String, lngBuffer As Long If lngCode < HC_ACTION Then NewProc = CallNextHookEx(hHook, lngCode, wParam, lParam) Exit Function End If strClassName = String$(256, " ") lngBuffer = 255 If lngCode = HCBT_ACTIVATE Then 'A window has been activated RetVal = GetClassName(wParam, strClassName, lngBuffer) If Left$(strClassName, RetVal) = "#32770" Then 'Class name of the Inputbox 'This changes the edit control so that it display the password character *. 'You can change the Asc("*") as you please. SendDlgItemMessage wParam, &H1324, EM_SETPASSWORDCHAR, Asc("*"), &H0 End If End If 'This line will ensure that any other hooks that may be in place are 'called correctly. CallNextHookEx hHook, lngCode, wParam, lParam End Function '// Make it public = avail to ALL Modules '// Lets simulate the VBA Input Function Public Function InputBoxDK(Prompt As String, Optional Title As String, _ Optional Default As String, _ Optional Xpos As Long, _ Optional Ypos As Long, _ Optional Helpfile As String, _ Optional Context As Long) As String Dim lngModHwnd As Long, lngThreadID As Long '// Lets handle any Errors JIC! due to HookProc> App hang! On Error GoTo ExitProperly lngThreadID = GetCurrentThreadId lngModHwnd = GetModuleHandle(vbNullString) hHook = SetWindowsHookEx(WH_CBT, AddressOf NewProc, lngModHwnd, lngThreadID) If Xpos Then InputBoxDK = InputBox(Prompt, Title, Default, Xpos, Ypos, Helpfile, Context) Else InputBoxDK = InputBox(Prompt, Title, Default, , , Helpfile, Context) End If ExitProperly: UnhookWindowsHookEx hHook End Function Sub TestDKInputBox() Dim x x = InputBoxDK("Type your password here.", "Password Required") If x = "" Then End If x <> "yourpassword" Then MsgBox "You didn't enter a correct password." End End If MsgBox "Welcome Creator!", vbExclamation End Sub وتنادي الكود هكذا Dim pwd As String pwd = InputBoxDK("Please Enter Password Below!", "Database Administration Security Form.") 'If no password was entered. If pwd = "" Then MsgBox "You didn't enter a password! You must enter password to 'enter the Administration Screen!" _ , vbInformation, "Security Warning" End If جعفر 23.PassWordBox.mdb.zip

انا قلت لك: وبدل ما تساعدنا وتسهل علينا بقاعدة بياناتك ، اضطررت ان اعمل قاعدة بيانات خاصة لك ، فقط لأوضح ، بعد التجربة ، اتضح ان هذا هو الكود الصحيح: call Form_Mfrm.Btn2_Click لاحظ في الصورة التالية: عندي نموذج رئيسي اسمه frm_1 والزر الذي عليه يعطي الرسالة الموضحة ، يوجد نموذج فرعي sfrm_1 داخل هذا النموذج ، ولما نضغط على الزر فيه ، فانه يطلق رسالة زر frm_1. الى هنا والكود حقك يشتغل ويتوقف ، ولن يشتغل على الخطوات التالية اما الان ، فخلي النموذج frm_1 مفتوحا او مغلقا ، افتح frm_2 ، واضغط على الزر ، فانه سيطلق رسالة زر frm_1 كذلك والكود في sfrm_1 و frm_2 هو نفسه بدون اي تغيير ، وهو الذي وضحته لك في اعلى هذه المشاركة. Private sub معناه ان الكود بداخل هذا الـ sub خاص بهذا النموذج فقط ، ولا يستطيع اي نموذج آخر ان يرى محتواه ، Public sub معناه انه يسمح لجميع النماذج ان ترى الكود داخل هذا الـ sub ، واستعماله ، سواء كان النموذج مفتوحا او مغلقا جعفر 22.Click_Main_from_Sub.mdb.zip

انظر المرفق ربما يكون المطلوب Database1.rar

طبقها كخطوات عملية اخي الكريم بالانتظار

السلام عليكم تفضل اخي الكريم khez.rar --------------------------- khez.rar

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

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

اخى الكريم عزيز هناك 5 موديولات تعمل لتحقيق طلبك و اكثر مهمة كل موديول هى الاتى موديول modapi هو المسئول عن اضافة و مسح الايكون من جانب الساعه ( system tray ) فقط موديول modmenu هو المسئول عن اضافة القائمه التى بها ثلاث خيارات و يمكن تزويد الخيارات منها موديول modApiMenu هو المسئول عن اظهار القائمه السابقه عند النقر على الايكون بجانب الساعه بزر الماوس الايمن لتظهر لك القائمه السابقه موديول modAPIWindows هو المسؤل عن اجراء عملية النقر على اى من الخيارات التى فى القائمه لينفذ الامر موديول modPixel2Twips هو لتحويل (twip ) الى inch لتعرض على شاشة الكمبيوتر بنفس الحجم بدون تغيير فى حجم الشاشه او الفونت فالتويب هو وحدة قياس الكائنات التى يتم عرضها على شاشة الكمبيوتر و اخيرا بالنسبه للـ security warning اختار من file > options > trust center > trust center setting > macro sttinges اختار enable all macros اذا لم يعمل معك اعتقد بكده انك بتستخدم نسخه 64 بت و فى المرفق نسخه من ملفك بعد اضافة الموديولز و الفورم و تعمل بدون اى مشكلهAziz.zip تحياتى لك

هذا تجميع لأهم الدروس والمواضيع المميزة بالمنتدى ضم روابط المواضيع المثبتة من أعمال معلمينا الفضلاء ومبدعينا في صفحة واحدة .. وذلك من باب التجديد والتغيير وإعطاء مساحة اكبر للمواضيع المتجددة .. *********************************************************************** أولا : توجيهات للأعضاء الجدد في المنتدى ثانيا : طلب من جميع الخبراء وجميع الاعضاء النشطاء الذين يتصدون للحلول وإجابة السائلين *********************************************************************** القسم الأول : الجداول والاستعلامات: الاستعلام الجدولي والمعايير تعامل-مع-ملفات-الاكسل-عن-طريق-الاستعلام-،-وبدون-كود-،-عن-طريق-استعلام-مسقط/ سِحر-جداول-الاكسس-في-تسجيل-الوقائع-عن-طريق-tables-data-macro/ القسم الثاني : النماذج: شرح أداة WebBrowser 1 2 شاشة انتظر من فضلك !! | سلسلة مهارات في أكسس | 06 | توسيط النماذج داخل النافذة أو الإطار طريقة إبداعية لتغيير خلفيات جميع النماذج إعادة تسمية العناصر الكثيرة دفعة واحدة في النموذج بأسماء متسلسلة مثل : ( Box2 , Box1 , ... ) ⭐ كيف تغير اللغة في برامجك ⭐ ✨💻 صفحة رئيسية متطورة بقائمة جانبية وأزرار فرعية ⭐ التحكم الكامل فى واجهة اكسس ( تصغير بجوار الساعة - توسيط - اخفاء - تغيير أيقونة شعار أكسس ) فصل الارقام مثل (الرقم القومى/الهوية) - الرقم التآمينى .. الخ القسم الثالث : التقارير: مسقط التقارير او صانع التقارير انشاء شريط طباعة للتقرير القسم الرابع : الماكرو والوحدات النمطية VBA: إنشاء دروس VBA أكسس كشكول VBA ترجمة النصوص وتحويلها إلى صوت في vba باستخدام جوجل دالة لحساب أيام الحضور والغياب .. وفكرة عد القيم النصية في حقول السجل الواحد :: اجعل برنامجك يعمل على النواتين 32بت و 64بت اجعل برنامجك يعمل على النواتين 32بت و 64بت _ طريقة ثانية دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) دوال عامة وافكار مختلفة ( بداية مهمه لتسجيل الاخطاء) دوال عامة وافكار مختلفة ( FileDialog ) (ImmediateWindowHelper) تفقيط عام متعدد : تحويل الارقام وقيمة ارقام العملة أو ( عملات متعددة ) الى نص مع التفقيط باللغة العربية ولغة اخرى منتقى التواريخ "Date pickers" إصدار-جديد-فكرة-بسيطة-لطباعة-أو-إظهار-رسائل-بنتائج-الأكواد-مع-إمكانية-التفعيل-والتعطيل/? التحكم-الكامل-فى-واجهة-اكسس-تصغير-بجوار-الساعة-توسيط-اخفاء-تغيير-أيقونة-شعار-أكسس/ متعقب-التغييرات-الذكي-2024 اداة البحث المتعددة الوظائف مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) مُطَهَّرُ النُّصُوصِ الْعَرَبِيَّةِ الاصدار 2 ( ازالة المسافات الزائدة و التشكيل و تنظيف النصوص - و توحيد الاشكال المختلفة للأحرف ) أتمتة عمليات الضغط وفك الضغط للملفات و المجلدات (WinRAR / Seven Zip ) تنفيذ الأوامر والملفات في بيئة Windows مع تحكم دقيق في العمليات القسم الخامس : قواعد البيانات SQL وما يتعلق بها: أكسس و اسكيوال سيرفر Access with Sql Server الأكسس و SQL جُمل SQL مشاركة قاعدة البيانات على الانترنت بواسطة SQL Server [تطبيق] تحويل قاعدة بيانات اكسس الى SQL Server (الجزء الاول _ الجزء الخامس) ربط الاكسيس ب php القسم السادس : البرامج والأدوات والإضافات: إدارة الجداول المرتبطة ، أداة وشروحات نظام مراسلة واشعارات شبيه بالفيس بوك معالج بحث وتصفح مسقط التصفح كارنيهات باستخدام باركود ماتركس - QR code محاكاة برنامج واتساب بالاكسس .. هدية لاوفيسنا القائمة المختصرة - Shortcut menu ارسال رسائل whatsapp (وتساب) بدون حفظ الرقم رسائل whatsapp (وتساب) في اكسس رسائل whatsapp (وتساب) بدون حفظ الرقم ( الكاتب الذكي لدوال المجال في أكسس Dloockup, DCount, DMax, DMin, Dfirst, DLast , DSum, DAvg) ⭐⭐(( مكتبة الأكواد الخاصة )) :: الإصدار الثاني 2.0 ⭐⭐ ، /// ، مكتبة الأكواد الخاصة | سلسلة هدايا الأكسس | 04 | 🎁 - 📟 آلة حاسبة 📟 - هدية مميزة مفتوحة المصدر 🎁 🖌️✏️👨😉🧑‍💻 ... برنامج دردشة بين المستخدمين على الشبكة ... 👨‍💻🧑‍💻✍️😊✏️🖊️ 🎁 :: هديتي لكم :: 🌷📨 >> برنامج مرسال الواتسأب - مع المرفقات - << ✉️ 🙂🌷💌 🎁 :: مرسال الواتسأب :: 📨 :: الإصدار الثاني 2.0 :: مطور :: 🧬🏹 🎁 هدايا الأكسس ✨ | 03| زاد المثابر للحصول على أسماء العناصر في أكسس | أداة رائعة للمطورين 🧛🏻‍♂️ [الاصدار الثاني] ارسال رسائل جماعية لعدد x من المستخدمين على الواتس اب في الاكسس هدية: برنامج تصدير بيانات من جداول/استعلامات اكسس الى اكسل ، 32بت و 64بت هداء لكم برنامج بسيط للديون والسداد 🟢 واتساب ويب web.watsapp 🟢 هدية : تصدير كائنات دفعة واحدة الى قاعدة أخرى أو حسب إختيارك 🧮 الكاتب الذكي لدوال المجال |::| 📜 نسخة مطورة ومحدثة |::| 😊 الإصدار الثاني 2.0 ⭐ كيف تغير اللغة في برامجك ⭐ اختيار صورة من (Shell32.Dll) وحفظها بمجلد وبجدول وعرضها طريقة ابداعية للتحديث من خلال الانترنت تغيير لغة النظام في Unicode القسم السابع : الأفكار والنصائح والتوجيهات: مواضيع مهمة .. قراءة وتفكيك بيانات الحقل الى حقول تطبيقات وأفكار وتلميحات تخفيض امان windows وتسجيل المكتبات عند تنصيب البرامج هام لمطورى ومصممى قواعد البيانات إنتبهوا حتى لا تواجهوا مشاكل مع العملاء خلاصة الأقوال .. حول مسائل الحماية 🔒🔑💪🏻 القسم الثامن : مواضيع متنوعة: ملف للبحث عن المواضيع في هذا المنتدى بعض المواضيع المتميزة والمهمة ( 8 ) الحماية برقم القرص الصلب والمعالج واللوحة الأم شرح أكسس 2003 - 2007 - 2010 - 2013 ( صوت وصورة ومرفقات ) رفع نسخة احتياطية على السحابة (google drive) ::💡 أفكار وفوائد 💡:: أسهل طريقة لعمل مربعات صح ✔ أو خطأ ✘ بالحجم واللون الذي تريده ❌☑️✔️✅❎ ⭐⭐ طريقة إبداعية لتحديث نسخة الواجهات FE 🖥️ لدى المستخدمين بدون برامج أو أدوات خارجية 😊👌⭐⭐ رمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية: ------------------------------------------------------ 1. https://www.officena.net/ib/topic/112126-موضوع-مهم-للنقاش-ماهو-مستقبل-الاكسس-بعد-تطبيق-المرحله-الثانيه-للفاتوره-الاكترونيه/ 2. الموضوع والمرفقات النهائية لرمز الاستجابه السريع QR CODE حسب متطلبات هيئة الضرائب السعودية 3. https://www.officena.net/ib/topic/112589-مكتبة-الموقع-الفاتورة-السعودية-المبسطة/ --------------------------------------------------------------------------------------------------------------------------------------------------------------- القسم التاسع : الدروس والشروحات والمشاريع : طريقة /اضافة صوت للاكسس مع التحكم فى (الايقاف/التشغيل) للصوت تصميم قاعدة بيانات احترافيه لإدارة يوميات وشئون العاملين

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

بعد إذن أخي ابو اسامة وأخي إكسيلجي بعيدا عن معرفة رقم اللون ومشكلاته قمت بتعديل بسيط هو أن يلون المستخدم خلية الدرجة الصغرى بلون الخط الذي يريده ولون الخلفية الذي يريده والكود يطبق الاثنين على الخلايا التي ينطبق عليها الشرط مرفق الملف بعد التعديل mas-تلوين الخلايا.rar