نجوم المشاركات

ما فيه .. هذا حمود وهذي عباته لما طلع vb6 من بيتهم القديم وطلع يجدد بيته .. اكسس حل محله وجلس في البيت القديم

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

يا سلاااام عليك وعلى مفرداتك معلمنا الكبير

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

وهذا تعديل بسيط في الكود حتى لا يقع يوم التاخر في ضمن اطار اجازة الموظف ................ Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("SELECT hol.lateday, hol.ck, hol.Rea, hol.[no], hol.ck, hol.Rea, hol.absdate, hol.start_date, hol.end_date " & _ " FROM hol " & _ " WHERE (((hol.[no])=" & [Forms]![late-enter]![no] & ")) " & _ "ORDER BY hol.lateday;") rst.MoveFirst Do Until rst.EOF If rst!lateday = Me![نص15] Then MsgBox " تاريخ التاخر هذا مسجل سابقا لهذا الموظف ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do ElseIf rst!absdate = Me![نص15] Then MsgBox " الموظف غائب اليوم ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do ElseIf Me![نص15] >= rst!start_date And Me![نص15] <= rst!end_date Then MsgBox " التاريخ موجود ضمن فترة إجازة الموظف ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub

هذه الاسطر هو في اساسه استعلام ولكن مكتوب بطريقة SQL انظر الصور ..................

وعليكم السلام ورحمة الله وبركاته تفضل اخى تقسيم الاسم على اربعة اعمدة لاول اربعة اسماء تقسيم الاسم الرباعى الى اربعة اسماء منفصلة.xlsm

السلام عليكم و رحمة الله ضع الكودين الآتيين فى حدث الفورم Private Sub CommandButton1_Click() Dim ws As Worksheet, Knd As String Dim x As Integer, Trgt As Range Set ws = Sheets("ورقة1") If Me.ComboBox1.Value = "" Or Me.TextBox1.Value = "" Then MsgBox "يرجى استكمال البيانات" Exit Sub End If Knd = Me.ComboBox1.Value x = WorksheetFunction.Match(Knd, ws.Range("A1:F1"), 0) Set Trgt = ws.Cells(2, x) Trgt.Value = Trgt.Value + Me.TextBox1.Value Me.ComboBox1.Value = "" Me.TextBox1.Value = "" End Sub Private Sub UserForm_Initialize() For Each c In Range("A1:F1") Me.ComboBox1.AddItem c Next End Sub

الشرط النصي يختلف عن الشرط الرقمي المفترض هذا التعديل يعمل =IIf(Len([Component] & "")=0;"";Nz(DLookUp("[s3r2]";"Tbl_Components";"[Component]='" & [Component] & "'");0))

اكتب بدل المعيار الموجود في التقرير : العبارة التي تريد بين قوسين مربعين هكذا [فضلا ادخل رقم الطالب] ويكون هذا المعيار تحت رقم الطالب او بدل العبارة الى الاسم وضع المعيار تحت حقل اسم الطالب وهكذا في اي حقل تريد وضع معيار له

لاحظت تأخر ابو حسان @abouelhassan في الرد وعدم التفاعل السريع وجاء في بالي وكأنه متردد بين الاستمرار في الدروس او يختار ما تقدمت به اخي @kkhalifa1960 وكأني بحاله يقول : اذا وافقك الخير فوافقه فهو اعرف فيختار ما يناسبه

ربما هدا ما تقصده تجربة فرز الرواتب.xlsx

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

بعد اذنك استاذنا الكبير @ابوخليل .................استاذ @abouelhassan اذا حابب المشروع كامل بالتقرير كما طلبك بالضبط بطريقتي أنا حاضر بس أشر .يمكن يفيدك .........

تفضل استاذ @وائل يونس سلامي طلبك حسب ما فهمت . ووافني بالرد واذا كان هذا طلبك لا تنيى الضغط على أفضل اجابة . طبابة 2024-1.rar

السلام عليكم و رحمة الله و بركاته اخ @احمد عبدالحليم جزاك الله كل خير و بارك الله بك

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

في النموذج اجعل مصدر البيانات استعلام من داخل النموذج ( وليس استعلام خارجي ) ، وقم باختيار الجداول الذي تريدها ( اذا كانت اكثر من جدول ) ، ثم عند حقل رقم العامل اجعل الشرط مربع نص غير منضم في النموذج ليكون ناتجه عند ادخال رقم عامل عرض البيانات التي تريدها. وفي حدث بعد التحديث لهذا المربع Docmd.Requery هذه الفكرة تخيلية بدن كمبيوتر في الوقت الحالي 🤗

استبدل الكود لديك بهذا .......................... Private Sub Form_BeforeUpdate(Cancel As Integer) Dim rst As dao.Recordset Set rst = CurrentDb.OpenRecordset("SELECT hol.lateday, hol.ck, hol.Rea, hol.[no], hol.ck, hol.Rea, hol.absdate, hol.start_date, hol.end_date " & _ " FROM hol " & _ " WHERE (((hol.[no])=" & [Forms]![late-enter]![no] & ")) " & _ "ORDER BY hol.lateday;") rst.MoveFirst Do Until rst.EOF If rst!lateday = Me![نص15] Then MsgBox " تاريخ التأخر مكرر ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do ElseIf rst!absdate = Me![نص15] Then MsgBox " الموظف غائب اليوم ", , " تنبيه" Me.Undo DoCmd.CancelEvent Exit Do End If rst.MoveNext Loop rst.Close End Sub

بارك الله فيك ..... انظر الصورة لهذا الموظف قبل التحديث وبعد التحديث ( هل هذا هو المطلوب ) ؟؟؟؟؟؟ جرب المرفق واعلمنا بالنتيجة ..... الغياب والتاخير.accdb

تفضل كود من ChatGpt Null0.accdb

وعليكم السلام ورحمة الله وبركاته ... منذ ان شاهدت الموضوع وانا افكر في هذا الاسلوب ... يعني انا لوكنت موظف وعارف اني متأخر .... لن احضر الا في الساعة الاخيرة من الدوام ...