ابوخليل

اقتباس

والآن مع التحميل بدايةً النسخة 64 ، وقريباً النسخة الثانية بإصدار 32 إن شاء الله 

4 ساعات مضت, Moosak said:

نترقب بشغف 

  الحقيقة انها صعبة وغير ممكن الحصول عليها بكود مباشر   لأن القيمة الأساسية التي تم عليها التغيير  هي فعلا رقم  وأكسس يأخذ هذا الرقم في الذاكرة  OldValue  ونحن سنتعامل مع هذا الرقم فقط بينما القيمة الجديدة الحالية (بعد التغيير ) سنتعامل مع  Object له خصائصه فنجلب منه ما نريد .

لذا انا ريحت راسي  وتعاملت مع الرقم الناتج لاستخراج الاسم بناء على جدوله الذي يتم جلبه ايضا في الحدث

الآن لمعرفة النص الذي تم تغييره انقر نقرا مزدوجا على الرقم

ملحوظة : اخذت بالاحتياط فيما لو كان مربع التحرير يحتوي على عمود واحد فقط

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

Database4.rar

لإغلاق جميع النماذج المفتوحة :

    Do While Forms.Count > 0
        DoCmd.Close acForm, Forms(0).Name
    Loop
    
    

لإغلاق قاعدة البيانات :

 docmd.Quit

42 دقائق مضت, Moosak said:

هذه ليست مجرد رفاهية .. إنما أريد معرفة من أضاف السجل أيضا 😅🖐🏻️

اعرفه من السجل نفسه

اي سجل يتم ادراجه في اي جدول يتم ادراج المستخدم والوقت آليا

ولمعرفته هناك طريقان .

الاول : تخصيص استعلام للبحث في السجلات وهذا طويل خاصة اذا تعددت الجداول

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

النقر المزدوج هذا مشروط بصاحب صلاحية محددة

المرفق الأخير  فيه الحل

سبحان الله .. قلت ربما اني رفعت المرفق الخطأ

نزلته وجربته كل شيء تمام

الازرار تعمل سواء كان المؤشر خارجل التفصيل او كان داخل الأعمدة

اليس هذا طلبك ؟

أهلا اخي موسى .. كنت بانتظارك

اقتباس

الأولى : عند إضافة سجل جديد حينها ستتخزن القيمة كإدخال جديد .

هذه ستعمل زحمة على الجدول لا داعي لها .. لأن من قام بالاضافة موجود اصلا ضمن السجل

اقتباس

 الثانية : عند تغيير القيمة لاحقا أو عند التعديل ستتخزن القيمة الجديدة فقط ولكن حينها يمكن الرجوع للقيمة القديمة من خلال سجل التعديلات السابقة

هذا بيت القصيد

ولكن قد لا يوجد تعديل سابق

انا توصلت الى طريق اقرب ( هل تذكر موضوعي الذي ابحث فيه عن اسم الجدول مصدر بيانات مربع التحرير ؟  )

19 دقائق مضت, محمد القدسي said:

وعندي سؤال استاذي كيف لو كان النموذج رئيسي وليس له مصدر سجلات وبه مربعات نص غير منتظمة

 

هذا النموذج خارج الاهتمام ..

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

في 9‏/2‏/2024 at 22:01, ابوخليل said:

 

لا بد ان افهم  جيدا  يجب شرح الفكرة كاملة .. وما هي النتيجة النهائية لهذه الفكرة

.

 

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

اعتذر عن المواصلة ...

اخي وحبيبي الله يحفظك

فكرتي اختصرتها في هذا السطر

(( انا عالجت المسألة ووصلت الى حل ولكن بطريقة مطولة ))

انا اذا لم احصل على حل احترافي مختصر فسوف اضطر الى رفع مثالي الآخر والذي يحتوي على معالجة مربع التحرير بطريقتي

سرعة القراءة عندك عالية جدا 

هذا ما كتبته انا في ذيل موضوعي :

12 ساعات مضت, ابوخليل said:

 

وكما هو ظاهر في المثال المرفق .. قيمة مربع التحرير "رقمية" والمطلوب اظهار القيمة "النصية" الأساسية ( التي تم تغييرها) ، اظهارها في جدول التتبع

اما بالنسبة للقيمة الجديدة فلا اشكال فيها 

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

 

تفضل

Dim vSearch As String
vSearch = Me.Search.Text
Me.Search1.Value = vSearch
Me.Requery

New.rar

في 9‏/2‏/2024 at 22:01, ابوخليل said:

في الصورة نموذج مستمر يحتوي على حقول عدة .. وفي المثال نموذج مفرد يحتوي على حقل واحد

وترغبين بنقل النص مع مواصفاته الى الجدول

ثم ماذا بعد ذلك ؟ 

حتة حتة لا يصلح .. لان الحلول تختلف حسب الرؤية والتصور

لا بد ان افهم  جيدا  يجب شرح الفكرة كاملة .. وما هي النتيجة النهائية لهذه الفكرة

 

 

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

أبدعت أستاذنا ومعلمنا الفاضل @ابوخليل  

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

اسمح لي بمداخلة صغيرة تتعلق بتوسيع عدسة المراقبة للتغييرات لتشمل أيضاً الـ Combobox ؛ بإضافة بسيطة على الجزء التالي :-

ليصبح على هذا النحو ؛

