فهد الدوسري

لا شكر على واجب والحمد لله أن التعديل قد نال استحسانك . ويشرفني المشاركة في منتديات أوفيسنا . تحياتي ..

أخي : أحمد العيسى وعليكم السلام . ضع زر أمر في الفورم وضع في حدث عند النقر لهذا الزر الكود التالي .. DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE tbl_Tel SET tbl_Tel.OnlyYou = Yes;") Me.Refresh DoCmd.SetWarnings True ولو أردت إزالة التحديد دفعة واحدة .. ضع الكود التالي .. DoCmd.SetWarnings False DoCmd.RunSQL ("UPDATE tbl_Tel SET tbl_Tel.OnlyYou = No;") Me.Refresh DoCmd.SetWarnings True أنظر البرنامج بعد التعديل . تحياتي .. db1.rar

ارسل رسالة شكر الى خادم الحرمين الشريفين حفظه الله عبر هذا الموقع .. http://www.shokran.cc/sign/ وذلك تفاعلا مع سلسلة القرارات التي أصدرها خادم الحرمين الشريفين الملك عبد الله بن عبد العزيز والحكومة مؤخرا، والتي انعكست إيجابا على حياة المواطن والمقيم، أطلقت مجموعه أديم العالمية، حملة . " شكرا .. أبا متعب" بهدف جمع مليون رسالة شكر موجه إلى خادم الحرمين الشريفين(حفظة الله) وحكومتة الرشيدة. وهذه أسماء المنتديات والمواقع التي شاركت في الحملة http://www.shokran.cc/banners.html تحياتي ..

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

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

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

ضع هذا الأمر في حدث ( عند النقر ) للزر .. a = [a] & vbCr & [b] تحياتي ..

عن طريق الكود التالي .. a1 = Mid([num1], 1, 1) a2 = Mid([num1], 2, 1) a3 = Mid([num1], 3, 1) a4 = Mid([num1], 4, 1) a5 = Mid([num1], 5, 1) a6 = Mid([num1], 6, 1) a7 = Mid([num1], 7, 1) a8 = Mid([num1], 8, 1) num1 يمثل حقل الرقم a1 يمثل الحقل الأول الذي سنضع فيه الرقم الأول من الأرقام الموجودة في حقل ا لرقم وهكذا بقية الحقول الأخرى إلى حقل ثمانيه . أنظر المثال بعد التعديل . تحياتي .. ______________________.rar

الله لا يحرمك الأجر والمثوبة أنت والاستاذ أبو هاجر . ( والله وحشنا أبو هاجر ) .

يعطيك العافية يا مبدع

فعلا كما قال أخي : حسن محمد تحياتي ..

بارك الله فيك .. عمل رائع وجميل . تحياتي ..

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

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

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

أخوي أبو باسل أرجو التوضيح .. هل تريد أن تدخل أنت التاريخ كاملاً وتريد تجزئته بالكود إلى ثلاثة حقول ؟ أم تريد أن تتدخل أنت التاريخ مجزء إلى ثلاثة أجزاء أو خانات ؟ تحياتي ..

