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

عليكم السلام ورحمة الله وبركاته "(" & [class_fsl] & "/" & [Class] & ")"

تفضل احذف الكود الخاص بك الموجود في حدث الشيت ثم ضع هذا الكود Private Sub Worksheet_Change(ByVal Target As Range) Dim X As Range Application.EnableEvents = False For Each X In Target If X.Column = 2 Then If X.Value = "" Then X.Resize(, 6).ClearContents Else X.Offset(0, 2) = Date X.Offset(0, 2).NumberFormat = "dddd yyyy/mm/dd" End If End If Next Application.EnableEvents = True Search_SUM End Sub

تفضل استاذ @Ahmed_J >>> ربما يلبي طلبك ..... 301.Dates_Calculations2.mdb

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

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

تفضل طريقة حساب البدو Dim m1, ym As Integer Dim idate As Date ym = (Me.iYear * 12) + Me.iMonth If Me.frame1 = 1 Then idate = DateAdd("m", ym, Date_1) Date_2 = DateAdd("d", Me.iDay, idate) ElseIf Me.frame1 = 2 Then idate = DateAdd("m", -ym, Date_1) Date_2 = DateAdd("d", -Me.iDay, idate) - 1 Else Exit Sub End If 30Dates.mdb

ههههههههه صحيح كلامكك استاذ فادي ولكن مسألة الــــ 30 يوم حقيقية في بعض الانظمة ويؤكدون عليها والاخ احمد لو حسبها بالحسبة العادية الموظف سوف يخسر 8 ايام من استحقاقه انتظروني الحل يسير باذن الله سأوافيكم به

لا اريد الإحباط لصاحب الموضوع الأستاذ @Ahmed_J ، ولكن في هذا المثال التالي أخبرني أين المنطق في النتيجة !!! لو طرحنا 14 يوم من التاريخ الحالي 14/03/2024 فأن النتيجة حسب طلبك لو تم تنفيذها ستكون 30/02/2024 ،برأيك لو انت محاسب أو مدير شركة وقد قدمت لك انا كموظف تقرير يضم هذا التاريخ ، هل ستقبل به حتى لو لم تكن ستستخدم النتائج في تقرير ، هو مجرد نقاش لا دخل له بالحلول المقدمة.

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

آآآآآه يعني النتيجة تظهر في حقل التاريخ الثاني صحيح؟

نعم يوجد بشرط تكون الجداول بجانب الواجهات في المجلد او في مجلد داخل مجلد قاعدة الواجهات تفضل من مكتبتي .. دعواتك لصاحب الوظائف Function BackFile() As String 'مسار القاعده الخلفيه واسم الملف الذي يحتوي على الجداول BackFile = CurrentProject.Path & "\BeBackDb.mdb" End Function Function CheckFile() As Byte 'فحص الملف اذا موجود On Error GoTo Error: Open BackFile For Input As #1 Close CheckFile = 1 Exit Function Error: Exit Function End Function Function AutoLink() If CheckFile <> 1 Then MsgBox "من فضلك ضع ملف القاعدة الخلفية كما هو مبين بالمسار أعلاه", vbOKOnly, BackFile DoCmd.Quit End If 'حذف الجداول المرتبطه On Error Resume Next Dim FrontObj As AccessObject, FrontDB As Object Set FrontDB = Application.CurrentData For Each FrontObj In FrontDB.AllTables If Left(FrontObj.Name, 4) <> "MSys" Then DoCmd.DeleteObject acTable, FrontObj.Name End If Next FrontObj 'الربط من جديد Dim BackObj As TableDef, BackDB As Database Set BackDB = DBEngine.Workspaces(0).OpenDatabase(BackFile, True, False) For Each BackObj In BackDB.TableDefs If Left(BackObj.Name, 4) <> "MSys" Then DoCmd.TransferDatabase acLink, "Microsoft Access", BackFile, acTable, BackObj.Name, BackObj.Name End If Next BackObj Set FrontDB = Nothing Set BackDB = Nothing 'النموذج الافتتاحي DoCmd.OpenForm "Form1" End Function

