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

وفقك الله .. انت في الطريق الصحيح باذن الله تقبل خالص تحياتي

السلام عليكم ورحمة الله وبركاته تم التجربة عملت فورمات للجهاز ولحسن الحظ لا يتغير اي رقم منهما لا للمزربور ولا للمعالج تحياتي

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

اتفضل اختيار متعدد.rar

حسب فهمي لطلبك اتفضل عملت لحد الرسوب فقط هل تريد هذا اذا نعم راح اكمل ان شاء الله stu.rar

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

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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

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

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

نعم تفضل أخي أفعل ما تشاء فقط تذكرنا بدعائك في ظهر الغيب

تريد حذف كل سجلا ت الجدول بدفعة واحدة ام ما هو شرط لكي يحذف السجل

السلام عليكم ورحمة الله وبركاته اخي الفاضل محمد سلامه طبعا المرفق الي ارسلته لي ما اشتغل غير علي اوفيس 2010 ويعمل جيدا طبعا هذا التعديل هو المطلوب ولاكن يوجد لغز لا فهمه / طبعا انا نزلت اوفيس 2010 وفتحت المرفق الي بعتهولي وعمل جيدا ولاكن عند تحويله يظهر لي رساله انه لايمكن التحويل لاصدار اقدم / طبعا انا عملت ايه فتحت ملف اكسس جديدي ورحت عملت استيارد من المرفق الي بعتهولي لكل ما فيه طبعا طبعا شغلت formS1 وضغط علي زر اضافة عدد صور من الكمبيوتر تظهر لي هذه الرساله طبعا للعلم بعد ما عملت استرياد من المرفق الي ارسلته لي في ملف اكسس جديد قبل معي التحويل ولاكن نفس الرسله تظهر لي بعد التحويل طبعا انا رحت عامل ازالة لاوفيس 2010 ونز لت اوفيس 2007 وجيت افتح الفايل الي انا استوردت ما فيه من نماذج وجداول ووحدات نمطيه من المرفق الي ارسلته لي فتح معي وللاسف اعطاني نفس الرساله فما الحل اخي الفاضل فالظاهر يجود مشكلة في الكود او انك تستعمل اصدار حديث من الاوفيس انا حاولت كتير لاكن ما ظبط معي ارجو منك حل لهذه المشكلة

وجزاك الله كل خير استاذي

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

السلام عليكم الاخ الكريم / محمود أبوالدهب بارك الله فيك اولا لا يوجد داعي لاي اسف فكلنا هنا اخوة الكل يشارك لافادة بعضنا البعض بالنسبة لاخفاء الاعمدة اليك كود بسيط لاخفاء الاعمدة التي تحددها انت ويمكنك دمجها مع الاكواد السابقة الكود يكون كالتالي مع الشرح Sub hide_Column() 'hide_Column طبعا السطر السابق كما اتفقنا هو بداية الكود ثم تسميته واسمه هنا Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True 'Sheet1السطر السابق نحدد فيع اولا الشيت المراد تنفيذ امر الاخفاء عليه وهو هنا في الكود 'F,I,K,Oثم نقوم بتحديد نطاق الاعمدة المراد اخفاؤها كما نريد وهو هنا الاعمدة ' F ويجب عند تحديد النطاق للعمود الواحد ان يكتب بالشكل الموجود في الكود فمثلا للعمود 'F:F يكون النطاق بهذا الشكل اي العمود من بابه .. يعني End Sub 'السطر السابق هو نهاية الكود كما اتفقنا سابقا ولا نسيت فيمكنك اخي الكريم استخدام هذا السطر للاخفاء : Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True ثم قم باستخدام نفس السطر للاظهار ولكن بتغيير بسيط وضع FALSE مكان TRUE كالتالي : Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = False ارجو ان اكون قد وفقت في شرح المطلوب واس استفسار معك دائما باذن الله تقبل خالص تحياتي

