ابو جودي

لو تكرمت ممكن مرفق من البرنامج

استاذ رمهان بعد تجربة الكود لاحظت عند ظهور الرسالة الزر ok , cancel كل منهما يفتح النموذج مسج4بوكس - .rar هذا التعديل قمت به حتى يعمل كل زر بعد ظهور الرسله وظيفته انتظر رد حضرتك هل انا طبقت كلام حضرتك صح واللا انا طبقت غلط مسج5بوكس.rar

شهادة اعتز بها من علمى القدير واستاذى الجليل واخى الحبيب جزاكم الله خيرا وبخصوص الكود If MsgBox(" لديك " & DCount("*", "الاقامات", "[تاريخ نهاية الاقامة]-date()<=31") & " قاربت على الانتهاء ", vbOKCancel) = vbOK Then DoCmd.OpenForm "التحقق من الاقامات", acFormDS مشتاق لتجربته فدائما وابدا يشغلنى بلهفة مشتاق تطبيق ما تتفضل به من لمسات ساحرة وخلابه فمنتديات اوفيسنا هى مدينة للعلم وحضرتك باب من ابوابها ولك مدرسة خاصة اسال الله العلى العظيم ان يبارك لك فى علمك وعملك ويرزقكم الجنة انت ومن تحب

حضرتك يا استاذ معاك كمبوبوكس بتاع الاسم شوفه اتعمل ازاى واعمل زيه للجلوس علشان تقدر تعمل ده بعد كده لو عاوز وانا برضو عملت لحضرتك بحث عن طريق رقم الجلوس بس عن طريق مربع نص تيكست بوكس علشان يبقى معاك طربقتين test_2_2.rar

دائما وابدا هناك لمسة رمهانية

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

اتفضل يا استاذ "zamzam_mah " test_2.rar

بعد اذن استاذى الحبيب " عبدالرحمن هاشم " اتفضل جرب التعديل ده كده يا استاذ "حسن سعيد " مسج 3بوكس.rar

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

جرب ورد عليه وقول لى الاخبار ايه

طيب ممكن حضرتك تتكرم وترفق مثال يبقى جزاك الله خير

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

اخى الحبيب تسلم جزاكم الله خيرا

ان شاء الله فى حل اتفضل swatch_up__date.rar

اخى الكريم لو تكرمت مراجعة المرفق لانه يعطى خطأ عند الفتح برجاء انشاء قاعدة بيانات جديدة خالية واستيراد محتويات القاعدة القديمة والتاكد من انها تعمل بشكل طبيعى واعادة ارفاقها مرة اخرى لو تكرمت الخطأ هو Unrecognized database format

هذه ازمة كبيرة توقف بعد الاجراءات بسبب اختلاف اللغة هذا الموضوع متعب جدا جدا جدا جدا

