Moosak

وعليكم السلام ورحمة الله وبركاته .. أهلا وسهلا بك أخي @imadimadimad في المنتدى 🙂 لا تنس المرور على قواعد المشاركة في الموقع: 😉 ----------------------------------------------------------------------------------------------- اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف. -------------------------------------------------------------------------------------------------------------------------------------------------------- وبخصوص موضوعك فيحتاج للمزيد من التوضيح .. حيث أنه لا يوجد في مرفقك ما يدل على (التحصيل العلمي) ليتمكن الإخوة من تطبيق ما تطلبه ... 🙂

طيب .. قمت بعمل المطلوب في الملف المرفق .. 🙂 كل ما عليك فعله هو نقل جميع العناصر إلى برنامجك وسيعمل تلقائيا بدون الحاجة إلى أي تدخل 🙂 العناصر المراد نقلها : المرفق : Weekly Backup.accdb

طبعا أخي خليفة ستقوم بتغيير المسميات حسب ما هو موجود لديك .. 🙂 تغير اسم دالة الحفظ الإحتياطي .. وكذلك اسم جدول وحقل النسخ تاريخ النسخة الاحتياطية هنا : Set RS = CurrentDb.OpenRecordset("SELECT * FROM BackUpsT WHERE [DateTime] BETWEEN #" & startWeek & "# AND #" & endWeek & "#")

مشاركة في الجزء الخاص بحفظ نسخة كل أسبوع 🙂 لدي تجربة سابقة قد طبقتها في برامج صممتها سابقا .. الفكرة : أني عملت جدول لتخزين عمليات الحفظ الاحتياطي ، عند كل عملية حفظ يتم تخزين ( التاريخ والوقت - مسار الحفظ ) .. ، ولكي يتأكد البرنامج إن كان تم حفظ نسخة هذا الأسبوع أم لا .. عملت دالة تقوم بفحص حقل التاريخ في الجدول .. فإذا وجدت أن هناك نسخة محفوظة خلال تواريخ هذا الأسبوع تلغي عملية الحفظ .. وإذا لم يجد سجل محفوظ يقوم بتشغيل كود حفظ النسخة الاحتياطية وهو بدوره سيقوم بتخزين بيانات النسخة في الجدول .. 🙂 وهذا الكود الخاص بدالة فحص حقل التاريخ في جدول النسخ الاحتياطية المحفوظة : Function CheckBackupWeek() As Boolean 'هذي الدالة تفحص إذا كان هناك نسخة محفوظة سابقا في جدول النسخ الإحتياطية خلال الأسبوع الحالي 'True : نعم يوجد , False: لا يوجد ' Declare variables Dim RS As Recordset Dim startWeek As Date Dim endWeek As Date ' Get the start and end dates of the current week startWeek = DateAdd("d", -(Weekday(Date) - 1), Date) endWeek = DateAdd("d", 6, startWeek) startWeek = Format(startWeek, "mm/dd/yyyy") endWeek = Format(endWeek, "mm/dd/yyyy") 'Debug.Print startWeek, endWeek ' Open the recordset Set RS = CurrentDb.OpenRecordset("SELECT * FROM BackUpsT WHERE [DateTime] BETWEEN #" & startWeek & "# AND #" & endWeek & "#") ' Check if the recordset is empty If RS.EOF Then ' Return False if the recordset is empty CheckBackupWeek = False Else ' Return True if the recordset is not empty CheckBackupWeek = True End If ' Close the recordset RS.Close End Function وهذه طريقة استخدام دالة الفحص ومناداة كود النسخ الاحتياطي في حال وجود نسخة سابقة أم لا : If CheckBackupWeek() = False Then ' يفحص من جدول النسخ الاحتياطية إذا كانت هناك نسخة محفوظة سابقا خلال هذا الأسبوع ' إذا ما وجدها يحفظ وإذا وجدها ينتقل للإجراء التالي Call DoBackup Else ' توجد نسخة سابقة لذلك يخرج Exit Function End If تحياتي 🙂