بعد اذن الاخ شوقي هذا الكود ربما يفي بالغرض Option Base 1 Sub get_me_Markaz() Dim x, Last_Row As Integer Dim arr() x = 0 With Sheets("البيانات") Last_Row = .Cells(Rows.Count, "d").End(3).Row For i = 3 To Last_Row If Application.CountIf(.Range("d3:d" & i), .Range("d" & i)) = 1 Then x = x + 1 ReDim Preserve arr(1 To x) arr(x) = .Range("d" & i) End If Next End With For k = LBound(arr) To UBound(arr) On Error Resume Next If Len(Sheets(arr(k)).Name) = 0 Then Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = arr(k) End If On Error GoTo 0 Next Erase arr Sheets("البيانات").Select End Sub

شكرا جزيلا استاذي الفاضل جزاك الله خيرا حلتلي مشكلة كبيرة

ضع هذه المعادلة اينما تريد ثم اسحب نزولاً ="x"&INT((ROWS($A$1:A1)-1)/3)+1

تود نسخ الشيت 120 مرة كل مرة في شيت جديد او في نفس الشيت و كل مرة تح المرة الموالية او في نفس الشيت و جنب بعضهم على العرض ام ماذا ؟؟؟؟

مالذي تود فعله في هذا الملف

استعمل الحلقات التكرارية فقط ضع كود النسخ داخلها For i = 1 To 120 'ضع هنا كود النسخ هنا Next

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

على الرغم ما عطيتني جواب سؤالي لذا انا عملت لك هذا جرب حد الرسوب stu.rar

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

السلام عليكم ورحمة الله استبدل الكود السابق بهذا الكود Sub EditData() Const x = 155 Dim cel As Range, z As Single For Each cel In ورقة1.Range("A4:A" & ورقة1.Range("A" & Rows.Count).End(xlUp).Row) If cel.Value = x Then cel.Offset(0, 1) = cel.Offset(0, 1) + cel.Offset(0, 2) cel.Offset(0, 2) = cel.Offset(0, 3) cel.Offset(0, 3) = cel.Offset(0, 4) cel.Offset(0, 4) = cel.Offset(0, 5) cel.Offset(0, 5) = cel.Offset(0, 6) z = WorksheetFunction.Round(cel.Offset(0, 1) * Range("G3"), 2) cel.Offset(0, 6) = z End If Next End Sub

اتفضل استخدمت هذا =Sum(TimeValue([الفرق])) وعطيت هذه الخاصية لكي يظهر ثواني و دقائق و الساعات hh:nn:ss تحياتي db1.rar

السلام عليكم ورحمة الله استبدل الكود السابق بهذا الكود Sub EditData() Const x = 155 Dim cel As Range For Each cel In Range("A4:A" & Range("A" & Rows.Count).End(xlUp).Row) If cel.Value = x Then cel.Offset(0, 1) = cel.Offset(0, 1) + cel.Offset(0, 2) cel.Offset(0, 2) = cel.Offset(0, 3) cel.Offset(0, 3) = cel.Offset(0, 4) cel.Offset(0, 4) = cel.Offset(0, 5) cel.Offset(0, 5) = cel.Offset(0, 6) End If Next End Sub

انا بستخدم 2007 ومش بيشتغل عندي بتطلع رسالة لايستطيع التعرف علي هذا التنسيق

السلام عليكم ورحمة الله انسخ هذا الكود والصقه فى موديول جديد واربطه بالزر الموجود Sub EditData() Const x = 155 Dim cel As Range For Each cel In Range("A4:A10") If cel.Value = x Then cel.Offset(0, 1) = cel.Offset(0, 1) + cel.Offset(0, 2) cel.Offset(0, 2) = cel.Offset(0, 3) cel.Offset(0, 3) = cel.Offset(0, 4) cel.Offset(0, 4) = cel.Offset(0, 5) cel.Offset(0, 5) = cel.Offset(0, 6) End If Next End Sub

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

