عمر ضاحى

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

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

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

هذا ما يظهر لى وهذا التاريخ الذى ادخلته

^_^ ما هي دي المشكله لو ادخلت تاريخ ميلادي مش مشكله لكن المشكله تحدث عند ادخال التاريخ الهجري والاصل فى الشغل هنا التاريخ الهجري والاصل من وجود هذه الداله معي ان اعرف التاريخ الميلادي بدل ما بادخل على موقع واحول التاريخ من هجري الى ميلادي او العكس

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

@jjafferr @ابوخليل استاذي ومعلمي جعفر هل لديك اى فكره عن سبب عمل الداله معي هنا

اكيد هيكون شغال معاك تمام لان عرفت المشكله الاكيد فين وهو فى مسمي التاريخ مره يظهر لى عربي ومره انجليزي وشويه وهيظهر هندي هههههههههههههههههههههه حيرني مكنش امامي غير انى استعين بجدول استاذي جعفر @jjafferr والحمد لله حليت المشكله المشاكل كانت هي : 1- التقويم (^_^) عندي تقريبا شارب حاجه 2- ترتيب الشروط انا كنت بادئ بالشرط الاول وهو اذا كان كذا لا يساوي كذا او لا يساوي كذا ولما جعلتها اخر حاجه اتحلت المشاكل وطبعا استخدمت طريقتك يا هندسه فى اخر ملف حضرتك بعته لى (انى اجعل كل العمليات الحسابيه داخل الاستعلام وبكده مش هحتاج اى معلمات فى النموذج(اقصد بها الثوابت لعمليات الحساب) OverTime:IIf([ThisDay]="Friday";DateDiff("n";[Dwam_Start];[Dwam_End])\60 & ":" & DateDiff("n";[Dwam_Start];[Dwam_End]) Mod 60;IIf([ThisDay]="Thursday";DateDiff("n";[txtStanderTimeOut2];[Dwam_End])\60 & ":" & DateDiff("n";[txtStanderTimeOut2];[Dwam_End]) Mod 60;IIf([ThisDay]<>"Friday" Or [ThisDay]<>"Thursday";DateDiff("n";[txtStanderTimeOut1];[Dwam_End])\60 & ":" & DateDiff("n";[txtStanderTimeOut1];[Dwam_End]) Mod 60))) هو اشتغل دلوقتي تمام لما غيرت اليوم فى الجدول ( Auto_Date ) معرفش ايه العلاقه او ازاي ام ممكن يكون من خطأ اخر عندي لكنها اتحلت (والاخيره اظنها الصواب) فلكم منى جزيل الشكروالعرفان اساتذتى ومعلمي @Eng.Qassim @jjafferr

عرفت كيف ممكن استفاد من الجدول لكن الداله بتدين يوم خطأ يعنى يوم 1-1-2020 هو يوم سبت الداله بتدهومي يوم جمعه

اولا احب اقول لك حمد لله على السلامه ثانيا نحن سعداء جدا بان نراك حاضر بيننا 😍 ثالثا حمد لله على السلام ----- للاسف انا ظهرت لى المشكله حتى انى فكرت ان اقسم المعادلة واجعل كل شرط لوحده حتى ارى النتيجه وكانت النتيجه للشرطين يوم الخميس والجمعه هى 0 وحتى فى النموذج ال حضرتك عدلته وفهمت تعديل حضرتك لكن هي هي لم تفرق في شئ نفس النتائج السلبيه التى وصلت لها لدرجة ان راسي طارت منى ولا قادر افكر فى حل ليها عمال اقلب فيها يمين و شمال ما وصلت لشي حتى رأيت ردك هنا ودب النشاط فى من جديد فلا تغيب كثيرا عنا الله يراضيك وهذه صورة من النتيجه ( من الملف الذي ارسلته لى استاذي المهندس قاسم @Eng.Qassim هناك موضوع لاستاذى الجليل @jjafferr اظن ان هذا الموضوع قد يكون فيه مفتاح حل مشكلتى من الاساس وكل المشاكل التى تعتمد على المسميات الايام والشهور لكن مش عارف كيف ممكن استفاد من هذا الموضوع واحل بيه مشكلتى

مبدئيا كده عرفت احل مشكلة الخطأ وكان فى وجود الزائده .[Text] لكن عمل الداله ثابت على عملية حسابيه واحدع والمفترض ان الداله تتغير حسابها حسب الشرط الموضوع له هذه الداله بعد الاصلاح =IIf([day1]="Thursday";(DateDiff("n";[txtStanderTimeOut2];[txtTimeOut])\60 & ":" & DateDiff("n";[txtStanderTimeOut2];[txtTimeOut]) Mod 60);IIf([day1]="Friday";(DateDiff("n";[txtTimeIn];[txtTimeOut])\60 & ":" & DateDiff("n";[txtTimeIn];[txtTimeOut]) Mod 60);(DateDiff("n";[txtStanderTimeOut1];[txtTimeOut])\60 & ":" & DateDiff("n";[txtStanderTimeOut1];[txtTimeOut]) Mod 60))) هل ممكن احد ينظر لها نظرة تمعن ويجد لى الخطأ !

مرفق ملف لمن اراد البحث معي على حل مشكلة التاريخ.rar

للرفع رفع الله قدركم

للرفع رفع الله قدركم

للرفع

للرفع

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

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

تفضل اخي الكريم S7.rar

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

اعمل جدول جديد لانواع الاشلحه واجعل نوع السلاح غير قابل للتكرار ومن ثم قم بعمل علاقه بينهم

للرفع رفع الله قدركم

هذا امرها سهل كل ما عليك اضافة هذه الكود قبل كود الاستيراد On Error Resume Next DoCmd.SetWarnings False DoCmd.RunSQL ("delete * from NameOfTable") DoCmd.SetWarnings True وان شاء الله تتحل المشكله التكرار حيث ان وظيفة الكود هو تنظيف الجدول قبل عملية الاستيراد حتى لا يحدث تكرار

انا جربت اعملها بهذه الصورة =IIf([day1].[Text]="Thursday";(DateDiff("n";[txtStanderTimeOut2];[txtTimeOut])\60 & ":" & DateDiff("n";[txtStanderTimeOut2];[txtTimeOut]) Mod 60);IIf([day1].[Text]="Friday";(DateDiff("n";[txtTimeIn];[txtTimeOut])\60 & ":" & DateDiff("n";[txtTimeIn];[txtTimeOut]) Mod 60);(DateDiff("n";[txtStanderTimeOut1];[txtTimeOut])\60 & ":" & DateDiff("n";[txtStanderTimeOut1];[txtTimeOut]) Mod 60))) لكنها اعطتني خطأ #نوع! حد يعرف السبب ؟

استاذى الفاضل @abouelhassan اولا تقبل منى هذه المداخله ثانيا مرفق الى حضرتك ملف يحتوي على نظام الصلاحيات كامل ما عليك غير انك تعدل اسماء الفورم فى الجدول وتوزع هذا الكود على جميع الفورم عندك فى حدث عند فى الحالي Me.Form.AllowAdditions = Forms!Home!AllowAdd.Value Me.Form.AllowDeletions = Forms!Home!AllowDelete.Value Me.Form.AllowEdits = Forms!Home!AllowEdit.Value صلاحية المستخدمين.accdb