هناك نقطة أضنك انتبهت لها أستاذنا @ابوخليل 🙂 لو أراد نقل البرنامج لجهاز آخر سيضطر لفتح محرر الأكواد لتغيير رقم الـــ UUID .. هنا أعتقد أنه من الأفضل بأن يتم تخزين الأرقام المصرح لها بالدخول في جدول .. ويستدعي الكود الرقم من الجدول بدل كتابته يدويا في الكود .

وعليكم السلام ورحمة الله وبركاته 🙂 تفضل أخي @pingo22 .. تعملها عن طريق دالة DLookup : DLookUp("[E_ICON_TITLE]";"[Data1]";"[E_INA05] ='"& [Forms]![Form1]![E_INA32] &"'") تجعلها مصدر بيانات مربع النص .. والنتيجة : Database5.accdb

السلام عليكم أستاذي العزيز @ابوخليل 🙂 بعد التجربة .. يعمل بكفاءة ما شاء الله .. فقط لاحظت أنه يفتح صفحة جديدة (تبويب جديد في الكروم) عند كل تجربة إرسال .. مما يجعل الحساب يقوم بعملية تسجيل دخول في كل مرة .. وعند الإرسال لمجموعة أشخاص مرة واحدة لا يحدث ذلك .

أربط مصدر سجلات التقرير باستعلام .. ومن الاستعلام يمكن التحكم بعدد السجلات

أهلا بك أخي @kassem_geo 🙂 بالفعل البحث يتم في جميع الحقول .. ومن ضمنها الشرح .. والكود .. وطريقة لاستدعاء .. والرابط ....

شكرا لك عمي @ابوخليل على هذي الرائعة 🙂 .. أعتذر عن الغياب وعدم التفاعل خلال هذي الفترة .. بعيد قليلا عن عالم التقنية .. ولي عودة قريبا إن شاء الله .

يا ما أحلاها الحلول الجاهزة 👍🏼😅 جزاك ربي الجنة 🌷

وعليك السلام أخي محمد .. 🙂 كان لدي كود لفتح البرنامج من ملف الريجيستري مباشرة .. ولكنه مع التحديثات الجديدة لم يعد يعمل ..

تكتب في حدث بعد التحديث للقائمة هكذا مثلا : Wsool = Qyaam + 2 Wsool = اسم حقل الوصول Qyaam = اسم القائمة المنسدلة

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

أستاذنا @ابوخليل .. لدي نفس الكود كنت سأضعه كجواب .. ولكن عندما جربته في ملفات مكتوبة بالعربية يلخبط .. 😅 وهكذا تظهر :

وعليكم السلام ورحمة الله وبركاته أخي @أحمد عمروف 🙂 جرب وضع هذا السطر في المعيار (مع مراعاة تغيير اسم النموذج واسم مربع النص كالتي عندك): Like "*" & Nz(Forms![frm_Main]![Srch_Item] ; "*") & "*" وإذا ما اشتغلت معاك ، انسخ الاستعلام وشيل المعيار من واحد منهم .. وبكذا يكون عندك استعلامين 🙂 وإذا حبيت تدخل البرمجة في الموضوع .. إعمل لك دالة تفحص إذا النموذج مفتوح ولا لا .. فإذا كان مفتوح تعطيك القيمة اللي في النموذج .. وإذا مغلق تعطيك النجمة * .. (بمعنى تظهر كل السجلات) .

حياك الله اخي @ابوالسيل 🙂 استخدم دالة Switch بدل دالة IIF .. وطريقتها سهلة .. أنا عملت لك نموذج منها .. وأنت كمل الباقي .. 🙂 وهكذا تكتب : Need: Switch([مجموع الفصول]=1;2;[مجموع الفصول]=2;3;[مجموع الفصول]=3;4;[مجموع الفصول]=4;6;[مجموع الفصول]=5;7) والنتيجة في الاستعلام : ‏‏برنامج الاحتياج.rar

