ابو جودي

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

حاولت التفكير فى الاتى - تحديد الحقول المطلوبة اجباريا من خلال التاج وليس من خصائص الجدول - يتم ذلك بوضع العلام * فى تاج العنصر داخل النموذج -قمت بكتابة الاكواد داخل موديول ليتم استدعائها وتطبيقها على كل النماذج بكل سهولة فيما بعد الفكرة كالاتى عند الضغط على زر الامر خروج فى حالة وجود كائنات مطلوبة من خلال * التاج يتم الدوران عليها ان كانت مكتملة البيانات يتم اغلاق النموذج فى صمت فى حالة عدم اكتمال اى عنصر يتم اظهار رسالة تفيد بان احد الحقول مطلوب ولم يتم ادخال البيانات به --- فى حالة الموافقه يتم اغلاق النموذج دون حفظ البيانات هل انت موافق اذا ضغطنا على الزر موافق يتم الخروج دون الحفظ / اذا كان العكس لا يتم اغلاق النموذج كذلك فى زر الامر جديد لا يتم الحفظ والذهاب الى سجل جديد الا بعد استكمال كافة حقول التاج * واجهت خلل بالاكواد ولا ادرى ما العمل ارجوا المســـــــاعدة - مشكلة عجزت عن حلها - الحقول المطلوبة.mdb

بص لان الحقل اصلا رقم فهو ينقل من قيم رقمية ولكن فكرة بره الصندوق انا عملت لك استعلام تحديث ودلوقتى القيم هتتسجل داخل الجدول AuditTable بالـــــ EmployeeID كنت نسيت اعملها امبارح AuditTrail2k.mdb

يعن انت عاوز نفس الجدول بنغس الحقول مصلا باسم tblAudit وعند التعديل فقط يتم الحاق السجلات التى تم تعديلها ؟؟ انا بصراحة مش فاهم

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

اين المرفق

strFilePath = CurrentProject.Path & "\123.Txt" هذا السطر غير فيه strFilePath = CurrentProject.Path & "\123.Txt" CurrentProject.Path مسار قاعدة البيانات وهذا ثابت & "\123.Txt" وهذا اسم الملف 123.TxT يمكنك تغيره بما تشاء وان كان الملف فى مكان غير مكان قاعدة البيانات يكون مثلا strFilePath = "D:\folder\123.Txt"

عدد تكرار كلمة البحث بعد كل عملية بحث فى سؤال مهم لو نبحث عن محمد فى حقل ما وهذه الكلمة تكررت فى السجلات 100 مره بعدد 100 سجل هذا طلب منطقى من وجهة نظرى وهنا فقط الدالة count تفى بالغرض او dcount اما ان تكررت الكلمة فى سجل واحد اكتر من مرة يعنى مثلا عدد السجلات 100 ولكن عدد الكلمة داخلهم 150 اعتقد هذا غير منطقى حصر عددهم والله اعلم وبحيث يتفاعل ذلك العدد بالزيادة والنقصان عند الضغط علي أزرار التالي و السابق فكرة ع السريع قتح على اول سجل على زر التالى العدد الاجمالى بعد البحث +1 زر الرجوع العدد -1

للامانة العلمية الكود منقول من مكتبتى من ملف حصلت عليه من الانترنت منذ فترة كبيرة لا ادرى اسم صاحبه ولا اتذكر من اين حصلته قمت بالقليل من التعديلات بما يتناسب معى AuditTrail2k.mdb

حمل من هنا المرفق الخاص بــ اخفاء اطار الاكسس

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

انتظر وابشر بالخيـــر

Forbidden You don't have permission to access /ib/search/ on this server. Additionally, a 403 Forbidden error was encountered while trying to use an ErrorDocument to handle the request. للعلم المشكلة ليست مع كل الكلمات التى تستخدم في البحث انا اريد البحث داخل منتدى الاكس باستخدام تلك الكلمات اخفاء اطار الاكسس للاسف تحدث المشكلة مع هذه الكلمات وهذا مناف للمنطق

اخفاء واظهار جميع الكائنات داهل القاعدة واغلاق الشيفت التحكم باخفاء واظهار جميع الكائنات.mdb

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

كيفية تنفيذ ما ذكرته المنتدى ملئ به لو بحثت وجدت ما تريد وان تعذر عليك شئ اسال وان شاء الله تجد الدعم

function لاى شئ ؟ حدد ماذ تريد اعط مثال والله المستعان

