ابوخليل

وعليكم السلام تفضل : CenterHorus2.rar

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

تفضل : Example4.rar

تفضل تم التعديل ملوحظة : لو عملت ترقيما تلقائيا كمفتاح لجدول المهمات لكان افضل Example2.rar

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

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

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

هذا مثال للتطبيق بعد فتح الاستعلام يظهر سعد وسعيد ضمن الغائبين نريد في حقل mojaz شي يدل على ان سعيد فقط مجاز على اعتبار سعيد تم منحه 3 أيام اجازة اعتبارا من اليوم يعني مثلا في الغد لو فتحت الاستعلام سيظهر سعيد على انه مجاز ولو فتحت الاستعلام في اليوم الرابع وهو لم يوقع حضور سيظهر ضمن الغائبين فعليا db.rar

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

تفضل مطلوبك هنا

تم التعديل وحساب الاجازات على النحو التالي : 1- يبقى الرصيد كما هو على الاصل اذا الباقي من الاجازة الممنوحة اكبر من الرصيد الاصلي 2- اذا المتبقي من الاجازات الممنوحة اقل من الرصيد الاصل فيتم اعتماد المتبقي هذا كرصيد جربي ووافينا بالنتيجة الاجازات4.rar

اعتقد الفكرة وطريقة التنفيذ غير منطقية ومع ذلك تم التعديل في المثال واستخدام iif الشرطية لجعل النتيجة صفر حين يكون المصروف اقل جربي ووافينا بالنتيجة ملحوظة : تم تعديل اسم الكائن 5mn الى mn5 حيث ينصح بعدم الابتداء برقم في التسميات الاجازات2.rar

واحد من الاسطر ادناه يفي بالغرض او استخدمهما جميعا fchld.LinkChildFields = "" fchld.LinkMasterFields = "" ولا تنسى التحديث fchld.Requery باعتبار fchld هو اسم عنصر تحكم النموذج الفرعي ولاعادة الربط استخدم العبارة نفسها وبدلا من علامتي التنصيص الفارغتين : ضع اسم الحقل بينهما

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

نعم يوجد : يمكنك قسمة فارق الايام على 7.3 ejmaleEjazat: Int(((#20/07/17#-#20/07/15#)/7.3)) سيعطي الناتج = 100

نعم يجوز ومن دون استئذان حقوق النسخ والاقتباس والتطوير متاح للجميع

تفضل تم تعديل الكود المسؤول عن فتح النماذج من التعمل مع الحقول الرقمية: =" & Me![PrtyID] الى التعامل مع الحقول النصية : ='" & Me![PrtyID] & "'" ملحوظة لا تفتح نموذج frmNewMstjr مباشرة ولكن افتحه بالنقر المزدوج على اسم العقار في الصفحة الرئيسية AboRami6.rar

تفضل المثال السابق تم تعديل المعرف الى نص لم اعدل على شيء آخر البتة فقط قبل التعديل ازلت العلاقات ثم اعدتها بعد التعديل AboRami5.rar

يمكنك حفظ المرفق باسم على الاصدار 2003

عليكم السلام اذا استخدمت جهاز البصمة المناسب يمكنك ذلك فاجهزة البصمة انواع ، منها ما تقوم بتخزين بيانات التسجيل داخلها ، وهذه لا تصلح لما تفكر به ومنها ما يسمى البيومترية وهي التي تدعم الواجهات ( انتر فيس ) والاخيرة تعمل عمل جهاز قارىء الباركود ، وهي مهيأة من المصنع لدعم المطورين وغالبا يأتي رفقها التعليمات والاكواد البرمجية اللازمة للاتصال والتعامل معها

اعد المثال الى صيغته الاصلية mdb

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

حبا وكرامة تفضلوا : على اعتبار اسم الحقل في جميع الجداول = id هذا الاول Dim dbs As Database Dim Table As TableDef 'On Error Resume Next Set dbs = CurrentDb DoCmd.SetWarnings False For Each Table In dbs.TableDefs If Not Table.Name Like "MSys*" Then DoCmd.RunSQL "ALTER TABLE " & Table.Name & " ALTER COLUMN id INTEGER" End If Next DoCmd.SetWarnings True Set dbs = Nothing MsgBox "تم" وهذا الثاني Dim rs As Recordset Dim strSQL As String Dim strTable As String strSQL = "SELECT MSysObjects.Name " & vbCrLf & _ "FROM MSysObjects " & vbCrLf & _ "WHERE (((MSysObjects.Type)=1) AND ((Left([name],4))<>""msys"")) " & vbCrLf & _ "ORDER BY MSysObjects.Name;" Set rs = CurrentDb.OpenRecordset(strSQL) DoCmd.SetWarnings False Do Until rs.EOF strTable = rs!Name DoCmd.RunSQL "ALTER TABLE " & strTable & " ALTER COLUMN id INTEGER" rs.MoveNext Loop DoCmd.SetWarnings True Set rs = Nothing MsgBox "تم" ولكنك قلت انك شغال على المطلوب وكنت مخلص يعني لاهنت نريد الحل الثالث حتى لو فيه توارد خواطر فلن نعدم فائدة

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

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