عمر ضاحى

هذا الكود حصلته من الاخوة واساتذتي هنا وهو يعمل جيدا 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 ساعه اضافى وهكذا حسب عدد ساعات العمل يوم الجمعه اعتقد انها هنا يحسب فترة العمل كانها اضافى صحيح ! هذا الترجمه الصحيحه للنقطه دي

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

للرفع

للرفع

بالظبط كده الله ينور عليك ^_^ لان اذا كانت كل المعلومات فى نفس الجدول ايه فائدة الاستعلامات غير لما تكون المعلومات متوزعه صح على الجداول بيكون اسهل فى التعامل معها بالاستعلامات وحصولك على ما تريد

بارك الله فيك استاذى الجليل @jjafferr واطال الله عمرك واعطاك الله الصحه والعافيه

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

السلام عليكم بعد اذن حضرتكم كنت عاوز صيغة لدالة حسابيه للوقت الاضافى عندي مربع نص به وقت الدوام (اخر الوقت) (الافتراضى) عندي مربع نص به وقت الدوام (اخر الوقت) (الفعلى) عندي مربع نص به تاريخ اليوم اريد ان اعمل دالة حسابيه احسب الفرق بين (Innn) و (txtTimeOut) واضع شرطين هنا الشرط الاول اذا كان تاريخ اليوم هو يوم الخميس الشرط الثاني اذا كان تاريخ اليوم هو يوم الجمعه علما ان اى اعمال تتم يوم الجمعه هو وقت اضافى مرفق ملف للتوضيح وبرجاء اذا فشلت فى توضيح ما اريد اسألوني فى النقطه المبهمه ولكم جزيل الشكر OT.accdb

باشكرك اخى الكريم على مداخلتك وفكرتك الجميله بارك الله فيك

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

هل اقدر اطلب الثلاث طرق وايضا فى الطريقة الثالثه هناك رساله بخصوص تخييري بين الثابت والمتغير الرساله دي ازاى عملتها بسم الله ما شاء الله هل هي ضمن هذا الكود MyErfMsg = _ ChrW("1604") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1603") & ChrW("1608") & ChrW("1583") & ChrW("32") & _ ChrW("1579") & ChrW("1575") & ChrW("1576") & ChrW("1578") & ChrW("32") & ChrW("13") & ChrW("10") & ChrW("1575") & ChrW("1583") & _ ChrW("1582") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & _ ChrW("32") & ChrW("61") & ChrW("32") & ChrW("32") & ChrW("45") & ChrW("49") & ChrW("13") & ChrW("10") & ChrW("45") & ChrW("45") & _ ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & _ ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & _ ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("45") & ChrW("13") & _ ChrW("10") & ChrW("1604") & ChrW("1608") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1603") & ChrW("1608") & ChrW("1583") & _ ChrW("32") & ChrW("1605") & ChrW("1578") & ChrW("1594") & ChrW("1610") & ChrW("1585") & ChrW("32") & ChrW("1608") & ChrW("1610") & _ ChrW("1581") & ChrW("1605") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1585") & ChrW("1602") & ChrW("1605") & _ ChrW("32") & ChrW("1575") & ChrW("1604") & ChrW("1578") & ChrW("1587") & ChrW("1604") & ChrW("1587") & ChrW("1604") & ChrW("1609") & _ ChrW("13") & ChrW("10") & ChrW("1575") & ChrW("1583") & ChrW("1582") & ChrW("1604") & ChrW("32") & ChrW("1575") & ChrW("1604") & _ ChrW("1585") & ChrW("1602") & ChrW("1605") & ChrW("32") & ChrW("61") & ChrW("32") & ChrW("32") & ChrW("48") FixedCode = InputBox(MyErfMsg, "")

ما شاء الله تبارك الله بارك الله فيك استاذي الجليل ابو جودي هل يمكنني على استحياء ان اطلب تعديل فى الكود اريد ان اجعل التسلسل txtQTY1 ايضا يكون متسلسل فى السجل لغرض ان اجعل الملصق متسلسل مثل 01/30 02/30 03/30 .... الخ

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

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

اولا بعتذر لو كان طلبي غير واضح ما كنت اريد ان اقوله اولا ما فى الجدول صورة من الصور التى اريدها ولكي اوضح الغرض من هذا اريد ان اعمل ملصق يتم لصقه على الغرض (باب او اى شئ) هذا الملصق به بعض المعلومات مثل كود الباب كمثال واتجاه الباب وغيرها من المعلومات المهمه اقصد بتوليد السجلات هنا ان يتم انشاء عدد معين من السجلات فى الجدول بناءا على ما اريده فى النموذج مثل اريد ان انشئ خمس سجلات تحمل بيانات ثابته واخرى متسلسله مثل هنا الكود FDD-01 قد يكون متغير او ثابت والكميه المطلوبه كانت انى اعمل 120 سجل ونوع الباب DoorType قد يكون متغير وقد يكون ثابت طبعا الصورة السابقه هي من تقرير انا كنت عامله لكن البياانات كنت نسخها من ملف اكسيل ووضعته فى الجدول علشان تظهر معايا النتيجه دي فكنت عاوز اعرف اذا كان من الممكن فعلها ام لا على الاكسيس بدل ما بعمل السجلات على الاكسيل وارجع اضيفهم للاكسيس وبعدها اطبعهم من التقرير (ملحوظه : ما اقصده بكلمة متغير اى يحمل رقم تسلسلى مع احرف ثابته مثل F-01 f-02 f-03 .....الخ ) وشكرا جزلا مقدما