فهد الدوسري

هذا الكود يستخدم لمعرفة كم عدد تكرار حرف معين في جملة معينة ضع في الوحدة النمطية العامة _______________________ Public Function CountChar(StringToSearch As String, Character As String) As Integer CountChar = 0 For i = 1 To Len(StringToSearch) If Mid(StringToSe…

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

لمنع المستخدم من الضغط على زر الفأرة الأيمن كما هو في المتصفح ضع هذا الكود في حدث عند الضغط على الماوس في مقطع التفصيل وفي خصائص النموذج ______________________________ If Button = 2 Then MsgBox "ممنوع الضغط بزر الفأرة الأيمن" DoCmd.CancelEvent End If _________…

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

الأخ : أنور جزاك الله خيراً على مجهودك ملاحظة فقط لمن يريد المشاركة في وضع أي كود هناك الكثيرون من مرتادي المنتدى ومن الأعضاء قد لا يعرفون أين توضع الأكواد ( وأنا أولهم طبعاً ) لذلك نرجو ممن يضع كود هنا أن يوضح أكثر عن طريقة تشغيله مثلاً : نقول قبل وضع الكود ن…

(( من لديه أي كود فيه فائدة يتفضل بوضعه هنا )) وأنا سوف أبدأ على بركة الله :_ ___________________________ لتغيير حجم الخط في مربع النص ضع في حدث عند النقر للزر الكود التالي : Text1.FontSize = 12 غير الرقم 12 إلى الرقم الذي تريد ____________________________ هل …

إذا أردت فتح أي نموذج عن طريق زر فضع في الحدث الكود التالي مع ملاحظة أن النموذج الذي عليه الزر سوف يبقى مفتوحاً ومختفياً وراء النموذج الجديد الذي فتحته الكود هو _______________ DoCmd.OpenForm "ضع اسم النموذج الذي تريد فتحه هنا" _______________ أما إذا أردت أن …

فعلا بدء البرنامج يعمل بدون مشاكل الآن شكراً جزيلاً لك أخوي أشرف خليل والله لا يحرمك الأجر والمثوبة

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

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

أخوي : مصلح الحريصي أنا أعمل على برنامج في الأكسس 97 ويوجد لدي عدد كبير من الموظفين يفوق الألف موظف ومع ذلك لم أشتكي من التاريخ فهو يعمل معي كما أريده دون أي تقصير أو أي مشاكل ________ الطريقة التي استخدمها هي : حقل التاريخ : مربع نص وليس وقت/تاريخ ليس له أي ت…

الأخ : aaa هذه إجابة على السؤال الثاني تجدها في هذا الرابط http://arabteam.nicmatic.com/vb/showthread...=&threadid=9093 ويوجد فيه رابط فيه برنامج خاص بذلك

إلى جميع الأخوة أعتذر مرة أخرى لكم وأنا كما قلت لا أريد أن أقطع رزق أحد .. الله يرزق الجميع الرزق الحلال .. آمين قصدت من كلامي هذا فقط الفائدة لا غير .. والله من وراء القصد

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

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

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

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

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

:confused: :confused: (clock) (clock) (clock) :'( :'( :'( :'( :'(

أنا لا زلت أنتظر الرد(clock) (clock)