حوار 14 = محمد : هناك مجموعة من دوال الأكسس لها فائدة كبيرة واستخدام متكرر ومنها على سبيل المثال الدالة DLookup ولكني للأسف لا أعرف طريقة استخدامها فهل لك أن تفيدني في ذلك وكيف استخدمها بدون شرط وبشرط وبشرطين ؟ = فهد الدوسري : هذه الدالة هي أحد دوال ( تجميع المجال ) وهي مجموعة دوال ومن هذه الدوال الدالة DLookup ولها عدة استخدامات سوف أذكر لك ما أعرفه عنها بحسب خبرتي وربما لها أكثر من مجال أو طريقة أرجو أن يفيدنا عنها من يعرفها لنستفيد جميعاً . هذه الدالة يجب أن يتوفر فيها عدة عوامل لكي تعمل معنا وكذلك يجب أن نعرف نوع الحقل الذي نريده في الشروط فيختلف بنائها إذا كان الحقل رقمي أو نصي وسوف أورد لك جميع ما سألت عنه إن شاء الله عبر مثال نقوم بتطبيقه معاً .. لنفرض أن لديك جدول باسم A1 وهذا الجدول يحتوي على الحقول التالية :- حقل B1 نوعه رقم يسجل فيه رقم الموظفين . ( 1 و 2 و 3 و 4 و 5 إلخ..) . حقل B2 نوعه نص يسجل فيه أسماء الموظفين . ( فارس و مراد و حمد إلخ..). حقل B3 نوعه نص يسجل فيه مراتب الموظفين . ( الأولى و الثانية و الثالثة إلخ..). حقل B4 نوعه رقم يسجل فيه أرقام وظائفهم . ( 1480 و 145 و 851 إلخ..). سوف نطبق استخدامات الدالة DLookup على هذا الجدول بهذه الحقول ويمكنك بعد ذك تطبيقها على أي جدول وأي حقل مهما كان بعد تغيير مسمى الجدول ومسمى الحقول فقط . أولاً : - ننشأ نموذج جديد ونسميه مثلا FA1 ونترك مصدر السجل للنموذج فارغا ونضع فيه الحقول التالية طبعاً تكون عبارة عن مربع نص غير منظم وذلك لأن النموذج نفسه ليس له مصدر والحقول كما يلي : - M1 ويمثل (رقم الموظف) . طبعاً تسمية M1 أو غيره من الأسماء المقترحة مني أو منك تكون عن طريق عرض النموذج أو التقرير في وضع التصميم ومن ثم خصائص الحقل المطلوب تسميته ثم تبويب (غير ذلك) ثم (الاسم) وتضع الاسم الذي تريده حتى يتم التعامل معه من خلال الأكواد وهذه الطريقة يجب عليك معرفتها لأنها سوف تستمر معك طالما أنك تستخدم الأكواد فتذكرها جيداً . M2 ويمثل (اسم الموظف) . M3 ويمثل ( مرتبة الموظف) . M4 ويمثل ( رقم وظيفة الموظف ) . ثانياً : - أدرج أربعة أزرار أوامر لنستخدم كل زر لتنفيذ حاله معينه للدالة بهذه الطريقة .. الزر الأول يكون عنوانه (1 بدون شرط). الزر الثاني يكون عنوانه ( 2 مع الشرط الرقمي). الزر الثالث يكون عنوانه ( 3 مع الشرط النصي) . الزر الرابع يكون عنوانه ( 4 مع الشرطين ) . ثالثاً : - نأتي الآن لبناء استخدامات الدالة في حدث عند النقر لكل زر من الأزرار الأربعة طبعاً بعد توفر شروط الدالة والتي سوف أخبرك عنها فيما يلي :- الزر الأول :- ( يخبرنا عن اسم الموظف الأول في جدول A1 بدون شرط أي أنك إذا ضغطت على الزر سوف يخرج لك الاسم الأول في الجدول ولا تستطيع إخراج أي موظف آخر غيره ) ويتم ذلك عن طريق الكود التالي في حدث عند النقر للزر وهذا الكود هو ( بدون شرط ) .. نريد خروج اسم الموظف في حقل m2 والذي يمثل أسماء الموظفين كما أسلفنا . m2 = DLookup("[B2]", "A1") الزر الثاني:- ( يخبرنا عن اسم الموظف في جدول A1 بناءاً على الرقم الذي ندخله في حقل رقم الموظف .. إذن يجب إدخال رقم الموظف في حقل رقم الموظف ثم الضغط على الزر لنعرف اسم الموظف الذي يحمل هذا الرقم فهذا شرط من شروط عمل الدالة أي أنك لو ضغطت على الزر دون كتابة الرقم فلن يخرج لك شيء كما فعلنا مع الزر الأول ولو أدخلت اسم الموظف لتعرف رقمه فلن تعمل الدالة لأننا الآن نعمل مع الشرط الرقمي أي رقم الموظف فقط ) ويتم ذلك عن طريق الكود التالي في حدث عند النقر للزر وهذا الكود هو ( الشرط الرقمي ) .. m2 = DLookup("[B2]", "A1", "[B1]= [m1]") الزر الثالث:- ( يخبرنا عن رقم الموظف في جدول A1 بناءاً على الاسم الذي ندخله في حقل اسم الموظف .. إذن يجب إدخال الاسم في حقل اسم الموظف ثم الضغط على الزر لنعرف رقم الموظف الذي يحمله هذا الاسم فهذا شرط من شروط عمل الدالة أي أنك لو ضغطت على الزر دون كتابة الاسم فلن يخرج لك شيء كما فعلنا مع الزر الأول ولو أدخلت رقم الموظف لتعرف اسمه فلن تعمل الدالة لأننا الآن نعمل مع الشرط النصي أي اسم الموظف فقط ) ويتم ذلك عن طريق الكود التالي في حدث عند النقر للزر وهذا الكود هو (الشرط النصي ) .. لاحظ اختلاف بناء الكود والفرق بين الرقمي والنصي في الكود التالي .. نريد خروج رقم الموظف في حقل m1 والذي يمثل أرقام الموظفين كما أسلفنا . m1 = DLookup("[B1]", "A1", "[B2]='" & [m2] & "'") الزر الرابع:- ( يخبرنا عن اسم الموظف في جدول A1 بناءاً على مرتبته الذي ندخلها في حقل المرتبة وبناءاً على رقم وظيفته الذي ندخله في حقل رقم الوظيفة .. إذن يجب إدخال مرتبة الموظف في حقل المرتبة وكذلك ندخل رقم الوظيفة في حقل رقم الوظيفة ثم الضغط على الزر لنعرف اسم الموظف الذي يحمل هذه المرتبة بهذا الرقم فهذا شرطين يجب توفرهما لتعمل الدالة أي أنك لو أدخلت المرتبة فقط وضغطت على الزر دون كتابة رقم الوظيفة فلن يخرج لك شيء أو أدخلت رقم الوظيفة فقط دون كتابة المرتبة فلن يخرج لك شيء أيضاً لأننا نعمل مع الشرطين أي المرتبة ورقم الوظيفة معاً ) ويتم ذلك عن طريق الكود التالي في حدث عند النقر للزر وهذا الكود هو (الشرطين ) .. نريد خروج اسم الموظف في حقل m2 والذي يمثل أسماء الموظفين كما أسلفنا . m2 = DLookup("[B2]", "A1", "[B3]=[m3] and [B4] =[m4]") طبعاً ربما يكون الشرح مطول ولكني قصدت منه التوضيح أكثر وأكثر وذلك لكي ترسخ المعلومة في ذهنك وقمت بإرفاق مثال يوضح كل ما ذكر لكي تعرف كيف يكون التطبيق. DLookUp تطبيق.rar

