moho58

السلام عليكم

الاخوة الأفاضل في هذا المنتدى الجميل

في هذا الموضوع أريد تغيير قيمة حقل بناء  على قيمة حقل آحر إنطلاقا من التقرير المسمى تقرير1

فقط إذا كانت الوظيفة  هي (طبيب)  يصبح رقم قاعة العمل(Room   )  : 25                       

و بارك الله فيكم

BASEZ.accdb

21 ساعات مضت, Foksh said:

تأكد من المجلد backup بنفس مسار قاعدة البيانات التي تم النسخ إليها , مع أن الملف يعمل جهاز آخر بعد تجربته .

شرط آخر بعد الأول في حال وجود خطأ في أخذ النسخة ( لأي سبب كان ) فإن الرد سيكون ( حدث خطا ما ، لم يتم اخذ نسخه احتياطية )

 

واذا استمرت المشكلة في القاعدة الثانية أرسل منها جزء مرفق لمعالجة الخطأ

ربي يعطيك الخير أخي الكريم

المشكلة من عندي وكانت في الجداول المرتبطة

ربي يزقك من حيث لا تحتسب

في 19‏/10‏/2023 at 11:21, Foksh said:

التعديل الأخير للنسخ الإحتياطي اليومي ، بدون حذف النسخ القديمة ، تفضل

 

Backup New.zip 278.47 kB · 4 downloads

روعة . ممتاز أخي بارك الله فيك ان شاء الله صدقة جارية

أخي ممكن استفسار لما وضعت الموديل  backup  في قاعدة بيانات أخرى

وقمت بتحديث الجداول المرتبطة  

يأتي الرسالة هاذي

حدث خطا ما ، لم يتم اخذ نسخه احتياطية

ممكن شرح لهذا الكود  ElseIf Err.Number <> 0 Then

وبارك الله فيك

في 18‏/10‏/2023 at 12:26, Foksh said:

تفضل أخي الكريم @moho58 ، وعذراً على التأخير بسبب العمل

في التعديل جعلت النسخ الإحتياطي ينشئ مجلد بتاريخ اليوم في مجلد Backup ، ويقوم بتخزين النسخ الإحتياطية فيه حتى يصبح التاريخ اليوم التالي ، فيقوم بحذف المجلد بتاريخ يوم أمس وإنشاء مجلد جديد بتاريخ اليوم وحفظ النسخ فيه ,, وهكذا

 

Backup New.zip 291.44 kB · 3 downloads

بعد التجربة المتكررة

الملف يفي بالغرض هذا هو المطلوب

عمل أكثر من رائع ربي يجعلها في ميزان حسانتك

و ربي يزيد في علمك إن شاء الله

بعد التجربة المتكررة

الملف يفي بالغرض هذا هو المطلوب

عمل أكثر من رائع ربي يجعلها في ميزان حسانتك

و ربي يزيد في علمك إن شاء الله

في 18‏/10‏/2023 at 12:26, Foksh said:

تفضل أخي الكريم @moho58 ، وعذراً على التأخير بسبب العمل

في التعديل جعلت النسخ الإحتياطي ينشئ مجلد بتاريخ اليوم في مجلد Backup ، ويقوم بتخزين النسخ الإحتياطية فيه حتى يصبح التاريخ اليوم التالي ، فيقوم بحذف المجلد بتاريخ يوم أمس وإنشاء مجلد جديد بتاريخ اليوم وحفظ النسخ فيه ,, وهكذا

 

Backup New.zip 291.44 kB · 1 download

والله يا أخي الكريم سامحني أنت

ربي يجازيك بغير حساب و سامحني على التأخر في الرد بسبب العمل

و الله يا أخي عمل ممتاز بقي تعديل الأخير

كنت أقص بكلامي السابق  هذا (في النهاية في مجلد bakup أجد نسختين احتياطيتين بتاريخين  2023/10/17  و  2023/10/18 )

كما يلي:

 الإبقاء على المجلد السابق الخاص باليوم السابق وعدم حذفه

كما في الصورة :

يا ليت أخي تجري هذا التعديل اعرف أنك مشغول بسبب العمل  والله سامحني أنا بحاجة إليه

ونكون قد انتهينا وربي يسهلك جميع أمورك و يرزقك من حيث لا تحتسب

