عمر ضاحى

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

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 وجربه هتحتاج ان تضيف الاضافة دي

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

انت ممكن تكتب السطر ده On Error Resume Next فى بدايو الكود عندك وهو هيتخطى كل الاخطأ ولا يظهر شئ منها للعميل

اعمل استعلام جديد وفى الاستعلام افتح وضع ال SQL فى طريقة العرض وفيها احذف المكتوب كله وضيف الكود ده SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Flags)=0) AND ((MSysObjects.Type)=-32768)); واحفظ وكل سنه وانت طيب وبيها طبعا ممكن لو غيرت المعيار من -32768 الى 5 هيظهر لك الاستعلامات فقط

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

ممكن حضرتط تجرب تشوف هذا الموضوع

السلام عليكم اساتذتى الكرام معايا نموذج اريد كود يحصر جميع اسماء النماذج فى قاعدة البيانات وثم وضعها فى جدول مؤقت لحين نقلها فى الجدول الرئيسي وعمل استعلام الحاقى يضيف فقط النماذج الغير مضافة فى الجدول الرئيسي من الجدول المؤقت وبعدها تفريغ الجدول المؤقت اسم الجدول الاسايى هو FormsList اسم الجدول المؤثت TempList وشكرا TEST_OD.accdb

ارفع ملف افضل لتيسير الامر لكن مبدئيا اعمل استعلام اجمالى هيكون كافى ان شاء الله لطلبك

ارفع ملف لعمل اللازم