يا استاذى الجليل ومعلمى القدير انا اسف جدا على الاثقال على حضرتك لكن المشكلة التى واجهتها هى كالاتى عند وضع هذا التعبير الذى تفضلتم به فى الاستعلام بالفصلة المنقوطه ظهرت لى رسالة خطأ أنا استخدم اوفيس باللغة الانجليزية عندما قمت بتطبيق ما تفضل به الاستاذ وائل وهو تغير ص الى AM تغير الفاصلة المنفوطة ; الى الفاصلة العادية , فتحول التعبير الى التاخير: Format(TimeValue("08:00 am")-TimeValue([hodoor]),'Short Time') & IIf([hodoor]<=#08:00:00#,"+","-") بدلا من التاخير: Format(TimeValue("08:00 am")-TimeValue([hodoor]);'Short Time') & IIf([hodoor]<=#08:00:00 ص#;"+";"-") لاحظ الفرق بين التعبير الاول وهو الذى يعمل معى بنجاح على الاوفيس الانجليزى والتعبير الثانى الذى لم يقبل واظهر رسالة الخطأ اعتذر للاطالة والاثقال عليكم ولكن انتم اهل كرم وجود وحلم جزاكم الله عنا كل الخير

ممتااااااااز

طيب ممكن المرفق لو تكرمت

اوفيس 2007 انجلش وهذا هو التعبير الذى استخدمته فى المرفق ويعمل بكفائة ولكن انا الان فى العمل عندما اعود الى بيتى اقوم بالتجربة على الاكسس 2010 واوافيكم بالنتيجة ان شاء الله التاخير: Format(TimeValue("08:00 am")-TimeValue([hodoor]),'Short Time') & IIf([hodoor]<=#08:00:00#,"+","-") بالفاصلة العادية " , " وليس المنقوطة

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

وانا حاولت افهم مش قادر بصراحة

تماااااااااااااااااااااااااااااااااااااااااااااااااااااااااااام ايون كده الله يفتح عليك يا استاذ وائل جزاكم الله خيرا استاذى الجليل ومعلمى القدير كل الشكر والتقدير لاهتمامكم ومتابعتكم الكريمة جزاكم الله عنا كل الخير والله انا كنت محرج جدا انى اطلب من حضرتك المثال وبالاخص بعد ما الاستاذ " المعتزبالله" رد بدون ابداء اى تعليق وكل ملاحظاتك القيمة اخذتها بعين الاعبار اثناء تجربتى الا ما تطرق اليه الاستاذ " وائل " جزاكم الله عنا كل الخير وهذا المرفق لمن اراد وهذا التعبير الخاص باللغة الانجليزية كما تفضل به الاستاذ وائل التاخير: Format(TimeValue("08:00 am")-TimeValue([hodoor]),'Short Time') & IIf([hodoor]<=#08:00:00#,"+","-") ولكن لى سؤال للاستاذ الفاضل والمعلم الجليل "رمهان" هل هذا التعبير لو وضع فى استعلام قاعدة بيانات تم انشائها على اوفيس باللغة الانجليزية ولو اردنا فتح هذه القاعدة على اوفيس باللغة العربية لن يعمل ؟ التاخير بالسالب.rar

ايون كده هو كده السحر بدأ يظهر كل الشكر والتقدير استاذ عبد الله شكرا جدا على المثال الرائع الذى تقدمتم به وللعلم حتى اوفيكم قدركم حاولت تطبيق هذا الكود الساحر DoCmd.ShowToolbar "ribbon", acToolbarNo ولكن كما اوضحت لكم يوجد الكثير هنا ما هم دون المستوى المتقدم فى فهم الكود والية العمل وانا على رأسهم فمنكم نتعلم وننهل من بحور علومكم بارك الله فيكم ولكن كما تفضلتم واوضحتكم نموذج افتتاحى يحتوى على الكود ونموذج بخيار منبثق = لا ليفتح مع البرنامج هو ثمرة هذا الكود وهذا ماغفلت عنه فلم احس بطعم الكود والان احسست بسحر الكود جزاكم الله خيرا استاذ عبد الله استاذنا الحبيب أبو عبد الله الحلوانى اهلا وسهلا وحضرتك انسان جميل فعلا ولك زوق راق ويدل على رفيع اخلاقك ردودك الطيبة لك كل الشكر والتقدير لما تقدمه من يد العون لطلبة العلم بوجه عام فى هذا الصرح الشامخ وبوجه خاص انا على راس طلبة العلم فوالله لن انسى مساعدتك لى فى حل احد المشكلات العويصة التى كانت تنغص على حياتى ذات يوم لله الحمد اولا ثم لكم جميعا دون ذكر احد من اساتذتى الكرام حتى لا ينسينى الشيطان ذكر احد الاساتذة فأخطئ فى حقه بالاصالة عن نفسى وبالنيابة عن كل طلبة العلم فى هذا الصرح الشامخ الكريم لكم من كل الشكر والتقدير وجزاكم الله خيرا

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