خالد للعلم

السادة رواد المنتدي تحية طيبة ، برجاء المساعدة في الجدول المرفق لكم حيث أنه موضوع علي غاية من الأهمية الملف يحتوي علي شيت ورادي علي مدار السنة وإسمه ورادي 2019 ، وشيت آخر يحسب الإضافي وقد نجحت بالفعل في عمله وحسابه وإسمه فىed ولكن المشكلة تتلخص أنه عندما أقوم بتبديل المشرفين واحد مكان الآخر ... يتأثر الشيت الأخير بآخر تعديل وأنا أريد أن يلتزم بالتعديل الأخير من ساعة تاريخه فقط ولا تتأثر الخلايا السابقة له علي إختلاف تواريخها بتعديلي أو تبديلي مشرف مكان مشرف آخر . هذه هي المشكلة ولم أجد لها حل آملآ أن تجدوا لها الحل المناسب وتفضلوا سيادتكم بقبول وافر الإحترام ، مرفق لكم الملف محل الدراسةShifts.rarShifts.rar Supervisor-Shift.rar

بكل إمتنان لك يا أخى / rudwan سيتم تدارك ذلك لآحقآ تمنياتى لكم جميعآبالتوفيق ,

الأساتذة والأخوة الأفاضل والأعزاء / rudwan _ و أسير الشروق _ و عبد الرحمن هاشم أولآ : إعتذارى الشديد لكم جميعآ على تكرار الموضوع - حيث أن ما حدث كما شرحت لكم سلفآ ليس لي فيه أى إرادة . ثانيآ : أشكر لكم جميعآ إهتمامكم بموضوعى والرد بأفكار هى محل دراسة وبحث شديدين , لأنهالموضوع قد يبدو بسيط بالنسبة لمستواكم المبدع ! ولكنني أرى أنه غير بسيط بالمرة كما أننى أحاول مع نفسى كثيرآ للوصول لمستوى إبداع أراه فى مؤسسات وبنوك أمامى أحاول ان أحاكيه على الآكسيس . وأخيرآ: لآ يسعنى إلآ أن أشكركم جميعآ على إستجابتكم لى فى إمدادى بأفكار قيمة ولها وزنها وتقديرها . لكم جميعآ كل التقدير والإعزاز ,

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

الأخ الكريم / عبد الرحمن هاشم أشكر لك إهتمامك بموضوعى وردك علي ولكن كنت أطمع فى أن يتسع صدرك لما أقصده _ وهو تكست بوكس Text1 من غير ما نعمل زر أمر _ كما أنني لا أريد تنفيذه على كومبو بوكس كما أنني أريد_ بمجرد كتابة أى ID فى Text1 من التيبل أو حتى الكويري يظهر مردوده فى Text3(إسم العميل ) و كذلك يظهر مردوده فى Text5( رقم التليفون )_ أي بإختصار محاكاه لل MAINFRAME الشاشة السوداء والفونت الأخضرالفوسفورى _ فهذه الأنواع من الفورم فى منتهى الإحترافية والذكاء ولآ يوجد زر واحد فى الفورم- ولو صادف أن هذا الفورم هو فورم إدخال فب Enter واحدة من الكيبورد تظهر فى الشاشه السوداء مربع مظلل باللون الأخضر الفوسفورى يحوى رسالة بنفس اللون الفوسفوري مفادها " لتسجيل البيانات إضغط ENTER " وبالفعل عندماندوس الEnter الثانية تختفىالبيانات وتظهر الصفحة الأصلية للإدخال خالية على إستعداد لإدخال آخر **أرجو معذرتى للإطالة ولكن كنت عايز أدخلك معى فى هذه الحالة الرائعة من الإحتراف فى التنفيذ وأخيرآ أشكر لك إهتمامك بالموضوع

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

تهانينا القلبية للأخ العزبز والكريم / عبد الرحمن هاشم

جزاك الله خيرا أخى الفاضل هل هذا اللينك يشتمل على ال13 حلقة المضافة ؟ يا جماعة الخير فية باسوورد فك الضغط __ ما هو ؟ أما عن بداخل كل فولدر ستجد ملف اسمه index.html عند فتحه يوجد مربع حوار يطلب مني الباسوورد نرجو كتابة الباسوورد ضرورى ولكم كل التحية والتقدير

