rawya

تحياتي ...ولكم الشكر الجزيل صحيح هذا ما أعنيه بالضبط .. حاولت ان اجرب الطريقة التي ذكرتها لكني لم أعرف كيف اخفي النموذج :$ هذا و جزاكم الله خيراً ..

السلام عليكم و رحمة الله ... أريد إطلاق حدث قبل إغلاق قاعدة البيانات ..كيف يمكن ذلك ؟؟ ..................................................................

تحياتي .. كان هناك خطأ في مصدر البيانات وترتيبها ما ان قمت بتغييره حتى حلت المشكلة والحمدلله .. شكرا لاهتمامك اخ جمال .. :(

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

السلام عليكم ورحمة الله.. أرجو منكم المساعدة في المشكلة التالي .. لدي حقل تعداد calculated لحساب عدد الحقول control Source = count([studentNo]) كان يعمل بشكل عادي .. ولكن عند اضافة حدث عند فتح النموذج أياً كان ..مثلاً private sub form_load() msgBox " hi" end sub أصبح النموذج يتوقف "يعلق" عند الفتح.. حاولت تغيير الحدث ليكون عند الفتحon Open عند التشغيلon Load عند التفعيل on activate ولكن لا تزال المشكلة قائمة ... :)

تحياتي لكم جميعا me.recordsource="جدول1" في حالة استخدام هذا الكود فإن التغيير ممكن فقط اذا كان النموذج مفتوح.. و نفس الامر بالنسبة لجميع الخصائص مثلا لون الخلفية ، مرئي .... الخ فجميعها لا يمكن تغييرها الا إذا كان النموذج مفتوح.. و هذا يعني ان الزر يجب ان يكون على النموذج ذاته .. أما إذا كان الزر على نموذج آخر و هو الذي يقوم اساسا بفتح النموذج فإن الامر يختلف .. أرجو ان تكون الفكرة واضحة .. وحقيقة قد وجدت طريقة خلال بحثي أود ذكرها للإفادة و كذلك فرصة للتنقيب عن طريقة افضل .. والطريقة كالتالي: تعريف متغير عام في موديول جديد لنقل أنه strSource Global strSource as string عند الضغط على أي زر تتعدل قيمة المتغير strSource = "table2" وعند حدث البداية onLoad نغير خاصية "مصدر الحقول"recordSource لتصبح بقيمة المتغير Me.recordSource = strSource و تحياتي الخالصة...

السلام عليكم ... مثال : لدي "جدول1 " فيه بيانات الطلاب و "استعلام1" فيه بيانات الطلاب الراسبين في الواجهة الرئيسة زرين احدهما لفتح نموذج يعرض بيانات الطلاب والاخر لعرض نموذج به بيانات الطلاب الراسبين طبعا قمت بانشاء نموذج لعرض بيانات الطلاب .. " البيانات من جدول1" اعرف انه ممكن ان انسخ نفس النموذج و اغير اسمه و اغير مصدر البيانات فيه source لكن في هذه الحالة سيزداد عدد النماذج من غير داعي .. بالاضافة إلى اني لو اردت التغيير في النموذج .. يجب ان اغير كلا النموذجين ..................... هذه هي القصة بالتفصيل و بانتظار ردودكم

السلام عليكم ... سؤالي كالتالي : كيف أستخدم نفس النموذج او الفورم لمصدرين مختلفين مثلا : اضغط أحد الازرار فيفتح النموذج أو الفورم وفيه بيانات ( جدول 1) ثم بزر آخر يفتح النموذج نفسه بالبيانات ( استعلام 1) فما هي الطريقة..

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

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

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

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

سيدي هذا ما قمت بفعله بالضبط .. وكما ذكرت يظهر لي المسج بعد أي إضافة ، تحديث أو حذف لأي عنصر في النموذج

في البداية أشكرك على الرد .. في هذه الحالة بعد أي إضافة سيظهر التنبيه..في حين أريده ان يظهر فقط عند الاغلاق..

