ابو جودي

الكود المستخدم Me.اسم الزر.Enabled = False

اتفضل عدم تفعيل الزر بعد الحفظ.rar

انا مش قادر افهم كويس المطلوب اللى فهمتى اى رقم اقل من صفر حضرتك مش محتاجه انه يظهر تمام بعد اذن الاستاذ جعفر ده التعديل على اد فهمى لو كنت انا فهمت المقصود 40.tast66.accdb_up.zip

مرفق لو تكرمت حتى نستطيع مساعدتك ومن فضلك فى المرات المقبله برجاء الحفاظ على قوانين المنتديات حتى يسهل متابعة موضوعك عنوان موضوعك هذا ارجو المساعدة على وجه السرعة من ادارة او اعضاء المنتدى تعارض مع هذا البند 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف

طيب المرفقات التالية على الترتيب تقوم بالاتى المرفق الاول عند البحث يقوم بتظليل ما يطابق نتيجة البحث SearchHighlight.rar المرفق الثانى يقوم بالفرز تلقائيا اثناء الكتابه دون اى تدخل منك ولكن لا يقوم بالتظليل FindAsUType.rar ما اريده هو الدمج بين المثالين للحصول على مثال واحد يقوم بالبحث التلقائى والفرز والتظليل لما يطابق البحث وكل ذلك بطريقة اليه اثناء كتابة الحروف كما يحدث فى البحث والفرز بالمرفق الثانى

الله اعلم فى انتظار الرد من اساتذتنا الكرام

السلام عليكم ورحمة الله تعالى وبركاته المثال المرفق خاص بالبحث والتظليل طبعا تقدمت قبل ذلك بمثل هذا الموضوع ولكن للامانه اشرت اننى نقلت من مثال من موقع اجنبى بمساعد الاستاذ يوسف جزاه الله خيرا عندمى دلنى عليه ولكن انا قمت بالتعديل عليه لعمل فلتر تلقائى للحروف والكلمات التى تطابق التى تم كتابتها فى مربع النص الخاص بالبحث ولكن للامانه ايضا اكتشفت خللا نتيجة ذلك التعديل الذى قمت به ولم اكتشفه الا مع التجربة ومحاولة نقل النموذج من قاعدة لاخرى والان ارفق هذا المثال الاجنبى الاصلى فقط قمت بالتعديل على الفورم وطريقة عرض الحقول المطلوب من اساتذتى الكرام جزاهم الله عنا كل الخير مثلا انا لو اخترت البحث عن ContactName لو كتبت فر مربع نص البحث اوفيس ثم قمت بالضغط على مفتاح الـ Enter من لوحة المفاتيح يتم البحث والفرز واظهار النتائج المطابقة فقط كما فى الصورة التالية انا اريد ان يتم البحث والفرز تلقائيا اثناء كتابة احرف البحث داخل مربع البحث دون الضغط على مفتاح الـ Enter SearchHighlight.rar

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

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

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

'//Name : AttachDSNLessTable '//Purpose : Create a linked table to SQL Server without using a DSN '//Parameters '// stLocalTableName: Name of the table that you are creating in the current database '// stRemoteTableName: Name of the table that you are linking to on the SQL Server database '// stServer: Name of the SQL Server that you are linking to '// stDatabase: Name of the SQL Server database that you are linking to '// stUsername: Name of the SQL Server user who can connect to SQL Server, leave blank to use a Trusted Connection '// stPassword: SQL Server user password Function AttachDSNLessTable(stLocalTableName As String, stRemoteTableName As String, stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String) On Error GoTo AttachDSNLessTable_Err Dim td As TableDef Dim stConnect As String For Each td In CurrentDb.TableDefs If td.Name = stLocalTableName Then CurrentDb.TableDefs.Delete stLocalTableName End If Next If Len(stUsername) = 0 Then '//Use trusted authentication if stUsername is not supplied. stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";Trusted_Connection=Yes" Else '//WARNING: This will save the username and the password with the linked table information. stConnect = "ODBC;DRIVER=SQL Server;SERVER=" & stServer & ";DATABASE=" & stDatabase & ";UID=" & stUsername & ";PWD=" & stPassword End If Set td = CurrentDb.CreateTableDef(stLocalTableName, dbAttachSavePWD, stRemoteTableName, stConnect) CurrentDb.TableDefs.Append td AttachDSNLessTable = True Exit Function AttachDSNLessTable_Err: AttachDSNLessTable = False MsgBox "AttachDSNLessTable encountered an unexpected error: " & Err.Description End Function ده module يعنى وحده نمطيه

اين المرفق

جزاكم الله خيرا استاذنا الفاضل

> تعطى حالة الاحرف الكبيـــرة دائما < تعطى حالة الاحرف الصغيرة دائما

ممكن تحط التاتش بتاعك دايما التاتش بتاعك بيكون فنى بص يا استاذ جعفر انتم عامليين فى المنتدى هنا زى الفواكه كل واحد له طعم ولن غير التانى لكن فى النهايه كلكم كالفواكه الجميله بس الحق انت تاتشاتك ليها طعم تانى *_^ وانا مستنى تقولنا ماذا سيحدث ماذا سيحدث اذا وضعنا > في تنسيق النموذج وتنسيق الجدول لنفس الحقل

الاستاذ الجليل والمعلم القدير والفنان الكبيـــــــــر طبعا فنان كعادتك يا استاذنا الغالى ونسيت الامضاء جعفر الفنان

برجاء ارفاق ملف القاعدة للتعديل عليه وطبعا لن تستطيع تغير العنوان ولكن برجاء كتابه السؤال بإختصار ليكون عنوان الموضوع ذو دلاله وبرجاء الاخذ والنظر لهذه القوانين بعين الاعتبار قواعد المشاركة فى الموقع اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف ماشى انا مش هأكشر عن انيابى ولا هأتعصب المره دى هههههههههه فى انتظار المرفق ان شاء الله لتقديم يد العون قدر المستطاع

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

جزاكم الله خيرا انظر الى الكود فى هذا المرفق قمت بعمل هذا الكود بعد ما قمت بالاطلاع على المثال السابق جزاكم الله خيرا test.rar

طب ممكن مثال لو تكرمت انا مش فاهم اعمله ازاى

هل هناك كود او طريقة تجعل الكتابه داخل نماذج الاكسس small letters فقط حتى لو مفتاح الــ Caps Lock مفعل ومضاء

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

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

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

المهم تحقيق المراد ان شاء الله دومـاً إجعل لـكلماتك وروداً تهبـط على النـاس من حولك فيكون لها شذاً طيبـاً يسعـدهم ... ولا تجعل لها أشواكـاً تؤلمهم