23 ساعات مضت, Foksh said:

 

شوف التعديل الجديد في المشاركة السابقة ، تم تعديل الملف المرفق

أخي الكريم الملف شغال

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

تقريبا هذا ما أريد

أخي أنا اريد عمل نسخة احتياطية

كما في المثال التالي:

اليوم 2023/10/17  نفرض أني سجلت خروج من البرنامج  5 مرات    في مجلد  backup  أجد نسخة احتياطية واحدة فقط لآخر وقت تسجيل الخروج

في يوم 2023/10/18 نفرض أني سجلت خروج من البرنامج 8 مرات في مجلد backup   أجد نسخة احتياطية واحدة فقط لآخر وقت تسجيل خروج

في النهاية في مجلد bakup أجد نسختين احتياطيتين بتاريخين  2023/10/17  و  2023/10/18 

و هكذا...............

أ خي عند تسجيل الخروج يكون عمل نسخة احتياطية تلقائيا بدون رسالة تأكيد

نفس الشئ لحذف وتعويض النسخ السابقة إذا كان في نفس اليوم يكون تلقائي و بدون رسائل

نتمنى أكون  أوصلت لك الفكرة

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

وسامحني أخي الكريم في تعبك وربي يجازيك بغير حساب

الان, Foksh said:

أعتذر ، ولكن العمل أخذ وقتي اليوم ،

تفضل التعديل أخوي @moho58

 

Backup Update.zip 275.52 kB · 0 downloads

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

أخي لكن لا يقوم بأنشاء نسخة احتياطية

قام بانشاء ملف  backup   لكنه فارغ

17 ساعات مضت, Foksh said:

هنا لمطلبك قد يكون له تبعات أخرى ، ولكن سأقوم بالتعديل وسأبلغك ، ولا يهمك 

اخي ان كان لديك الوقت لا تنسى طلبي

23 ساعات مضت, Foksh said:

هذا المطلب الاول بعد التعديل ، تفضل

Backup.zip 213.51 kB · 0 downloads

مشكور أخي وبارك الله فيك و جعلها الله في ميزان حساناتك

المطلوب الأول شغال بامتياز

إن أمكن بقي المطلب الثاني

وهو عدم تكرار النسخ التي في نفس اليوم والابقاء على نسخة واحدة في اليوم لآخر تحديث

6 دقائق مضت, Foksh said:

بداية يجب عليك استيراد الجداول المرتبطة بالقاعدة الرئيسية من ملف TBL ، لإنه حتماً اختلف مسار الارتباط من جهازي لجهازك ؛ حتى تكتمل عناصر النسخ الاحتياطي.

بارك الله فيك أخي الكريم بعد استيراد الجداول الطريقة شغالة

ممكن طلب تعديل إن امكن النسخة الاحتياطية  تكون في ملف اسمه  BACKUP

وهل فيه طريقة لجعل النسخ الاحتياطي يكون كل يوم

مع حذف النسخة وتعويضها التي تكون في نفس اليوم لعدم تراكم النسخ في نفس  اليوم

تؤدي نفس الوظيفة للآداة التي كنت اشتغل عيها سابقا

وشكرا مرة أخرى

الان, Foksh said:

جرب هذا المرفق أخي الكريم

واذا اردت الحفظ التلقائي عند الخروج للنسخة الإحتياطية ، فقط ضع امر الحدث في زر نسخة احتياطية عند زر الاغلاق او الخروج ، حسب ما تحب

Backup.zipUnavailable

مشكور أخي على الرد والمتابعة

جربت لكن تطلع رسالة كما في الصورة

ممكن شرح وبارك الله فيك

في 6‏/5‏/2019 at 17:13, qathi said:

أشكرك أخي @محمد سلامة لمرورك والرد ..

لا أخفي عليك أخي جربتها من قبل .. لكن في بعض الاحيان لاتعمل ولا اعرف السبب

هل لديك نسخة أحدث من هذه الاداة .. أنت تستخدمها في اعمالك .. هل قمت بعمل تسحينات للاداة ؟؟

أرجو أن ترفق الملف الاداة الاحدث ؟؟

المهم فيها الاستعادة 

وأن تكون مجربه وعملية