السلام عليكم.. أريد إظهار رسالة تنبيه و اطلاق حدث SomeEvent وذلك عند اغلاق النموذج .. ولكن فقط إذا تم إي تعديل أو إضافة أو حدف لحقول النموذج .. :h

أعود لمشاركتي ... و هذا مثال لتنسيق الشعر بالهتمل http://www.araboasis.net/modules.php?name=Poet طبعا هنا يستخدم لغة جافا سكريبت لتنسيق النصوص أما بالنسبة لي فلدي الأبيات في حقول قاعدة بيانات يفصل بين كل شطر مسافة معينه او رمز معين وأريد تنسيقها بضغطة زر .. تصورت أن هذا الأمر موجود .. لكني بحثت ولم أجد والا يجب علينا كتابة الكود نفسه

أشكرك أخي الكريم على اتاحة الفرصة :( ولكن لا اظن لو اتيحت لي سنة من التفكير ان اعرف كيف احل تنسيق الشعر .. والذي اوردته في مشاركة أخرى .. يمكنك الاطلاع عليها وبالنسبة للكود السابق .. فهل أضمن باستخدام الترميز asc عمل الدوال على الانظمة التي لا تكون اللغة العربية فيها مدعومة أساساً .. حيث أن استخدام الرموز العربية في الكود كان يفشل معي مثلا InChar = Replace(InChar, "ٍ", "") لا يعمل على جميع الاجهزة ... وشكرااااً

جزاك الله ألف خير (y)

السلام عليكم و رحمة الله أرجو أن تكون صياغة سؤالي واضحة ما اريد فعله هو أضافة زر في النموذج و عند الضغط عليه يتغير الفورم من وضع العرض فقط ِAllow Edits = No Allow Additions = No Allow Deletions = No إلى وضع الادخال والتعديل بحيث تتغير الخصائص السابقة من no إلى Yes فهل يمكن تغيير الخصائص propertis باستخدام كود معين ام يجب علي تصميم نموذج آخر للتعديل إضافة للنموذج الحالي المستخدم للعرض فقط ؟؟؟ و تقبلوا شكري ... و تحياااااااااااااتي

تحياتي للجميع تأخرت ردودكم أخواني الكرام .. فلم يبقى إلا ان اجيب نفسي بعد أن تمكنت من حل المشكلة لقد استخدمت الدالة asc() للتحويل في حين يجب استخدام chr() Function RmTashkeel(InChar As String) As String If Len(InChar) = 0 Then Exit Function InChar = Replace(InChar, Asc(126), "") InChar = Replace(InChar, Asc(240), "") InChar = Replace(InChar, Asc(241), "") InChar = Replace(InChar, Asc(242), "") InChar = Replace(InChar, Asc(243), "") InChar = Replace(InChar, Asc(245), "") InChar = Replace(InChar, Asc(246), "") RmTashkeel = InChar End Function ما زالت لي اسئلة آخرى في المنتدى .. ارجو المساعدة

السلام عليكم ورحمة الله و بركاته كتبت دالة باستخدام VBA تعمل على ازالة علامات التشكيل في النص الذي يمرر إليها وللأسف فعلمي بسيط بهذه اللغة .. لذا فقد استخدمت اول ما تبادر لفكري لحل المشكلة كتبت الكود التالي لكنه لم يعمل Function RmTashkeel(InChar As String) As String If Len(InChar) = 0 Then Exit Function InChar = Replace(InChar, Asc(126), "") InChar = Replace(InChar, Asc(240), "") InChar = Replace(InChar, Asc(241), "") InChar = Replace(InChar, Asc(242), "") InChar = Replace(InChar, Asc(243), "") InChar = Replace(InChar, Asc(245), "") InChar = Replace(InChar, Asc(246), "") RmTashkeel = InChar End Function اتمنى منكم المساعدة .. وشكرا

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

جزاك الله خير استاذ امجد .. شاكرة لك تجاوبك الدائم و اجاباتك الشافية .. :(

الطريقة الاعتيادي أخي الكريم

نعم هذا ما اريد .. لكني فشلت في اظهارة بهذه الطريقة .. :)