- الحفاظ على بنية البرنامج من العبث سواء بقصد او بدون قصد - الحفاظ ع بيانات البرنامج من العبث سواء بقصد او بدون قصد ايضا اخفاء الاطار والكائنات منع الوصول الى البنية الاساسية والتصميم وتحويل القاعدة الى accde او mde ينهى كل شئ ولكن تذكر جيدا وقبل اى شئ الاختفاظ بنسهة مفتوحة من قاعدتك ربما تريد التعديل عليها مستقبلا

لا يخل بالإداء اعتقد لا يوجد شئ اسه الإعدادات أو اللمسات الأخيرة ليصبح برنامجي جاهزا للاستخدام كالمحترفين اهم شئ - سهولة تعامل ال end user اى المستخدم بكل سهولة ويسر بلا اى تعقيدات - الحفاظ على بنية البرنامج من العبث سواء بقصد او بدون قصد - الحفاظ ع بيانات البرنامج من العبث سواء بقصد او بدون قصد ايضا اما اللمساات التى تسال عنها انت من يجب ان يحددعا وفقا لاهداف برنامجك وتبعا للبنية وللتصميم الذى انشات القاعدة بهما

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

العفو ولكم صدقنى ثمرة الثلاث ساعات عظيمة حتما تعلمت اشايؤ لم تكن تعرفها بالتجربة والبحث والمحاولة والاحتكاك

كانت الحقول الرقمية بالجدول الثانى Long Integer فقط قمت بتغيرها الى Double Acc_Naw.accdb

المثــــــــــــــــال السابع  ـــــــــــــــــــــــــــــــــــــ الدالة ( StrReverse ) تقوم هذه الداله بعكس النص المرر لها وتستخدم كالتالى StrReverse(StrJudy) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "officena" 3 MsgBox (StrReverse(StrJudy)) النتيجة ---- aneciffo ممكن تشغل خيالك وتستخدمها مع الحماية   --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 007- StrReverse - عكس النص.mdb

المثــــــــــــــــال السادس  ـــــــــــــــــــــــــــــــــــــ الدالة ( Left ) تستخدم هذه الداله لاستخلاص جزء من الجهه اليسرى من النص ونمرر لها وسيطين الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو length هو طول النص الذى تريد استخلاصه من النص الاصلى من الجهه اليسرى من النص وتستخدم كالتالى Left(StrJudy, 6) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love (officena.net)" 3 MsgBox (Left(StrJudy, 6)) النتيجة --- I Love العكــــــــــس الدالة ( Right ) تستخدم هذه الداله لاستخلاص جزء من الجهه اليمني من النص ونمرر لها وسيطين الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو length هو طول النص الذى تريد استخلاصه من النص الاصلى من الجهه اليمني من النص وتستخدم كالتالى Right(StrJudy, 14) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love (officena.net)" 3 MsgBox (Right(StrJudy, 14)) النتيجة --- (officena.net) ----------------------------------------- الطريقة الاخيرة وهى الدالة ( Mid ) عن طريق هذه الداله ممكن استخلاص نص من البداية التى تحددها والطول الذى تحدده من النص الاصلى ونمرر لها ثلاث وسطاء الوسيط الاول وهو source وهو النص الاصلى الوسيط الثانى وهو بداية الحرف فى النص الذى سوف يتم البدأ فى الاقتصاص منه الوسيط الثالث وهو length وهو طول النص الذى تريد استخلاصه من النص الاصلى بداية من الحرف الذى تم تحديده فى الوسيط الثانى وتستخدم كالتالى Mid(StrJudy, 9, 8) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love (officena.net)" 3 MsgBox (Mid(StrJudy, 9, 8)) النتيجة ---- officena.net  --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 006- Left & Right & MId - استخلاص جزء من النص .mdb

المثــــــــــــــــال الخامس  ـــــــــــــــــــــــــــــــــــــ الدالة ( UCase) تستخدم هذه الداله لتحويل حروف النص المرر لها الى حروف كبيرة وتستخدم كالتالى (UCase(StrJudy)) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر Private Sub BtTestU_Click() 1 Dim StrJudy As String 2 StrJudy = "I LoVe ofFiceNa.net" 3 MsgBox (UCase(StrJudy)) End Sub لاحظ معى حالة احرف النص --- يحتوى على احرف طبيرى واخرى صغيرة I LoVe ofFiceNa.net الدالة ( LCase) تستخدم هذه الداله لتحويل حروف النص المرر لها الى حروف صغيرة - عكس السابقة  --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 005- UCase & LCase - الحروف الكبيرة والصغيرة.mdb