ابوخليل

تم تقسيم قاعدة البيانات يمكنك التعديل والتحسين .. فقط الجداول هي البعيدة البرنامج وقاعدة الجداول والمجلدات المرفقة كلها ضمن مجلد واحد عند فك الضغط شغل البرنامج ولا تدخل على التصميم من اجل البرنامج يعيد ربط الجداول لانه تغير مكانها من جهازي لجهازك عند بدء التشغيل سيطالبك بربط قاعدة الجداول وسيفتح مربع حوار فيه اسمها jamData.db جعلتها على هذا الامتداد تخفيف للزحمة من شان ما يكون ملفي اكسس بجنب بعض --------------------------- تم ضبط الشعارات والصور والملاحظات الاخرى عملت فورم مخفي يعمل عند الاقلاع لتفحص قاعدة البيانات المرتبطة الآن خذ راحتك في ضبط التقارير المظهر ومقاس الخطوط اعانك الله ووفقك Aljameyah.rar

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

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

سبب الخطأ ان قيمة مربع التحرير = صفر وليس null جرب هذا =IIf([ItemCode]=0;Null;Nz(DCount("ItemCode";"SalesOrderDetailsT";"SaleID=" & [SaleID] & "AND SaleOrder <" & [SaleOrder]);0)+1)

عليكم السلام هل هذه هي الدالة التي تبحث عنها ؟ Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function '=RowNum([form]) invoice2.rar

سوف اوضح هنا ما قمت بعمله انشأت جدولين مؤقتين واحد لتفاصيل الاجازات والآخر لتفاصيل ايام المعلمين خلال المدة المعتمدة في جدول تفاصيل الاجازات المؤقت اعتمدت معيار ان يكون تاريخ النهاية اكبر من تاريخ اليوم الذي يتم اعداد الجدول فيه او يساويه ، لان تاريخ البداية لا يهمنا .. فيمكن ان يكون المعلم اخذ اجازة شهر بدأت من منتصف الشهر المنصرم وتنتهي بمنتصف الشهر المعتمد ... في معيارنا هذا لن ينظر البرنامج للايام السابقة حتى لو تم رصدها في الجدول الاجراء : يتم ادراج تواريخ الاجازة بالايام امام كل معلم في جدول تفاصيل المعلمين : الاجراء : يتم ادراج تواريخ الايام المعتمدة امام كل معلم و ادراج اسم اليوم مع استبعاد ايام الاجازة الاسبوعية وهي هنا الجمعة والسبت + معرف المعلم ومجموعته اضفت في هذا الجدول حقل للتأشير على المعلم الذي يتمتع باجازته في هذا اليوم ---------------------------- عملت كود يقارن بين التواريخ الموجودة في هذين الجدولين ويضع رقم 1 في حقل التأشير (جدول تفاصيل المعلمين) امام المعلم الذي يتمتع باجازته خلال هذا اليوم اخيرا وليس آخرا .. قمت بعمل استعلام يقوم بتصفية الجدول لاستبعاد المعلمين المجازين .......... الآن الاستعلام جاهز لاعتماده في التوزيع وهي الخطوة الاخيرة 'هذا الكود يعمل على تفصيل تواريخ ايام اجازة المعلم في جدول تفاصيل الاجازة Sub cmdVacations() On Error GoTo ErrHandler Dim RS As Recordset, RSt As Recordset Set RS = CurrentDb.OpenRecordset("SELECT Tbl_Vacations.TeacherIDv, Tbl_Vacations.StartDateVacation, Tbl_Vacations.EndDateVacation FROM Tbl_Vacations WHERE (((Tbl_Vacations.EndDateVacation)>=Date()))") Set RSt = CurrentDb.OpenRecordset("Tbl_VacationsDetails") Dim date1 As Date, date2 As Date RS.MoveFirst Do While Not RS.EOF date1 = CDate(RS!StartDateVacation) date2 = CDate(RS!EndDateVacation) If date1 > date2 Then MsgBox "The initial date is after the finish date!" Exit Sub End If Do Until date1 > date2 RSt.AddNew RSt!TeacherID_Detail = RS!TeacherIDv RSt!DateVacationDay = Format(date1, "dd/mm/yyyy") RSt.Update date1 = DateAdd("d", 1, date1) Loop RS.MoveNext Loop ErrHandler: If Err.Number = 3022 Then MsgBox "سبق معالجة اجازات المعلمين/ لا يمكن التكرار" Exit Sub End If RS.Close RSt.Close End Sub ' هذا الكود يعمل على ادراج تواريخ الأيام امام المعلم في جدول المعلمين المؤقت مع استثناء ايام العطل ( الجمعة والسبت) Sub cmdTeachers() On Error GoTo ErrHandler Dim RS As Recordset, RSt As Recordset Set RS = CurrentDb.OpenRecordset("Tbl_Teachers") Set RSt = CurrentDb.OpenRecordset("Tbl_TeachersTemp") Dim date1 As Date, date2 As Date RS.MoveFirst Do While Not RS.EOF date1 = CDate(Me.Startdate) date2 = CDate(Me.Enddate) If date1 > date2 Or date2 < Date Then MsgBox "تأكد!! لا يمكن ان يكون تاريخ البداية اصغر من تاريخ النهاية او تاريخ النهاية اصغر من تاريخ اليوم" Exit Sub End If Do Until date1 > date2 RSt.AddNew If Weekday(date1) = 6 Then date1 = DateAdd("d", 2, date1) RSt!TeachersIdTmp = RS!TeachersID RSt!NameTeacherTmp = RS!NameTeacher RSt!TeachersGroupTmp = RS!TeachersGroup RSt!dateTmp = Format(date1, "dd/mm/yyyy") RSt!dayTmp = Format(date1, "dddd") RSt.Update date1 = DateAdd("d", 1, date1) Loop RS.MoveNext Loop MsgBox "تم ادخال البيانات" ErrHandler: If Err.Number = 3022 Then MsgBox "سبق ادخال تواريخ الجدول / لا يمكن التكرار" Exit Sub End If RS.Close RSt.Close End Sub 'هذا الكود يقوم بــ 'تنظيف الجداول المؤقتة 'استدعاء الكودين السابقين 'يضع رقم 1 امام اليوم الذي صاحبه في اجازة Private Sub cmd1_Click() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE Tbl_TeachersTemp.* FROM Tbl_TeachersTemp" DoCmd.RunSQL "DELETE Tbl_VacationsDetails.* FROM Tbl_VacationsDetails" DoCmd.SetWarnings True If IsNull(Me.Startdate) Or IsNull(Me.Enddate) Then MsgBox "أدخل تاريخ البداية وتاريخ النهاية" Exit Sub End If Call cmdVacations Call cmdTeachers Dim RS As Recordset, RSt As Recordset Set RS = CurrentDb.OpenRecordset("Tbl_VacationsDetails") Set RSt = CurrentDb.OpenRecordset("Tbl_TeachersTemp") RS.MoveFirst Do While Not RS.EOF RSt.MoveFirst Do While Not RSt.EOF If RSt!TeachersIdTmp = RS!TeacherID_Detail And RSt!dateTmp = RS!DateVacationDay Then RSt.Edit RSt!vacationTest = 1 RSt.Update End If RSt.MoveNext Loop RS.MoveNext Loop RS.Close RSt.Close End Sub frm2.rar

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

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