تفضل هذا مثال للاستاذ أبو حمود - الله يذكره بالخير - طبق ما فيه على برنامجك . تحياتي .. جعل الحروف في رسالة InputBox تظهر كنجوم.zip

زادك الله من العلم النافع

حوار 13 = محمد : كيف أستطيع أن أجعل النموذج يملئ كامل الشاشة ؟ = فهد الدوسري : بعد عمل النموذج الذي تريد ومن خصائص هذا النموذج قم بتعديل الخصائص التالية : 1 - خاصية محددات السجلات ( لا ) . 2 - خاصية أزرار التنقل ( لا ) . 3 - خاصية منبثق ( نعم ) . 4 - خاصية نمط الحدود ( بلا ) . ثم ضع هذا الكود (عند التحميل) للنموذج : DoCmd.Maximize وبهذه الطريقة سوف يكون النموذج على كامل الشاشة .

مثال على أستعمال التاريخ الهجري والميلادي في نفس الوقت في برنامج واحد والذي تم طرحه في حوار 11 لمن لا يعرف كيفية تطبيقه . التاريخ الميلادي والهجري معاً.rar

حوار 12 = محمد : هناك أوامر للتراجع عن فعل شيء أو كتابة كلمة وهناك أوامر للإلغاء هل لك أن تذكر لي هذه الأوامر أو بعضها ؟. = فهد الدوسري : سوف أذكر لك جميع الأوامر التي أعرفها أنا شخصياً وربما هناك غيرها تخفى علي وبإمكانك تجربتها كل واحد على حده لمعرفة ما يناسبك وهي كالتالي :- DoCmd.CancelEvent Cancel = -1 SendKeys "{ESC}" SendKeys "{ESC}{ESC}" SendKeys "{BS}" Me.Undo

ماذا تقصد بغير موجود ؟؟ أرجو التوضيح

أخي مصلح قرأت لك هذه الملومة حول الدالة Rnd أرجو أن تفيدك . وتستخدم هذا الدالة في توليد أرقام عشوائية تقع ما بين الصفر و واحد بحد أقصي 15 رقما عشريا انظر المثال 1 ------------------------------------- التصريح Randomize : يعمل هذا التصريح مع الدالة Rnd ونستفيد منه عدم التكرارية و الحصول علي عشوائية افضل وذلك لأنه يعتمد علي ساعة النظام لديك .انظر المثال 2 في المثال 2 نعمل علي توليد أرقام عشوائية من واحد إلى عشرة . أما إذا أردت أن تجعل هذه العشوائية نصوص وليس أرقاما فلك طريقتين لتحايل علي هذا أما أن تضع النصوص في قاعدة بيانات وفي شكل سجلات وتعطي لكل سجل رقم أو تضعه في مصفوفة وتعطي لكل نص رقم أيضا وأنا افضل الطريقة الأولى لسرعتها .. إنتهى كلامه . المثال 1 myNumber = Rnd(عدد) 'فمثلا الدالة Rnd(10) قد تعطي رقما مثل 0.7055475 وعند تشغيل الدالة مرة أخري ينتج رقما آخر مثل 0.533424 وهكذا . المثال 2 Randomize MsgBox Int((10 * Rnd) + 1) المثال 3 'مثال لتوليد الالون بطريقة عشوائية Randomize Label1.BackColor = QBColor(Int((16 * Rnd) + 0)) المثال 4 For i = 1 To 4 Print Rnd() Next i تحياتي ..

حوار 11 = محمد : كيف أستعمل التاريخ الهجري والميلادي في نفس الوقت في برنامج واحد ؟ = فهد الدوسري : للتاريخ الهجري استعمل الكود التالي :- Calendar = vbCalHijri TxtTDateHijri = Date TxtTDateHijri = Format(TxtTDateHijri, "yyyy/mm/dd") & " هـ" أما للتاريخ الميلاد استعمل الكود التالي :- Calendar = vbCalGreg TxtTDateGreg = Date TxtTDateGreg = Format(TxtTDateGreg, "yyyy/mm/dd") & " م "-