اخي الكريم انا لم افهم مطلبك في اول مشاركة لك ولكني فهمت انك تريد تتعامل مع التاريخ على اساس الشهر 30 يوما اليك مثالا وجدته في مكتبتي ومن عملي اتمنى ان يحقق طلبك months30.rar

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

ومشاركة مع الأستاذ @kkhalifa1960 .. في حدث عند النقر في نموذج البحث داخل الزر المسؤول عن فتح التقرير . استخدم الكود التالي :- حيث قمت باستخدام شرط الاستعلام في شرط فتح التقرير Private Sub Command25_Click() MsgBox Me.texttosearch.Value Dim filterValue As String filterValue = Forms!search2!texttosearch DoCmd.OpenReport "postsubsearch2", acViewPreview, , "[members]![nome] & ' ' & [members]![nash] & ' ' & [post]![recever] & ' ' & [parents]![fname] & ' ' & [medic]![short case] Like '*" & filterValue & "*'" End Sub وأخبرني بالنتيجة

حجم قاعده البيانات تقريباً 50 ميجا 😅 ، على العموم تم التحميل ، بس ارجع للعمل أشوف الملف ، ولا يهمك 😊

اسف رمضان كريم Private Sub Worksheet_Change(ByVal Target As Range) Dim cell As Range For Each cell In Target If Not Intersect(cell, Me.UsedRange) Is Nothing Then If cell.Value <> "" Then cell.Interior.Color = RGB(0, 0, 0) ' Black color cell.Font.Color = RGB(255, 255, 255) ' White color End If End If Next cell End Sub

بارك الله فيك وأكثر الله من أمثالك وذكرك الله في من عنده وكل عام وأنت طيب وبصحة وعافية والأسرة الكريمة بخير

احاول اعمل لك اول تقرير غالبا التقارير تأخذ في رأسها عناوين وشعارات تمثل المؤسسة يسميها البعض كليشة هل ترغب في رأس للتقرير مميز اذا نعم .. زودني ببيانات الرأس الثابتة التي تمثل مؤسستك ولا باس ان كان هناك شعار

كل الاحترام والتقدير لك على مرورك الطيب اخي @abouelhassan 🙂

الله يعطيك العافيه استاذنا الغالي ومعلمنا الفاضل ابو خليل وشاكر لاهتمامك الدائم

آمين يارب العالمين

شكرا جزيلا ممنون لحضرتك كتير وربنا يجعله في ميزان حسناتك وميزان حسنات كل من استفدت منه بمعلومة

وعليكم السلام ورحمه الله وبركاته تفضل اخي لعله طلبك ان شاء الله التوزيعات بدون حماية.xlsm

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

سوف اعملها لك كأنك بدأت تهتم .. وهذا سوف اضيفه لك كما ينبغي اعمله في نموذج البحث هذا .. لانه لم يتبقى بيانات في الجدول .. واحدة او اثنتان التاريخ موجود .. هل تقصد بين تاريخين ؟ لست بحاجة فأكسس يظهر لك جميع النتائج كتقارير ويمكنك تصديرها كــــ اكسل او صورة او pdf

ابشر .. الامر يسير عندي بعض الاستفسارات اولا يجب ان تعتبر نفسك تقوم بعمل برنامج جديد ، لا صلة له ببياناتك القديمة .. فأنت تؤسس برنامج يعمل عليه من البداية ، وليس لجلب بيانات اليه . .............................................. 1- لماذا لا نكتفي بادخال التاريخ فقط .. لأنه يمكننا استخراج السنة المالية من التاريخ في اي وقت وعند كل تصفية بدلا من طريقتك واذا مصر تدخل السنة المالية فيمكن استخلاصها من التاريخ ورصدها ( على اعتبار انك تدخل بيانات جديدة اول باول ) ولست تنقل بيانات قديمة وترصدها ............................. الارصدة ليس مكانها الجدول ولكن في الاستعلامات ( التقارير والنماذج ) لانك تدخل الاموال يا دائن او مدين فقط ................................................................. لم تذكر نوع الحساب ومتى يتم ادخاله

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

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

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

السلام عليكم تفضل الشبكة الاستدلالية ـ معدل.xlsx