عمر ضاحى

مرفق ملف لمن اراد البحث معي على حل مشكلة التاريخ.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

هذا الكود حصلته من الاخوة واساتذتي هنا وهو يعمل جيدا Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String Dim strPassword As String ' Establish an EXCEL application object On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Change this next line to True if the first row in EXCEL worksheet ' has field names blnHasFieldNames = False ' Replace C:\Filename.xls with the actual path and filename strPathFile = Me.txtPath ' "C:\Filename.xls" ' Replace tablename with the real name of the table into which ' the data are to be imported strTable = "CodeGenerator" '"tablename" ' Replace passwordtext with the real password; ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) strPassword = vbNullString '"passwordtext" blnReadOnly = True ' open EXCEL file in read-only mode ' Open the EXCEL file and read the worksheet names into a collection Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , _ strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount ' Close the EXCEL file without saving the file, and clean up the EXCEL objects objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount ' Delete the collection Set colWorksheets = Nothing '--------------------------------- ' importing is finished

مرفق البرنامج كامل حضور وانصراف موظفين_TestV31.rar

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

انا جربت انى اضيف متغير علشان يعمل العمليه الحسابيه على كل سجل لحاله بهذه الطريقه On Error GoTo Errw Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount Me.day1.SetFocus If (Me.day1.Text) = "Thursday" Or (Me.day1.Text) = "الخميس" Then Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtTimeOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtTimeOut]) Mod 60 ElseIf (Me.day1.Text) = "Friday" Or (Me.day1.Text) = "الجمعة" Then Me.txtOT = DateDiff("n", [txtTimeIn], [txtTimeOut]) \ 60 & ":" & DateDiff("n", [txtTimeIn], [txtTimeOut]) Mod 60 Else Me.txtOT = DateDiff("n", [txtStanderTimeOut1], [txtTimeOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut1], [txtTimeOut]) Mod 60 End If DoCmd.GoToRecord , , acNext GoTo nxfor nxfor: Next i Exit Sub Errw: لكني لم اوفق فى هذا ف انا شايف ان لو قدرنا نحول الكود من VBA الى دالة حسابيه اعتقد ممكن يشتغل دون مشاكل

هناك مشكلة اخرى ايضا لما حبيت انقل الكود للبرنامج الرئيسي ظهرلى ده تمام انا باشيل الاقواس

Me.day1.SetFocus If (Me.day1.Text) = "Thursday" Or (Me.day1.Text) = "الخميس" Then Me.txtOT = DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut2], [txtDwamOut]) Mod 60 ElseIf (Me.day1.Text) = "Friday" Or (Me.day1.Text) = "الجمعة" Then Me.txtOT = DateDiff("n", [txtDwamIn], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtDwamIn], [txtDwamOut]) Mod 60 Else Me.txtOT = DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) \ 60 & ":" & DateDiff("n", [txtStanderTimeOut1], [txtDwamOut]) Mod 60 End If بعد اذن حضرتك طبعا انا حبيت اعدل واشوف اذا كان كده صح لو التسميه عند حضرتك عربي جربها شوف هتشتغل بالتركيبه دي

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

طيب ايه رايك لو اضفنا دالة OR بحيث اذا جاء الخميس عربي او انجليزي مختصر او كامل كله يكون موجود ؟

نفس الكود

والله ما ادري ^_^

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