هذا لمنع الحذف Private Sub Form_Delete(Cancel As Integer) DoCmd.SetWarnings False If User_Num = 1 Then If MsgBox("لا يمكن حذف هذا المستخدم") = vbOK Then DoCmd.CancelEvent On Error Resume Next End If End If DoCmd.SetWarnings True End Sub وهذا لمنع التعديل إلا ان يقوم بادخال رقم المدير . Private Sub User_ID_GotFocus() Dim MYP As String MYP = DLookup("[User_Pass]", "User_Inf", acFirst) If User_Num = 1 Then passwd = InputBox("من فضلك أدخل كلمه سر المدير لتغيير اسم الدخول الخاص به") If passwd = MYP Then User_ID.SetFocus Else DoCmd.CancelEvent MsgBox "الرقم الذي إدخلته خاطئ من فضلك التأكد من الرقم السري وإعاده أدخاله" أمر15.SetFocus End If End If End Sub Private Sub User_Pass_GotFocus() Dim MYP As String MYP = DLookup("[User_Pass]", "User_Inf", acFirst) If User_Num = 1 Then passwd = InputBox("من فضلك أدخل كلمه سر المدير لتغيير الرقم السري") If passwd = MYP Then User_Pass.SetFocus Else DoCmd.CancelEvent MsgBox "الرقم الذي إدخلته خاطئ من فضلك التأكد من الرقم السري وإعاده أدخاله" أمر15.SetFocus End If End If End Sub

فی المحرر فیجوال للنموذج عند الحالي اكتب الكود اذا حقل اليوزر اللي في ريكورد يساوي ب يوزر الحالي اذاً اذن بالتعديل يساوي نعم اذن بالحذف يساوي نعم والا اذن بالتعديل يساوي لا اذن بالحذف يساوي لا انتهى تحياتي

شكرا لك استاذي الفاضل @عبد الفتاح كيرة وشكرا على المرفق تحياتي

::: وهذا ما قمت بعمله كما في الصور التوضيحية .

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

وعليكم السلام ورحمة الله أعتقد الأخ يريد اظهار فواصل الصفحات كما هو الحال بالورد ولكن هذا لا يحدث تلقائيا بالقارير والنماذج على حد علمى وانما بإضافة عنصر تحكم اسمه (فاصل صفحة - Page Break) يتم وضع هذا العنصر في الموضع الذى اريد انتهاء الصفحة عنده.

ممكن توضح ماتريد بالضبط او ترسم اللي تريد

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

السلام عليكم الاخ الكريم / خالد الشاعر بارك الله فيك تقبل خالص تحياتي

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

up

* ملحوظة : انا خذت الكود في موقع اجنبي في البداية اريد اقول سنحتاج مكتبة Microsoft WMI Scripting v2.1 library الصق هذا الكود في وحدة نمطية Option Compare Database Option Explicit Const Arr = 2 Public Function GetPcSnCpuAndMotherboard() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة DoCmd.Hourglass True Dim SWbemSet(Arr) As SWbemObjectSet Dim SWbemObj As SWbemObject Dim varObjectToId(Arr) As String Dim varSerial(Arr) As String Dim i, j As Integer Dim fld As String On Error Resume Next varObjectToId(1) = "Win32_BaseBoard,SerialNumber" varObjectToId(2) = "Win32_Processor,ProcessorId" For i = 1 To Arr Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0)) varSerial(i) = "" For Each SWbemObj In SWbemSet(i) varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value varSerial(i) = Trim(varSerial(i)) If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value" Next fld = "Text" & i Forms("FORM2")(fld) = varSerial(i) ' غير اسم فورم 2 الى اسم الفورم عندك Next DoCmd.Hourglass False End Function وفي النموذج في اي حدث تريد مثلا عند تحميل او عند الضغط على كليك مثلا اكتب في محرر فيجوال هذا Call GetPcSnCpuAndMotherboard ويجب ان يكون عندك مربعين نصيين واسمهما بيكون text1 والاخر بيكون text2 على الرغم اننا نكدر نغيره الى مانريد في وحده‌ نمطية =============== واذا تريد ان توصل الى احد من سريالات وبدون استخدام وحدة النمطية اليك هذا Private Sub Form_Load() ' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة Dim varObjectToId As String Dim varSerial As String On Error Resume Next varObjectToId = "Win32_BaseBoard,SerialNumber" ' اذا تريد ان تبحث عن معالج اكتب الصدر الادناه بدل السطر اعلاه 'varObjectToId = "Win32_Processor,ProcessorId" Set SWbemSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId, ",")(0)) varSerial = "" For Each SWbemObj In SWbemSet varSerial = SWbemObj.Properties_(Split(varObjectToId, ",")(1)) varSerial = Trim(varSerial) If Len(varSerial) < 1 Then varSerial = "Unknown value" Next Me.Text1 = varSerial End Sub واخيرا اتفضل مع قاعدة بيانات بها الطريقتين لمعرفة سريال نمبر المعالج واللوحة الأم.rar

