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

السلام عليكم ورحمة الله وبركاته نتقدم بأرق التهاني لأخونا الكبير ومعلمنا القدير وأستاذنا يحيى حسين (أبا الحسن والحسين) ، بمناسبة تكريمه للعام الثاني على التوالي من شركة مايكروسوفت ، وحصوله على لقب MVP وهي اختصار لــ Microsoft Valuable Professional ألف ألف مبارك لك أبا الحسن والحسين ، ومن تقدم لتقدم ، ومن رقي لرقي تقبل وافر تقديري واحترامي

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

جرب التالي وعند النقر لزر امر SendKeys ("%{TAB 2}"), True بالتوفيق

الساده : الياسرين ( الخليل - العربي - البنا ) بنحبكوا كلكم في الله وكتر الله خيركم

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

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

بسم الله والصلاة والسلام على خير خلق الله السلام عليكم ورحمة الله بالملف المرفق معادلة لاستخراج اسم الملف بدون اكواد وفي المثال العملي اسم الملف عبارة عن الشهر ثم شرطه ثم السنه ومن خلال الفورمات السابق تم استخراج عدد ايام الشهر وفقا للشهر والسنة, يمكن استخدام هذه المعادلات في الملفات المرتبطة بالشهر والسنه كملفات الرواتب الشهرية خصوصا المرتبات المرتبطة بعدد ايام كل شهر على حده . برجاء من له سؤال او تصويب ان لا يبخل به علينا ليستفيد الجميع. سبحانك اللهم وبحمدك لا اله الا انت Feb-2016.zip

السلام عليكم و رحمة الله وبركاته تم عمل الكود التالي Sub aHMDzMN() Dim FS As Worksheet, TS As Worksheet Dim SH, Q1, Q2, Q3, TR, ER, FR Set TS = Sheets(ActiveSheet.Name) Q1 = TS.Range("E1").Text 'ÔåÑ ÔÑßÉ Q2 = TS.Range("E2").Text 'ÔåÑ ãÄÓÓÉ Q3 = TS.Range("D1").Text 'ÇáÝÑÚ For SH = 1 To Sheets.Count If Sheets(SH).Name = Q1 Or Sheets(SH).Name = Q2 Then Set FS = Sheets(Sheets(SH).Name) TR = TS.Range("C5555").End(xlUp).Row + 1 ER = FS.UsedRange.Rows.Count For FR = 4 To ER If FS.Cells(FR, 18) = Q3 Then For C = 2 To 18 TS.Cells(TR, C) = FS.Cells(FR, C) Next C TR = TR + 1 End If Next FR End If Next SH End Sub اضغط زر البحث جرب المرفق وقول يارب برنامج-مرتبات تجريب.rar

تفضل اخي العزيز ووافني بالنتيجة ccc.rar

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

كل عام وجميع الامة العربية والاسلامية بألف خير

بعد اذن اخي اجمد جرب هذا الملف حساب عدد الساعات salim.rar

‏السبت‏، 29‏/12‏/1437هـ الموافق ‏1‏/10‏/2016م كل عام و انتم بخير و صحة وعافية

‏السبت‏، 29‏/12‏/1437هـ الموافق ‏1‏/10‏/2016م الف الف مبروك لـأستاذي الفاضل يحيى حسين وبارك الله لك في علمك وزادك الله علما ونورا وايمانا

العفو أستاذى الغالى كنت و ما زلت وسأظل أتعلم منك و تواضعك الشديد هذا يزيدنى شرفا وفخرا بأن أقول أنك أستاذى فى vba تحياتى

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

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

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

يمكن في نهاية الكود وضع سطر يحدد أي ورقة عمل ليلغي الأوراق الأخرى المحددة

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

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

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

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

ما يفتح المرفق عندي ... اي اصدار اوفيس انت بتستخدمها ؟

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

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

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