If TypeOf ctlC Is TextBox Or TypeOf ctlC Is ComboBox Then

 

 

 

هذا ما تحدثت عنه في ذيل الموضوع 

لو قرأت بتمعن .. لقد وقعت في الشبكة

جرب بعد الاضافة .. ماذا يظهر لك عندما تغير الجنسية  .. في القيمة الأساسية ؟؟

سيظهر رقم .. صح ؟؟  اريد اظهار القيمة النصية 

على كل حال تفضل الحل حسب طلبك

Private Sub countAjza()
Dim ctlC As Control
Dim i As Integer
Dim x As String
    For Each ctlC In Me.Controls
        If TypeOf ctlC Is CheckBox Then
    If ctlC.Value = True Then
 i = i + 1
 x = x & "," & ctlC.Name
  End If
  End If
  Next ctlC
c1 = i
c2 = x
 
End Sub

أجزاء القرآن2.rar

عليكم السلام ورحمة الله وبركاته

التصميم لم يعجبني لأسباب :

- التصميم جامد لا يمكنك التطوير مستقبلا

- من الخطأ تسمية الحقول بأرقام

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

اذا ليس لديك مانع ان اعيد التصميم  فسوف اقدم لك العون والمساعدة

السلام عليكم

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

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

ويتم من خلاله رصد التالي :

- معرف السجل

- اسم الحقل

- اسم النموذج

- القيمة الأساسية ( قبل التعديل )

- القيمة الجديدة (بعد التعديل )

- اسم المستخدم

- تاريخ ووقت التعديل 

مع امكانية التصفية والبحث بين تاريخين

--------------------------------------------------------------

كل ما عليك عمله هو :

اولا :

نقل الكائنات التالية (جدول/نموذج/وحدة نمطية) الى برنامجك : modAudit / frmAudit  / tblAudit

ثانيا :

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim x As Integer
        If Not IsNull(Me!ID) Then
        x = WriteAudit(Me, Me!ID)
    End If
End Sub

ID  يمثل الحقل الفريد داخل النموذج

هذا كل شيء ...

----------------------------------------------------------------------------------------------------------------------------------------

نأتي للتفاصيل التي استبعدتها وهي محل النقاش لمن اراد المشاركة  .

وهي ان الوظيفة تخص تتبع الحقول النصية فقط ، واريد ضم مربع التحرير

وكما هو ظاهر في المثال المرفق .. قيمة مربع التحرير "رقمية" والمطلوب اظهار القيمة "النصية" الأساسية ( التي تم تغييرها) ، اظهارها في جدول التتبع

اما بالنسبة للقيمة الجديدة فلا اشكال فيها 

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

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

و لأخي @Moosak  خاصه تعقيبا على تعليقه هنا 

------------------------------------------------------------------------------------

وقد اجاب الاستاذ موسى والاستاذ فادي وأجادا  بمثالين احترافيين شاملين  فجزاهما الله خيرا

1- المرفق Database2 وهو خاص بالحقول النصية

2- المرفق  Track Changes - Moosak  شامل الحقول النصية ومربعات التحرير

3- المرفق Database5 شامل الحقول النصية ومربعات التحرير

بقي الاختيار لك فاختر ما يناسبك .

Track Changes - Moosak.accdb

Database2.rar

Database5.accdb

السلام عليكم ورحمة الله وبركاته

مبارك عليك اخي الحبيب    @محمد احمد لطفى      الترقية الى قائمة الخبراء  .. تستاهل اكثر

زادك الله علما ونفع بك

ابشر  في الغد ان شاء الله

المعلومات على النحو التالي :

مع امكانية التصفية والبحث بين تاريخين

- مسلسل

- اسم الحقل

- اسم النموذج

- القيمة الأساسية ( قبل التعديل )

- القيمة الجديدة (بعد التعديل )

- اسم المستخدم

- تاريخ ووقت التعديل 

عليكم السلام

نعم بعد التقسيم

ايضا تم التعديل حسب الطلب

color5.rar

حسب الطلب

color4.rar

عليكم السلام

للأسف اقول لك عملك هذا خطأ

هل كتبك تصل مليون ؟ .. سيضمها ويحتضنها جدول واحد

فكر بطريقة اخرى لتقسيم الكتب داخل الجدول الواحد

يبدو ان الطلب مدرسي

على كل حال انت من يرفع المرفق هنا

اعمل مرفقا يشتمل على جدول  ونموذج ادخال  ونموذج دخول  .. وادرج فيه بعض البيانات للاستئناس

ثم ارفعه هنا وستجد المساعدة من اخوانك هنا ان شاء الله

عليكم السلام

اهلا اخي يونس

توافقت معي في الوقت الذي انا الآن اعمل فيه حول هذه الجزئية من المشروع

طبعا المرجع عند حدوث التغيير هو النموذج الذي تم عليه التعديل او التغيير وليس الجدول .. رغم انه هو المصدر  ، والمثل يقول رجل الديك تجيب الديك 

توقفت عند مربعات التحرير  .. التي تظهر قيم نصية بينما قيمتها الفعلية رقمية .. وعلى وشك الانتهاء من هذا الجزء

فقط انتظرني  سوف اطرح موضوعا متكاملا بهذا الخصوص ان شاء الله

تم عمل اللازم

حفظ البيانات في الجدول والتطبيق على الحقل في النموذج

الآن يمكنك التطوير كما تحب

color3.accdb