عمر ضاحى

طيب هو بداية الاسبوع عندك يوم ايه ؟

اولا باشكر حضرتك بس مش عارف ليه مش شغاله جربت انى احط رقم اخر غير رقم 5 برضه مفيش تغير هو انا لما غيرت الرقم الى 2 اشتغل بس ليه !! كيف يوم الخميس عندي هو رقم 2

استاذي @ناقل ممكن بعد اذن حضرتك اذا لم اثقل عليك اريد ان اضيف شئ فى الكود ان يراجع تسجيل الانصراف اذا كان اليوم الخميس يسجل مثلا انصراف للجميع الساعه 3 عصرا اما باقي الايام يسجل 4 بعد العصر كيف ممكن اعمل ده

هذا هو المطلوب الله يبارك فيك وفى جميع احبابك واهلك والمسلمين جميعا

انا حاليا جاري اعادة بناء البرنامج من جديد على اصدار 2010

هل فى طريقة لتحويلها الى 2010 ؟

اولا باشكر حضرتك على الرد ثانيا بالفعل انا عامل كده انا هرفع المشروع كامل علشان الباقى يستفاد منه حضور وانصراف موظفين.rar

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

up

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

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

up

تم حل مشكلة عدم تكرار التسجيل باستخدام دالة If DLookup("date()", "Dwam_Emp_ALL", "Dwam_Date=date()") = Me.Date_today Then MsgBox "áÞÏ ÓÈÞ ÇáÊÓÌíá åÐÇ Çáíæã ãä ÞÈá", vbCritical, "ÇäÊÈå" Else مش عارف اذا كان هناك اشياء افضل من هذا لكن ده ال قدرة افكر فيها الان

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

السلام عليكم الحمد لله الذاكرة رجعتلى شوي ^_^ وعرفة اعمل موضوع الحضور والانصراف نموذج باسم ( frm_DwamToday ) لكن محتاج احسب مدة العمل والاضافي حسب فترة العمل الطبيعيه (هناك جدول به فترة العمل خلال الاسبوع باسم (WorkingTime) ) وايضا اريد حساب التأخير مرفق الملف باخر حالة توصلتلها وبعد التحديثات التى عملتها حتى يستفاد منها باقي الاعضاء بالمنتدي واريد ان ابرمج (2 مفتاح لتسجيل الحضور والانصراف للجميع مره واحده) وايضا اريد لما اقوم بالضغط على مفتاح تحضير او ترحيل ويظهر لى القائمة من جديد ان يسجل لى تاريخ اليوم فى مربع التاريخ Date واذا كان قد سبق التحضير والترحيل للهذا اليوم ان لا يحضره مره اخرى حضور وانصراف موظفين.rar

up

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

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

ممكن حضرتك تشوف البرنامج هو بسيط وتخبرنى ايه رأيك وكيف ممكن نطوره وايه عيوبه

لقد قمت بتصميم برنامج للسلف اتمنى ان يكون هذا طلبك انت فقط عدل التصميم بما يتناسب معك مميزات البرنامج :- 1- اضافة للموظفين 2- اضافة سلف لهم وتحديد عدد الاقساط وتاريخ بداية القسط 3- استعراض السلف المستحقه فى هذا الشهر والاشهر السابقه 4-استعراض ما تم دفعه 5-استعراض السلف المتبقة لكل موظف ملف التحميل بالمرفقات برنامج السلف (عمر ضاحي).accdb

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

ارفع ملف علشان نستطيع ان ننفذ عليه طلبك

مفيش ملف مرفق

اعتقد صعب لان لازم سخص مرسل وشخص مستقبل الايميل حتى لو مش هيفتح الاوتلوك فهو هيعتمد على مكتبه الاوتلوك ممكن تنظر لهذا الكود Option Compare Database Private Sub cmdSendEmail_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim emailTo As String Dim emailSubject As String Dim emailText As String Dim outApp As Outlook.Application Dim outMail As Outlook.MailItem Dim outlookStarted As Boolean On Error Resume Next Set outApp = GetObject(, "Outlook.Application") On Error GoTo 0 If outApp Is Nothing Then Set outApp = CreateObject("Outlook.Application") outlookStarted = True End If Set db = CurrentDb Set rs = db.OpenRecordset("SELECT ArName, EnName, EmailAddress, EmailVIP " & _ " FROM QTSendEmail") Do Until rs.EOF emailTo = Trim(rs.Fields("ArName").Value & " " & rs.Fields("EnName").Value) & _ " <" & rs.Fields("EmailAddress").Value & ">" emailSubject = Me.txtEmailTital If IsNull(rs.Fields("ArName").Value) Then emailSubject = emailSubject & " for " & _ rs.Fields("ArName").Value & " " & rs.Fields("EnName").Value End If emailText = Trim("Hi " & rs.Fields("ArName").Value) & "!" & vbCrLf If rs.Fields("EmailVIP").Value Then emailText = emailText & Me.txtEmailBody & vbCrLf End If ' ' emailText = emailText & _ ' "نص 1" & _ ' "نص 2 " & _ ' "نص 3 " & _ ' "نص 4" Set outMail = outApp.CreateItem(olMailItem) outMail.To = emailTo outMail.Subject = emailSubject outMail.Body = emailText outMail.Send rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing If outlookStarted Then outApp.Quit End If Set outMail = Nothing Set outApp = Nothing MsgBox "تم ارسال الايميلات للجميع", vbInformation, "تأكيد" End Sub وجربه هتحتاج ان تضيف الاضافة دي

ممكن تضوح اكثر طلبك بالظبط لانى مش فاهم بالظبط حضرتك ايه ال انت عاوزه