ليش ما يحتاج كل المسألة: 1- نموذج للبحث 2- تقرير يطبع نتيجة البحث

نعم مسحتهم .. المجاميع لا تكون في الجداول حقلى total_payment total_massarif الاساسي موجود في الاستعلام ويمكن جلبه في اي مكان وليه الاستعلامات الاربعة .. انت محتاج ايه ؟

يصبح الكود هكذا Dim ons As String Dim typefld As String ons = [id_Flightpermits_lab] SourceFile = filepath_att typefld = Right(SourceFile, Len(SourceFile) - InStrRev(SourceFile, ".")) DestinationFile = CurrentProject.Path & "\image\" & ons & "." & typefld FileCopy SourceFile, DestinationFile [link_file] = DestinationFile MsgBox "تم النسخ بنجاح" قاعدة2.rar

تفضل Dim SourceFile, DestinationFile Dim ons As String ons = [id_Flightpermits_lab] SourceFile = filepath_att DestinationFile = CurrentProject.Path & "\image\" & ons & ".jpg" FileCopy SourceFile, DestinationFile [link_file] = DestinationFile Downloads.rar

يشبه هذا : Me.RecordSource = "SELECT myRecordSource.*, Val([total_payment]) AS Expr1 FROM myRecordSource WHERE (((Val([total_payment]))<100))" القيمة 100 طبعا نستبدلها بمتغير يمثل حقل البحث اصغر من ونضع سطر اخر يمثل حقل البحث اكبر من بمعنى يكون في النموذج حقلين للبحث او حقل واحد مشروط بخانتي اختيار

تفضل تم تحقيق الطلبين لن تلاحظ اي تغيير في نموذج الادخال .. اكتب اي رقم في حقل الحيازة ثم انتر كما عملت لك نموذج بحث وتعديل .. طبعا على جدول التفاصيل يبحث بالحرف او الرقم على جميع الاعمدة لان التعديل على اصول المزارعين يتم في فورم المزارعين DataFarm9.rar

نعم يطلع زي اكسل وافضل انت حاول .. ستنجح الخلايا تكون متلاصقة جنب بعض عمودي وافقي

تمام تطبع التقرير بالبيانات والمستفيد يوقع امام اسمه

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

طيب انت طلبت تقرير بالداعمين ويكون مصدره جدول الدعم اين الداعمين ؟ الاسماء الموجودة في جدول الدعم هي اسماء المسؤولين

السلام عليكم لفت نظري اصورة المدرجة لنفرض ان العامل اخذ مخالفتين في اليوم نفسه .. هنا لا يعتبر تكرار هنا تظهر اهمية التاريخ الكامل .. باليوم والساعة والدقيقة

ما الفرق بين الداعم والمسؤل ؟؟ حيث لم اجد للداعمين جدول يخصهم .. هل هم المسؤولون ؟

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

البحث يعمل بكفاءة ,, لم الاحظ شيئا هذا فين ؟؟ لاني جربت في الفورم اعلاه وفي فورم المستفيدين حذفت ورجعت سجلت ولم تظهر مشكلة

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

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