عمر ضاحى

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

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

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

ارفع نموذج للعمل عليه

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

الله يعطيك الف عافيه ويبارك لنا فيك وما يحرمنا من كرمك علينا

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

الكود المفترض يعطينى اخر الدوام الساعه 15:00 لان هذا التاريخ هو ليوم الجمعه بالنسبه لاسم الحقل موجود فى هذا الكود Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Me.txtDatetest.Value Me.txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Me.txtDatetest.Value Me.txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Me.txtDatetest استاذى الجليل ابو خليل اعتقد عرفت ليه كود يوم الخميس لم يعمل وهذا بسبب انه بيستعلم عن تاريخ اليوم وليس تاريخ المسجل فى الشيت Dday = Weekday(Me.txtDatetest.Value) If Dday = 5 Then Me.Dwam_Date = Me.txtDatetest.Value Me.txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Me.txtDatetest.Value Me.txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" Dday = Weekday(Me.txtDatetest.Value)

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

واعتقد ان هذا الكود Dday = Weekday(Date) If Dday = 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" ElseIf Dday <> 5 Then Me.Dwam_Date = Date txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" اصبح لا يعمل ايضا

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

وايضا عند اخر سجل لا يعطي قيمه مثل باقى السجلات

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

السلام عليكم اساتذتي الكرام @jjafferr @Eng.Qassim @abouelhassan @ابوخليل والى الجميع عندي مشكله هذا الكود كان المهندس قاسم @Eng.Qassim ساعدني بيه فى موضوع كنت عملته On Error GoTo Errw Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If (Me.Emp_ABSCENT = False) Or (Me.Vacation = False) Then Dim Dday As Integer Dday = Weekday(Date_today) If Dday = 5 Then Me.Dwam_Date = Me.txtDatetest txtTimeIn.Value = "07:00" Me.txtTimeOut = "15:00" Else Me.Dwam_Date = Me.txtDatetest txtTimeIn.Value = "07:00" Me.txtTimeOut = "16:00" End If Else Me.txtTimeIn.Value = "" Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly عاوز اعرف فين الغلط هنا (انا قمت بعمل تعديلات بسيطه (ضمين اكثر من زرار معه الكود كان شغال تمام لحد ما انا عدلت بعض التعديلات واضفت خانه للاجازات اذا كان الموظف غائب او فى اجازة لا يتم اضافة وقت حضور وانصراف له وعلشان اقدر اعدل فى التاريخ علشان اسجل الايام السابقه من اول السنه اضفت مربع نص وحطيت فيه التاريخ وضميته فى الكود وهو يعمل جيدا لكن المشكله ان شكلى اخطأت فى مكان OR فى الداله If (Me.Emp_ABSCENT = False) Or (Me.Vacation = False) Then هل فعلا التركيبه هذه خطأ ؟ لان بيسجل لكله الان حاضر غائب اجازة كله جربت طرق كثيره للتغير بمساعدة استاذي ابوالحسن @abouelhassan If (Me.Emp_ABSCENT) Or (Me.Vacation) = False Then If Me.Emp_ABSCENT = False Or Me.Vacation = False Then If Not (Me.Emp_ABSCENT) = True Or (Me.Vacation) = False Then If Not (Me.Emp_ABSCENT) Or (Me.Vacation) = True Then لكن للاسف مره تعمل على شرط واحد ومره تعمل على الاخر ومره لا تعمل اطلاقا ايضا هرسل لحضرتك نسخه من البرنامج https://www.mediafire.com/file/l8oyy6wi91zg9sq/%D8%AD%D8%B6%D9%88%D8%B1_%D9%88%D8%A7%D9%86%D8%B5%D8%B1%D8%A7%D9%81_%D9%85%D9%88%D8%B8%D9%81%D9%8A%D9%86V2010_v030.rar/file واسم النموذج هو frm_DwamToday هذه صورة النموذج الذي به المشكله

@jjafferr استاذي الكبير هل يوجد برنامج مثل هذا لكن يقوم بالاستيراد وليس تصدير ؟

السلام عليكم ورحمة الله وبركاته كما هو واضح من العنوان اريد ان اعمل مولد سجلات بناءا على بيانات يتم تعبئتها فى النموذج وللتوضيح الشرح فى الصورة التاليه باقى البيانات هي بيانات ثابته هل من الممكن انشاء هذا المولد ؟ مرفق ملف البرنامج توليد سجلات.rar

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

اولا باشكر كل من ساعدني فى انهاء مشاكل البرنامج ولله الحمد عرفت فين الخطأ (بالصدفه) واحب اشكر المهندس قاسم @Eng.Qassim وباقية اساتذتي الكرام فلقد انتهيت تقريبا من عمل البرنامج للحضور والانصراف وكما وعدت سوف اقوم بنشره هنا حتى يستفاد منه الجميع البرنامج يعمل على اصدار 2010 انتهيت تقريبا من كل ما فكرت فيه للبرنامج باقى ان اقوم بعمل تصميمات رسوميه جيده للبرنامج لكنى ضعيف فى هذا للاسف فاذا تطوع احد الكرام بعمل هذا نكون له شاكرين وختاما نسألكم الدعاء لى ولوالدتي رحمة الله عليها وان يشفي والدي وشكرا جزيلا حضور وانصراف موظفينV2010.rar