ابوخليل

عليكم السلام Dlookup("yourfld","yourtable","fld1=" & namerpts)' اذا المتغير رقمي Dlookup("yourfld","yourtable","fld1='" & namerpts & "'")'اذا المتغير نصي

لاحظت ان حجم الملف زاد الضعف !! لا تدرج اي صورة ولو كانت صغيرة الحجم .. فقط اجعل الصور مرتبطة تم تحسين التقرير ... انظر اليه من معاينة الطباعة .. وليس العرض Aljameyah2.rar

اللي في جهازه اوفيس 32 بت ماله نصيب في البرنامج

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

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

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

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

تم تقسيم قاعدة البيانات يمكنك التعديل والتحسين .. فقط الجداول هي البعيدة البرنامج وقاعدة الجداول والمجلدات المرفقة كلها ضمن مجلد واحد عند فك الضغط شغل البرنامج ولا تدخل على التصميم من اجل البرنامج يعيد ربط الجداول لانه تغير مكانها من جهازي لجهازك عند بدء التشغيل سيطالبك بربط قاعدة الجداول وسيفتح مربع حوار فيه اسمها 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

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