تفضل أخي @أبو امين 🙂 << تعديل >> عملت لك دالتين .. واحدة للنماذج وأخرى خاصة بالتقارير .. أنسخهم هم الإثنين في موديول : Public Sub ShowOrHideFormControls() Dim Frm As Form Dim Ctl As Control Set Frm = Screen.ActiveForm For Each Ctl In Frm.Controls Select Case Ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup If IsNull(Ctl.value) Or Ctl.value = "" Then Ctl.Visible = False End If End Select Next Ctl Set Frm = Nothing End Sub '------------------------------------------------------------------- Public Sub ShowOrHideReportControls() Dim Rpt As Report Dim Ctl As Control Set Rpt = Screen.ActiveReport For Each Ctl In Rpt.Controls Select Case Ctl.ControlType Case acTextBox, acComboBox, acListBox, acCheckBox, acOptionButton, acOptionGroup If IsNull(Ctl.value) Or Ctl.value = "" Then Ctl.Visible = False End If End Select Next Ctl Set Rpt = Nothing End Sub وتنادي كل دالة باسمها حسب الاستخدام هكذا : ' للنماذج Call ShowOrHideFormControls() ' للتقارير Call ShowOrHideReportControls()

بارك الله فيك أخي النجاشي .. وانتظروا التحديث القادم إن شاء الله 😊

وعليكم السلام ورحمة الله وبركاته أخي أحمد .. 🙂 من الضروري جدا فتح برنامج الواتسأب وتسجيل الدخول قبل الارسال .. ليس من مهام برنامج المرسال تشغيل الواتسأب .. فقط يقوم بإرسال الرسائل ..

اللهم آمين يارب العالمين .. وإياكم أجمعين 🙂🌷

وكل عام وانت بخير .. وصحة وسلامة أخي أبوطارق .. 😊🌷 تقبل الله طاعاتكم ..

‏كلُّ عيدٍ والسعدُ يحفُّ أرواحكم ‏هنأكم الله، وبشّركم، وسرّكم، وأسعدكم، وأبهجكم، وآنسكم، وأفرحكم، وأضحككم، ورضي عنكم .. كُل عام وقلوبكمْ في علوٍ ورفعةٍ ‏من الدينْ والدُنيا، وكل عام وأكاليل السعادة تزهى بكم. كُلّ عـــام وَ الطمأنينة وَ السـلام تطـوق ٲرواحكم. كُلّ عـــام وَ قلوبكم تنبضُ حُـبّاً وفرحاً .. -‏كل عام وأنتم بخير وعافية وإنشراح صدر، وقلوبكم مليانة سعادة وطمأنينة وسلام، عيد سعيد عليكم جميعًا 🌷🌷💗🌹🌹🌹🌹🌹🌹🌹🌹💗🌷🌷

أخي خليفة @kkhalifa1960 فيه حاجة مش مضبوطة في كود الاسكانر .. !! 🙂

السلام عليكم أخي @حامل المسك 🙂 من رأيي لتنظيم هذا الأمر من البداية عليك أن تقوم بإنشاء 3 جداول .. الجدول 1 : لجميع الجهات ( الجهات التابعة ) .. وبه عمود وهو المفتاح الأساسي ( أسماء الجهات التابعة .. مثلا ) الجدول 2 : للجهات الرئيسية (الجهات المتبوعة) .. وبه عمود وهو المفتاح الأساسي ( الجهات الرئيسية.. مثلا) الجدول 3 : وهو جدول الربط ( ربط الجهات التابعة بالجهات المتبوعة ) نفس جدولك الحالي تقريبا .. ولكن به 3 حقول ومفتاحين أساسيين ( ID - [الجهات التابعة (قائمة منسدلة مصدرها الجدول 1 )] - [الجهات المتبوعة (قائمة منسدلة مصدرها الجدول 2 )] ) والحقلين الذين باللونين الأزرق والأحمر هما المفتاحين الأساسيين ( وذلك لتجنب تكرار الإدخالات ) . الجدول 3 هو جدول ذو علاقة (many to many) أو (متعدد إلى متعدد) . بهذه الطريقة ستستطيع عمل تقارير واستعلامات بكل سهولة وأريحية وبدون تكرارات 🙂