هذه صورة الاداة الذي عندي

السلام عليكم

أنا جربت هذه الأداة أحيانا تشتغل بصورة جيدة وتعمل نسخ احتياطي للجداول المرتبطة عند الخروج من البرنامج

وفي بعد الاحيان تتوقف تلقائيا عن العمل ممكن تشتغل يوم أو يومين تم تتوقف

الرجاء الإفادة وشكرا

وهل فبه أداة  فعالة تعمل مثلها

أو كود  شغال لعمل نسخة من الجداول  المرتبطة المحمية بكلمة سر  عند الخروج من البرنامج

وبارك الله فيكم

الف مبروك وجزاكم الله خيرا على جهودكم

7 ساعات مضت, Foksh said:

جرب هذا الآن أخوي @moho58

BASEEN.accdb 1 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

بعد التجربة و الطباعة

شغال حسب الشروط المطلوبة

مشكور أخي الكريم وبارك الله فيك وجعلها في ميزان حسانتك

الان, Foksh said:

تفضل هذا التعديل :-

 

 

BASEEN.accdb 1.09 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 1 download

مشكور أخي  على الرد

بعدالتجربة و زيادة عددالسجلات في التقرير  و عدد الحروف في الحقل

تغير فقط حجم الخط

لكن الشرط عدد السجلات أكبر من 27 يتغير حجم الخط لم يتحقق

أشكركم أخواني الكرام على المتابعة والتفاعل مع الموضوع

جعلها الله في ميزان حساناتكم أن شاء الله

السلام عليكم الإخوة الأفاضل في هذ المنتدى الجميل

قبل أيام قليلة  شاركت Fموضوع  حول تغيير حجم الخط بناء على عدد السجلات وتمت الإجابة عليه من طرف الأخ khalifa1960

والحمد لله يشتغل معي جيدا

لكن أريد إضافة  عليه خاصية  وهذا بناء على احتياجي ليصبح كمايلي:

إذا كان عدد السجلات أكبر من 27 يصبح حجم الخط 10 وإذا كان عدد السجلات أقل من 27 حجم الخط يصبح 14

إذا كان عدد الحروف في الحقل أكبر كم 15 يصبح حجم الخط في الحقل  12 وإذا كان عدد الحروف أقل من 15 حجم الخط  في الحقل يصبح 14 

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

حاولت لكن لم تنجح معي

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

BASEEN.accdb

2 ساعات مضت, سامي الحداد said:

تفضل اخي الكريم هذا الكود لتحويل التقرير إلى صيغة pdf 

Private Sub أمر65_Click()

    Dim varItem As Variant
    Dim myWhere As String
    Dim Criteria As String
    Dim ReportName As String
    
    ReportName = "rap_liste_stagiere_grade_groupe1"
    
    Criteria = varItem
    myWhere = ""
    
    ' Loop through the selected items in the ListBox
        For Each varItem In Me.lst_XX.ItemsSelected
    ' Add each selected item to the string
        myWhere = myWhere & "'" & Me.lst_XX.ItemData(varItem) & "', "
    Next varItem
    
    ' Remove the trailing comma and space from the string
        myWhere = Left(myWhere, Len(myWhere) - 2)
    
    DoCmd.OpenReport "rap_liste_stagiere_grade_groupe1", acViewPreview, , "[grade] in (" & myWhere & ")"
    DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF
    DoCmd.Close acReport, ReportName, acSaveNo
    
End Sub

نفس الكود تستطيع ان تستخدمه في طباعة التقرير مع تغير بسيط في هذا السطر  DoCmd.OutputTo acOutputReport, ReportName, acFormatPDF

بالتوفيق

بارك الله فيك أخي الكريم وجعله الله في ميزان حسناتك  هذا ما أريده بالضبط

26 دقائق مضت, Foksh said:

جرب هذه الطريقة :

 

BASEB.accdb 2.64 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 4 downloads

مشكور أخي وبارك الله فيك على الرد

لكن قد لا ينفع إذا كان العدد كبير للأسماء أو تكون هناك صعوبة كبيرة في التعامل

السلام عليكم الإخوة الكرام في هذ المنتدى الجميل

عندي مشكلة كمايلي :

من النموذج FORMS1