ولكن اين يتم اضافة هذا الكود هل يمكن عمل مثال بسيط ولكن لم افهم اين يتم اضافة هذا الكود هل ممكن التوضيح اكثر او بمثال ومكان الكود والمسار الذي تقصده اين يتم وضعه بمعنى عند جلب المسار من السيرفر والذي فهمته اننا نضع فولدر لتخزين الصور على سبيل المثال في البارتشن d:/ameer/pic وهذا البارتن موجود على السيرفر الان اين اضيف المسار بالنموذج انا لدي برنامج اضافة الصور ويتم اختيار الصوره من خلال ال BROWSER وتخزن تلقائيا مع البيانات وهكذا ولكن اذا امكن عمر زر عند ادخال البيانات وضغط حفظ البيانات يتم ارسالها الى مسار السيرفر اتمنى عمل ذلك استاذنا الفاضل واذا احببت ارفق نسخه من البرنامج ملاحظه انا مقسم قاعده البيانات الى قسمين قسم الجداول مربوط بقاعده بيانات SQL SERVER وهيه موجوده بالسيرفر والقسم الثاني من القاعده التي هيه النماذج موجود بحاسبات المستخدمين بمعنى ان المستخدم عند اختيار صور من الحاسبه ترحل الصور الى السيرفر وعلما الحاسبات مربوطه شبكيا مع السيرفر وانا في انتظارك استاذنا الغالي وبارك الله فيك ولك حسن الدعاء والتوفيق على مساعدتك لكل الاعضاء

بدل ذاك السطرين Private Sub Panel_Click() On Error Resume Next If Me.Panel = -1 Then Forms!students!stdid.SetFocus DoCmd.GoToRecord , , acFirst Forms!students!Visit.Form!lecturs.Form.SetFocus بدل هذا السطر الى (Forms!students!Visit!lecturs!lecture.SetFocus) DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdCopy Forms!students!stdid.SetFocus DoCmd.GoToRecord , , acLast Forms!students!Visit.Form!lecturs.Form.SetFocus و ايضا هذا (Forms!students!Visit!lecturs.SetFocus) DoCmd.GoToRecord , , acGoTo DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste result = "" End If Me.Panel = 0 End Sub

السلام عليكم اتمنى ان يكون هذا التعديل مساعد لك في الحل التصاريح.rar

لا يمكن ان يكون مفتاح اساسي ويقبل التكرار لكن هناك فكرة ان تضع حقلين هما مفتاح اساسي هنا يقبل كل عمود على حده

السلام عليكم ... تابع الموضوع التالي....

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

عسى ربي يوفقك ويرضا عليك ورحم الله والديك يكفي بارك الله فيك بأنك تنقش طيبك في قلبي وكما أسلفتُ سابقاً سواء وجدت الحل أم لا ستبقى متفضل عليَّ الله يزيدك من فضله

ربط البيانات بين الجدول الرئيسي والرفرعي غير مكتمل (نقص ID ورقم فاتورة البرنامج) ثم ضع زر امر لحفظ البيانات وضع فيه الكود التالي عند حدث Click DoCmd.RunCommand acCmdSaveRecord

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

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

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

السلام عليكم و رحمة الله وبركاته الطلب يحتاج للمزيد من الشرح لفهم المطلوب فهم السؤال نصف الإجابة مثلا ماهو وضع ساعات العمل التي هي خارج المدة من 17 الى 24 ========================================= على الرغم من ذلك مرفق حل على قدر فهمي يحسب الساعات الواقعة بين 17 و 21 و الساعات بين 21 و 24 حساب عدد الساعات.rar

جزاكم الله خيرا أ \ مصطفى شاهين على هذه الافادة النافعة

أختى الكريمة حاولت التطبيق على ملفك شيت سجل الرصد لكن يفلح الامر لأنه كما قلت لك كمية البيانات فى الشيت ضخمة 200 صف x اكتر من 237 عمود لذلك قمت بعمل نموذج مصغر اليك طريقة العمل : تحديد نطاق البيانات المراد التعامل معه وتسميته باسم Mydata عدد 2 Class Module باسم Class3 و Class4 كما هما بدون تعديل وبنفس الاسم كود استدعاء الفورم بنعمل فيه تعديلات حسب الحاجة كاسم النطاق و عدد خلايا الشبكة التى تظهر فى صفحة MultiPage فى كود الفورم تعليقات بسيطة على السطور المهمة والتى يمكن تعديلها حسب الرغبة والحاجة عند تشغيل الفورم سوف يظهر النطاق Mydata فى MultiPage داخل الشبكة يمكن عمل سكرول لاستعراض البيانات كما يمكن وضع المؤشر فى اى خلية بالشبكة و تعديلها عند الضغط okay سوف تتغير الخلية فى الشيت كما يمكن وضع المؤشر فى التكست بوكس و تعديل العنوان ( بتغيير رقم الصف أو العمود ) ثم الضغط على get لمعرفة قيمتها أو set للتعديل آى استفسار تحت أمرك مع خالص تحياتى show data from-spreadsheet in MultiPage for updatting.rar

