ابو جودي

اين المرفق

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

المثــــــــــــــــال الرابع  ـــــــــــــــــــــــــــــــــــــ الدالة ( RTrim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يمين النص وتستخدم كالتالى RTrim(StrJudy) وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = " I Love officena.net " 3 MsgBox (Trim(StrJudy)) لاحظ معى المسافات قبل وبعد النص " I Love officena.net " الدالة ( LTrim) تستخدم لحذف الفراغات ( المسافات ) الموجودة على يسار النص - عكس السابقة --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 004 - LTrim & RTrim - حذف مسافات يمين ويسار النص.mdb

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

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

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

السلام عليكم ورحمة الله تعالى وبركاته ------------------------------------------------- ما سوف اتناوله هنا ان شاء الله فى موضوعى هذا طرح الاكواد بالامثلة التى تساعد المبتدئين امثالى مع الشرح المبسط قدر الامكان لاننى مع الحكمة التى تقول " القارئ كالحالب والسامع كالشارب " وهنا انا احورها لتصبح صانع المثال كالحالب ومحلل المثال كالشارب فصانع المثال يفكر ويتعب ويبذل الجهد لصنع مثاله ام المحلل الذى يتلقاه جاهزا يستمتع بتناول الافكار والتعلم ببساطة دون عناء ولاننى لا اقوى ولا استطيع الحفظ ولكن بمجرد فهمى للكود داخل مثال عملى تتسارع وتتوالى الافكار بعكس التعامل النظرى اقدم هذه السلسلة من الطروحات البسيطة بالطريقةالتى احب انا اتناولها وخى بالنسبة لى اكثر طريقة تساعدنى على الفهم اولا سلسلة دوال التعامل مع النصوص وبما اننا سنتناول تلك الدوال اولا لنتعلم الاعلان عن المتغير النصى داخل محرر الاكواد String: هو متغير نصي يتسع هذا المتغير النصي إلى 2 جيجا بايت و كل حرف يشغل 1 بايت نحجر متغير لاسناد قيم نصيه له نسمى هذا المتغير مثلا >------>> StrJudy يتم الاعلان عنه كلاتى Dim StrJudy As String وبعد ذلك نعطي قيمة لهذا المتغير باسناد نص - اما مباشرة بكتابة النص مباشرة داخل محرر الاكواد - او من خلال >------>> اى عنصر فى النموذج | او حتى من خلال الدالة >------>> DLookup لجلب القيمة النصية من جدول او استعلام وهنا للتبسيط استخدم الطريقة المباشرة StrJudy = "I Love officena.net" وحتى نستطيع تجربة هذا عمليا نقوم بانشاء زر امر فى نموذج ونضع الكود الاتى فى حدث عند النقر 1 Dim StrJudy As String 2 StrJudy = "I Love officena.net" 3 MsgBox (StrJudy) --المثـــــــــــ(العمــــــــــــــــلى)ـــــــــــــــال----------------------- 001 - اعلان عن متغير نصي.mdb