آسف أخى عبد الرحمن وتم رفع المرفق TextBox_.rar

الأساتذة والأخوة الزملاء تحية لكم جميعآ من القلب , أرجو منكم مساعدتى فى تكست بوكس وليس كمبو بوكس _ بمجرد كتابة أى ID فى Text1 من التيبل يظهر مردوده فى Text3 (إسم العميل ) و كذلك يظهر مردوده فى Text5 ( رفم التليفون ) _ كما لآ تنسوا أن طلبى هو تكست بوكس Text1 من غير مانعمل زر أمر من فضلكم ولا أريد تنفيذه على كومبو بوكس ولكم كل التقدير والحب ,

الأستاذ والمعلم الفاضل / محمد صالح دائمآ وأبدآ إبداعاتك نتعلم منها جميعآ _ أزادك الله من علمه أخوك خالد للعلم

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

الأخ الكريم الفاضل / الأستاذ - طارق محمود تحية لشخصكم العزيز إلى قلبى كما أشكر لك فكرتك القيمة وإهتمامك بالرد علي وأخيرآ لك كل الحب والإعزاز لشخصك الكريم ,

الأساتذة الأفاضل مش عارف أفتح الملفين أبدآ _ يا ريت يتبرع احد وينفذه على تنسيق 2003 من فضلكم جمبعآ كى تعم الفائدة علينا جمبعآ ولكم وافر تحباتى ,

الأساتذة الأفاضل عندى ثلاث جداول تحت بعضهم البعض أريد أن أتعلم كيف أعمل فلتر موحد للثلاثة جداول مع بعضهم وأصفيهم على المبالغ فقط والإجمالى لكل منهم بحيث يظهروا مع بعضهم ولا تتداخل المعلومات مع يعضها ولكم منى جزيل الشكر New Microsoft Excel Worksheet (2).rar

الأساتذة الكرام هل يمكن رفع نفس المثال ولكن بعملة الجنية المصرى . ولكم منى وافر الإحترام ,

الأساتذة / الأفاضل لو أمكن مرفق لهذة الفكرة ويا ريت 2003 وشكرآ جريلآ

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

الأخ والأستاذ الفاضل / ramhan فإليك كل التقدير والحب على إهتمامك بسؤالى . أولآ : أعتذر بشدة عن تأخرى فى الرد على حضرنك للشكر والإمتنان الشديد لشرحك المبسط وذلك لإنقطاع النت عندى . ثانيآ : أسجل لك إعجابى الشديد لشرحك بالأخص كلمة Msys فهى إضافة جديدة لى لفهم أعمق من ذى قبل لجداول النظام . وأخيرآ أستحلفك بالله ألا تؤاخذنى فى تأخرى عن الرد على حضرتك ، كل الشكر وفائق تقديرى لشخصك .

الأساتذة الأفاضل بعد التحية ، أرجو منكم توضيح وشرح معنى الأرقام الذى بتحتها سطر بداخل هذين الكودين : ـ * الأول Private Sub RR_Click() Dim DB As Database Dim obj As AccessObject, dbs As Object Dim TDF As TableDef Set dbs = Application.CurrentData Set DB = CurrentDb For Each obj In dbs.AllTables Set TDF = DB.TableDefs(obj.Name) If Left(TDF.Name, 4) <> "msys" And TDF.Attributes <> 1073741824 Then TDF.Attributes = TDF.Attributes + dbHiddenObject End If Next DB.Close Set DB = Nothing End Sub ============================================================================== * الثانى Private Sub WW_Click() Dim dbs As Database, TDF As TableDef Set dbs = CurrentDb For Each TDF In dbs.TableDefs If Left(TDF.Name, 4) <> "msys" And TDF.Attributes <> 1073741824 _ And TDF.Attributes = 1 Then TDF.Attributes = TDF.Attributes - dbHiddenObject End If Next TDF Set dbs = Nothing End Sub ============================================================================== وهل هذة الأرقام ثايتة أم متغيرة وإلى ما تشيير الضبط ؟؟ وإن تغيرت فلماذا ؟ وفى أى الحالات ؟؟ ولكم فائق التقدير والإحترام ،

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

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

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

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

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