المطلوب غير واضح هل تريد زر بالنموذج يقوم بمهمة alt+tab وعبارة عن التبديل بين النوافذ المفتوحة ؟

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

شكرا مصطفى على التوضيح الجيد والسلام عليكم

الملف غير قابل للتحميل يرجى اعادة رفعه

وعليكم السلام انا اشعر اني فظ في التعامل معك ، فاعتذر منك واليك نصيحتي والتي قلتها سابقا: رجاء ان يكون سؤالك واضح وبالتفصيل الممل ، وفيه امثلة من بياناتك ، ومن اسماء نماذجك وحقولك ، وتوضيح (سواء على الاكسل او الوورد او الصور) ، وترفق هذه الجزئية من برنامجك (لأنه يجب على احدنا عمل المثال). عندها تحصل على اجابة تامّة كاملة ، وجاهزة للعمل والآن الى سؤالك: انت تعرف ان قوانين المنتدى تسمح بسؤال لكل موضوع ، لهذا السبب يجب عليك فتح موضوع لكل سؤال ، لوسمحت وسأرد على اسئلتك بسرعة ، للعلم فقط ، ويترتب عليك فتح مواضيع لها: هل بالامكان بدل طباعه التقرير ارساله الى ( القسم ) على فيئه تقرير او ايميل ، نعم على شكل مرفق pdf في ايميل مثلا ، بدل طباعه الوصفه ارسالها مباشره للصيدليه للصرف ، نعم ، اذا كانت الصيدلية مربوطة بالبرنامج على الشبكة ، فلا تحتاج لشئ ، فقط يعطي المريض رقمه الى الصيدلية ، وبنموذج خاص للصيدليه ، يمكنه الصرف ، والتأشير على السجل عند الصرف ، بدل طباعه نموذج اشعه ارساله للقسم مع امكانيه عمل فيد باك او حفظ النتيجه بملف المريض ، نعم ، كما قلت ، يمكنه العمل ، والتأشير على السجل بعد العمل ، ولو لاحظت ، فانا عملت لك تبويب Medications و Lab Reports حتى تستطيع ان تتوسع في هذا الطريق: يعني تكون هناك اشارة تنبيه للصيدليه بوجود وصفه للصرف ، المختبر ب وجود عينه ، للاشعه بوجود طلب ، للعياده بوجود مريض نعم يمكن ، وسأشرح طريقتين: 1. مثل ما قلت في الاعلى ، بأن يأتي المريض للصيدلية / المختبر / .. ويعطيهم رقمه ، وبالتالي يفتحون النموذج الخاص بتلك الجهة صيدلية / المختبر / .. ، ويتم العمل ، وهذه هي الطريقة الافضل ، 2. ان يكون نموذج صيدلية / المختبر / .. مفتوحا دائما ، وتعمل به Timer ، بحيث يتم استيراد البيانات عن طريق الامر Requery جعفر

السلام عليكم أخي ياسر العربي شكرا لك وعمل ممتاز أنت بهذه الطريقة (فك حماية الشيت والفيجوال)نتفت ريش الإكسل وكسرت الحماية من الداخل باقي أن تسلخ جلده (إيجاد طريقة لكسر الحماية من الخارج ) ونحن علينا الباقي

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

السلام عليكم حفظك الله أخي التقني على تنبيهك الأخ ابو محمود , أن أحببت استخدم هذا الكود Private Sub Form_BeforeUpdate(Cancel As Integer) Dim m As Integer Dim ctl As Control Dim intnewrec As Integer intnewrec = Me.NewRecord If intnewrec = False Then For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If ctl.OldValue <> ctl.Value Then m = InputBox(ctl.ControlName & " value already changed Enter your password to save ?") If m = 1 Then Cancel = False Else Cancel = True ctl.Undo End If End If End If Next ctl End If End Sub الفكرة تقوم على جعل خاصية قفل الحقول متاحة اي التعديل متاح , حيث يمكنك ادخال سجل جديد بدون اي حرج , لكن عند الذهاب الى سجل سابق و محاولة تعديله , و قبل الخروج من ذلك السجل سيقارن قيم الحقول ففي حال وجد اي تعديل عليها سيرسل رسالة بأن قيمة الحقل الفلاني قد تغيرت , أدخل كلمة السر لحفظ التعديل , و هي هنا " 1 " فاذا أدخل المستخدم واحد سيحفظ التعديل و الا فلا

هي عندي on Change :d و انت الأدري بالنسخة العربية :pp: