عمر ضاحى

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

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

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

لا تتعب حالك اختر افضل اجابة طبعا بدون كلام اجابة الاستاذ @kanory افضل اجابه اسلوبه فى الحل جميع بالنسبه لمشكلة عدم قدرتك لرفع الملف ممكن تعمل ملف جديد وتضع فيه بعض الجداول بدون معلومات حقيقيه وتعمل الاستعلامات وترفعه لينا علشان نفهم ايه ال بتريده بالظبط وبالنسبه للطابعه فى الوندوز من ميكروسوفت فى طابعه PDF انا وندوز 10 عندي دي بدون برامج ممكن تستخدمها عادي زييها زي الطباعه الحقيقه

على افتراض ان مصدر الاسماء فى النموذج كمبوبوكس اسمه AAA وان مصدر بداية الفتره فى النموذج هو D1 وان مصدر نهاية الفتره هى D2 هترح للاستعلام بتاعك عند الاسم هتضيف المعيار بتاعك هو Forms![NameOfForm]![AAA] وفى التاريخ هتحط المعيار >=[Forms]![NameOfForm]![d1] And <=[Forms]![NameOfForm]![d2]

if me.combo = "XX1" then DoCmd.OpenReport xxxx1, acViewPreview end if if me.combo = "XX2" then DoCmd.OpenReport xxxx2, acViewPreview end if if me.combo = "XX3" then DoCmd.OpenReport xxxx3, acViewPreview end if دي اضافه بعد اذن الاستاذ @kanory دي كفكره مبدئيه لحد ما نفهم بالنموذج الخاص بك بعد تعديل اسم الكمبو والشروط والتقارير

ارفع ملف للعمل عليه

ارفع ملف للعمل عليه

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

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

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

فى استعلام اسمه Q_inventory_02x ده ال بيظهر فى الارصده بعد الطرح والاضافه

@د.كاف يار بعد اذن حضرتك عندي فى فاتورة المبيعات فى مشكلتين الاولى لما حبيت اطبق الكود الخاص بالقائمة علشان ابحث عن الاصناف بقي يخفي لى الصنف نفسه ولا استطيع ان اعيد اختيار الاصناف تاني المشكله الثانيه عاوز لما اكتب الكميه يبحث هل الكميه المتوفره تكفى المطلوب ام لا اذا كان لا يظهر لى رساله بان المخزون غير كافى او ما شابه فى المشكله الثانيه انا جهزت الاستعلام وكل شئ لكن مش عارف اجلب البيانات من الاستعلام عن طريق دالة Dlookup بيجبلى خطأ حاولت كثير وكلهم فشلو مش عارف ليه الداله دي تعباني مره تشتغل وتجلب لى معلومات ومره تجلب لى جلطه فى الدماغ 😁 321.accdb