Cha3iR

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

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

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

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

أتمنى أن يتم التعديل على المرفق Empty rec Up.rar

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

بالمناسبة المثال الذي أرفقته غاية في روعة والدقة والجميل فيه هذا الكود Dim Ct As Control For Each Ct In Me If Ct.Tag = "AhmedHassan" Then If Not IsNull(Ct) Or Ct <> "" Then Ct.BackColor = vbWhite If IsNull(Ct) Or Ct = "" Then MsgBox "Please Complet UR empty Da…

مشكور أخي بكر على المتابعة ودقة الملاحظة بالفعل ما تفضلت به من ملاحظات في محلها الكود حتى اللحظة ما زال ناقص أما هذا ,, Private Sub Commande43_Click() On Error GoTo Err_Commande43_Click DoCmd.GoToRecord , , acPrevious Exit_Commande43_Click: Exit Sub Err_Comman…

أشكر كل من تفاعل مع طلبي الشكر موصول لك أخي فيصل و bakkar2000 تم بفضل الله التوصل إلى حل يعد من السهل الممتنع كان يكفي وضع الكود كامل هو موصى به من مايكروسوفت أكسس فكان الحل كالتالي للفائدة Private Sub Commande43_Click() On Error GoTo Err_Commande43_Click DoCm…

تم الحل بارك الله فيك

يارك الله فيك أخي فيصل "اللهم ارزقه الجنة وبارك له في صحته" المقترح الذي تفضلت به يحل المشكل الى حد بعيد لكن في حالة قام باضافة أي سجل جديد ولم يملأ جميع الحقول التي من المفروض ملأها ومن تم حاول تخطي السجل أو العودة الى السجلات السابقة ستواجهه الرسالة التي مفا…

الاخوة الافاضل عند ادخال بيانات في سجل يتم حفظه مباشرة بمجرد الانتقال الى السجل التالي أو السابق مطلوب كود يمكن من منع عملية الحفظ إلا بأمر من المستخدم . تفاصيل السيناريو .. وضعت بضع شروط على زر الحفظ يفرض ملأ بعض الحقول حتى تتاح خاصية الحفظ في حال عدم ملأ أحد…

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

هل من مساعدة ؟؟..

لعل سؤالي كان فيه من التعقيد أو اللبس ما استعصى على الاخوة النظر فيه، فأرجو التكرم بالمسامحة لعدم تقديمه بأسلوب واضح جلي ولازالة كل لبس أو تعقيد كل ما أريده هو أن أضع هذه الأكواد في وحدة نمطية لكثرة استعمالي لها في نماذج عدة Dim l Dim Passwd Private Sub Adress…

مثلا عندما أحاول أن أضع هذا الكود في وحدة نمطية DoCmd.GoToRecord , , acNewRec Dim Ctl As Control For Each Ctl In Me.Controls If Ctl.ControlType = acTextBox Or Ctl.ControlType = acComboBox Or Ctl.ControlType = acCheckBox Then Ctl.Locked = False End If Next Ctl …

السلام عليكم ورحمة الله وبركاته جميعا نعلم أهمية ومدى فعالية الوحدات النمطية في عمل قواعد البيانات التي تتيح اختصار الوقت والمساحة في قاعدة البيانات مثلاً ربما يكون لدينا كود او مجموعة من الكودات المتشابهة في مواقع مختلفة من قاعدة البيانات فبدلاً من كتابتها في…

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

مشكور أخي على تذخلك, حتى هذا حل إلا أنه متعب في حالة ما لم تظهر أي حلول لن يكون أمامي سوى المقترح الذي تفضلت به شكرا لك

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