اخى الزبارى شوقتنا

اخى الزبارى نحن في الانتظار

ننتظر ذلك في أقرب الآجال....

استاذ : ياسر الاول نشكرك على التواجد الفعال لحضرتك بالمنتدى ، ولس فعال فقط دا انت بتجيب درر و روائع ، ذكرتنا بالاستاذ الغائب الحاضر : حماده عمر نسيبك مع عفاريتك ... ونحمل ملفك ونعيش مع ابداعاتك

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

السلام عليكم بامكانك استخدام الدالة HYPERLINK ========== إنشاء اختصار أو ارتباط يفتح مستنداًَ مخزناً على ملقم شبكة اتصال، و إنترانت، أو إنترنت. عند النقر فوق الخلية التي تحتوي على دالة HYPERLINK، يفتح Microsoft Excel الملف المخزن في موقع الارتباط. بناء الجملة HYPERLINK(link_location,friendly_name) Link_location (موقع الارتباط) مسار واسم الملف للمستند الذي يتم فتحه كنص .يمكن أن يشير Link_location إلى مكان ما في المستند— خلية معينة أو نطاق مسمى في ورقة عمل أو مصنف Excel ، أو إلى إشارة مرجعية في مستند Microsoft Word . يمكن أن يكون المسار لملف مُخزن على محرك الأقراص الثابتة، أو يمكن أن يكون المسار مسار اصطلاح تسمية عالمي (UNC) على ملقم (في Microsoft Excel لـ Windows) أو مسار محدد موقع معلومات (URL) على إنترنت أو إنترانت. يمكن أن يكون Link_location سلسلة نصية داخل علامات اقتباس أو خلية تحتوي على الارتباط كسلسلة نصية. إذا كان الارتباط المعين في Link_location غير موجود أو لا يمكن التنقل فيه، فيظهر خطأ عند النقر فوق الخلية. Friendly_name (اسم مألوف) هو نص الارتباط أو القيمة الرقمية التي تعرض في الخلية. يتم عرض Friendly_name باللون الأزرق وتحته سطر. إذا تم تجاهل Friendly_name، تعرض الخلية موقع الارتباط كنص الارتباط. يمكن أن يكون Friendly_name قيمة، أو سلسلة نصية، أو اسم، أو خلية تحتوي على نص الارتباط أو القيمة. إذا أرجعت Friendly_name قيمة خطأ ( على سبيل المثال، !VALUE#)، تعرض الخلية الخطأ بدلا من نص الارتباط. ملاحظة لتحديد خلية تتضمن ارتباط تشعبي بداخلها دون الانتقال إلي وجهة الارتباط التشعبي، انقر الخلية واحتفظ بزر الماوس الأيمن حتى يصبح المؤشر متصالب الشكل ، ثم حرر الزر الأيمن للماوس. أمثلة يفتح المثال التالى ورقة عمل باسم Budget Report.xls المُخزنة على إنترنت في موقع محددexample.microsoft.com/report ويعرض النص "انقر فوق التقرير": =HYPERLINK("http://example.microsoft.com/report/budget report.xls", "انقر فوق التقرير") ينشئ المثال التالى ارتباط تشعبي للخلية F10 على ورقة العمل المسماة Annual في المصنف Budget Report.xls، المُخزن على إنترنت على الموقع التالي: example microsoft.com/report. تعرض الخلية في ورقة العمل التي تحتوي على الارتباط التشعبي محتويات خلية D1 كنص ارتباط: =HYPERLINK("[http://example.microsoft.com/report/budget report.xls]Annual!F10", D1) ينشئ المثال ارتباط تشعبي لنطاق باسم DeptTotal في ورقة العمل المسماة First Quarter في المصنف Budget Report.xls، المُخزن على إنترنت في الموقع المسمى example.microsoft.com/report. تعرض الخلية في ورقة العمل التي تحتوي على الارتباط التشعبي النص "انقر لمشاهدة First Quarter Department Total": =HYPERLINK("[http://example.microsoft.com/report/budget report.xls]First Quarter!DeptTotal", "انقر لمشاهدة First Quarter Department Total") لإنشاء ارتباط تشعبي لموقع معين في مستندMicrosoft Word، يجب عليك استخدام اشارة مرجعية لتعريف الموقع الذي تريد الانتقال إليه في المستند. ينشئ المثال التالي ارتباط تشعبي للإشارة المرجعية المسماة QrtlyProfits في المستند Annual Report.doc الموجود في الموقع . example microsoft.com: =HYPERLINK("[http://example.microsoft.com/Annual Report.doc]QrtlyProfits", "Quarterly Profit Report") في Excel لـ Windows يعرض المثال التالي محتويات الخلية D5 كنص الارتباط في الخلية ويفتح الملف 1stqtr.xls، الذي تم تخزينه على الملقم FINANCE الموجود في share Statements. يستخدم هذا المثال مسار UNC: =HYPERLINK("\\FINANCE\Statements\1stqtr.xls", D5) يفتح المثال التالي الملف 1stqtr.xls في Excel لـ Windows المخزن في دليل باسم Finance في محرك أقراص D، ويعرض القيمة الرقمية المخزنة في H10: =HYPERLINK("D:\FINANCE\1stqtr.xls", H10) في Excel لـ Windows، ينشئ المثال التالي ارتباط تشعبي ناحية Totals في مصنف الآخر (خارجي) Mybook.xls: =HYPERLINK("[C:\My Documents\Mybook.xls]Totals") في Microsoft Excel لماكنتوش، يعرض المثال التالي"انقر هنا" في الخلية ويفتح الملف المسمى First Quarter المخزن في مجلد Budget Reports على محرك الأقراص الثابت المسمى Macintosh HD (محرك الأقراص الثابت لماكنتوش): =HYPERLINK("Macintosh HD:Budget Reports:First Quarter", "Click here") يمكنك إنشاء ارتباطات تشعبية داخل ورقة عمل للانتقال من خلية إلى خلية أخرى. على سبيل المثال، إذا كانت ورقة العمل النشطة عبارة عن ورقة باسم June في المصنف Budget، تنشئ الصيغة التالية ارتباط تشعبي للخلية E56. يكون نص الارتباط نفسه هو القيمة في خلية E56. =HYPERLINK("[budget]June!E56", E56) للانتقال إلى ورقة أخرى في نفس المصنف، قم بتغيير اسم الورقة في الارتباط. في المثال السابق، لانشاء ارتباط للخلية E56 في الورقة September ، قم بتغيير الكلمة "June" إلى "September." انظر الى المرفق HYPERLINKاستخدام الدالة.rar

السلام عليكم ورحمة الله وبركاته أخي الكريم : هل تقصد هذا ؟ كلمة المرور واسم المستخدم : 1 _____________.rar