عند اختيار السنة 2023 تم اختيار  (معلم) تظهر القائمة الاسمية وفيها

خالد خالد

لكن عند الضغط على زر  طباعة التقرير   أو  على زر تحويل التقرير إلى صيغة PDF

يتم طباعة أو استخراج الى صيغة  PDF   القائمة الاسمية للجميع وهي

خالد خالد

أحمد أحمد

من فضلكم حل لهذه المشكلة وبارك الله فيكم

BASEB.accdb

1 ساعه مضت, Foksh said:

تفضل التعديل

 

 

baseD-2.accdb 1.34 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 2 downloads

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

هذا هو المطلوب 

13 ساعات مضت, Foksh said:

 

تفضل هذا المطلب الأول والثاني 

 

وأعلمني بالنتيجة إن كان هناك خطأ

*ملاحظة :- في النوذج يوجد نموذجين فرعيين اسمهما ( w1 , w2 ) قمت بتصغير حجمهما الى 0 ووضعهما في الزاوية اليسار بالأعلى 0

baseD-2.accdb 1.34 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 6 downloads

سامحني أخي على التأخر في الرد

مشكور أخي وبارك الله فيك تقريبا شغالة

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

نلاحظ وجود الرمز للسجل الذي أخلته مؤخرا

يعني نلاحظ وجود قيمة في الرمز تلقائيا لآخر سجل أدخلته  كما في الصورة

وبارك الله فيك اخي مرة اخرى

وممكن مكان وجود النمودجين الفرعيين لم اجدهما ممكن عرضهما و أنا أصغرهما

7 ساعات مضت, kkhalifa1960 said:

تفضل أخي .

baseD-2.accdb 852 kB · 5 downloads

مشكور أخي الكريم على المتابعة ومعذرة على التأخر في الرد

سامحني اخي في تعبك لقد جربته لكن

لدي ملاحظات أخي: في نموذج 1

عند اختيار (كتاب ) من مربع السرد والتحرير a   يظهر لي فقط في مربع السرد والتحرير  r1   القيمة 100

و أنا اريد أن يعرض لي القيمتين  100 و 200  معا وأنا أختار منهما  وهما القيمتين الموجودتين في حقل الرمز في الجدول كتاب

هذا ما أريد

و إن أمكن عند اختيار مثلا من مربع السرد والتحرير  r1  القيمة 100 يظهر لي العنوان المقابل لهذه القيمة انطلاقامن الجدول (كتاب)

كملخص أخي هذا ما أريد إن أمكن:

عند اختيار كتاب من مربع السرد و التحرير a  تظهر القيميتين 100 و 200 معا في مربع السرد والتحرير  r1

و عند اختيار القيمة 100 يظهر العنوان الموافق والذي اسمه   (عنوان 1)  في مربع النص الذي اسمه  (عنوان)

و عند اختيار القيمة 200يظهر العنوان الموافق والذي اسمه   (عنوان 2)  في مربع النص الذي اسمه  (عنوان)

نفس الشئ  عند اختيار (مجلد) من مربع السرد و التحرير a

وشكرا كثيرا أخي وبارك الله فيك وسامحني

2 ساعات مضت, kkhalifa1960 said:

تفضل أخي .

baseD-1.accdb 576 kB · 3 downloads

مشكور أخي على المتابعة ربما أنا لم أ,صل الفكرة جيدا

في النموذج 1:

إذا كان مربع السرد والتحرير المسمى a  يساوي "كتاب"

يصبح مصدر عنصر التحكم لمربع النص r1  هو الحقل المسمى  (الرمز) في الجدول "كتاب" أي

مربع النص  r1   يصبح عبارة عن مربع سرد وتحرير  وبه القيم 100 و 200  وهي قيم  الحقل (الرمز) الموجود في الجدول السمى كتاب

إذا كان مربع السرد والتحرير المسمى a  يساوي "مجلد"

يصبح مصدر عنصر التحكم لمربع النص r1  هو الحقل المسمى  (الرمز) في الجدول "مجلد" أي

مربع النص  r1   يصبح عبارة عن مربع سرد وتحرير  وبه القيم 500و 600وهي قيم الحقل (الرمز) الموجود في الجدول  المسمى مجلد

وبارك الله فيك أخي