أبو آدم

جهد بديع وراقي أسأل الله العظيم رب العرش العظيم أن ينفع بكم ويجزل لكم العطاء .........

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

أخي سعيد نحن بانتظار التحليل وما لديك من مرفقات كي نتابع معا

مما يحدث ... مواضيع تكون مرفقاتها على روابط خارجية ، وتمر الايام ، ولا يتم التحميل على سيرفر الموقع يغلق الموقع الذي يحمل المرفقات ( الرابط الخارجي ) او تنتهي صلاحية المرفق على الرابط الخارجي او يتم الغاؤه وتنتفي الفائدة من الموضوع ؟؟ http://www.officena.net/ib/index.php?showtopic=31009 ........

الرابط خارجي ولا يعمل حاليا انتفت فائدة الموضوع ......

للتوضيح و الفائدة في حدث بعد التحديث لحقل النموذج المستهدف نضع الكود Private Sub sname_AfterUpdate() Dim t, s As String If IsNull(Me.sname) Then Exit Sub s = Me.sname t = UCase(Left$(s, 1)) For i = 2 To Len(s) If Mid$(s, i, 1) = " " Then t = t & " " & UCase(Mid$(s, i + 1, 1)) i = i + 1 Else t = t & Mid$(s, i, 1) End If Next i Me.sname = t End Sub sname هو اسم الحقل في النموذج

تم تعديل عنوان الموضوع

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

سيتم لاحقا اغلاق الموضوع ، لمخالفته قواعد المشاركة

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

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

مما يحدث ... إهمال التعليق على الاجابة التى تلقاها السائل ، أو الحل ، فيصبح الموضوع معلقا ... هل وصل السائل لغايته أم لا ؟ و أرى أنه من باب تقديرك لمن تابع سؤالك و حاول تحقيق ما تحتاج ( بمشيئة الله ) ، أن تشعره بتقديرك ، وشكرك ، لجهوده معك ، وأنك قد بلغت غايتك. ليس لأنه ينتظر المديح أو الشكر ، بل لأنه ينتظر ردك و يبغي التأكد من تحقيقه لغايتك. ........

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

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

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

ينقل ، كون المرفق فيه فائدة طيبة .....

جميع الروابط خارجية ولم اتمكن من تنزيل الملف يرجى من الاخ مصطفى الفيومي تحميل الملف ضمن الموقع شكرا

تحية طيبة تم تعديل العنوان تماشيا مع سياسة المنتدى ، توضيحا للدلالة شكرا

نتمنى على الاخوة الفضلاء مشاركتنا و إخوتهم بالحلول التي يتوصلون اليها بدلا من ترك المواضيع مبتورة خالية من الفائدة وشكرا

الادارة تم تسجيل 15 مشاركة شكر وتقدير للاخ الفاضل عمار زيد على موضوعه ، تم التعامل معها لاسباب تتعلق بعملية الارشفة نارت لبزو

Private Sub PassWord_Change() If Len(Me.PassWord.Text) > 10 Then MsgBox "لا يسمح بادخال أكثر من عشرة حروف" SendKeys "{BS}" End If End Sub هذا نقل للحل المقترح ، من خلال التطبيق المرفق "للتوضيح و الفائدة" .............

تحية طيبة ملؤها المحبة نأمل من الله ان تقر أعيننا بإبداعاتك ومواظبتك بارك الله لك وبك ............

نظرا لتعدد الروابط و النسخ وكونها روابط خارجية تم ارفاق الملف الاخير تفسير الجلالين.rar

للرفع

نتمنى منك ارفاق مثال بسيط للتطبيق و التعديل ، مساهمة منك في سرعة الرد ... شكرا .........