مصلح الحريصي

يمكنك إظهار الجداول المخفية حتى ولو كان بالكود . كذلك مع القواعد التي تم تحويلها إلى MDE فيمكنك كتابة كود على أي قاعدة ثم تحديد مسار القاعدة التي تحتوي على الجداول المخفية وتستورد جميع الجداولها المخفية حتى ولو تم تحويلها إلى MDE

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

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

عمل طيب بارك الله فيك وأثابك على ما تقدمه وفقك الله

الأخ / مهند عمل رائع وفعلاً كنت ابحث عنه من فترة وقد استفدت من مثال الكثير وها أنت تتفضل علينا به بارك الله فيك بالنسبة لتعيين لون الخلفية في كل مربعات النص إلى أبيض ثم عين نمط الخلفية إلى شفاف فهي غير عملية لأن اللون يتغير ولكن الخط لون الخط لا يتغير أيضاً العناصر تأخذ لون النموذج بعد فقدان التركيز . طبعاً بعد إذنك أخي مهند لقد عدلت في الكود ليناسب الألوان التي أريد كذلك جعلت مربع نص اسفل النموذج يعرض معلومات عن أي عنصر يمتكل التركيز كتوجيه المستخدم أثناء إدخال البيانات وذلك بواسطة خاصة Tag للعنصر الذي يمتلك التركيز أيضاً اسنتجت من مثالك مديول يقوم بمسح محتويات جميع مربعات النصوص بدلاً من الإشارة إليها باسمائها وهو التالي : Public Sub TxtFa() Dim ctl As Control For Each ctl In Screen.ActiveForm.Controls If TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox Then With ctl ctl = "" End With End If Next End Sub الأخ أبو هادي لا مشكلة عند وجود Combo Box أو List Box كل ما عليك هو تغيير السطر التالي : I f T.ControlType = acTextBox Then بالسطر التالي : If T.ControlType = acTextBox Or T.ControlType = acComboBox Or T.ControlType = acListBox Then مرفق مثال للتعديل الأخ مهند / الرجاء الإطلاع على التعديل فربما أرتكبت بعض الأخطأ لها سلبيات لا أعرفها وذلك لتوجيهي لتجنبها بارك الله فيك Muhannad.rar

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

الأخ / مهند أنا وأثق من قدراتك في ذلك لقد جربت الكود ولكن ظهرت لي رسالتين الأول تطالب بعدد الوسائط . حتى يتم تنفيذ الكود لا بد من وضعه في حدث " في الحالي" _ Form_Current وهذا سبب رسالة نصها الأتي " يتطلب التعبير الذي أدخلته أن يتواجد عنصر التحكم في الأطار النشط " ليس السبب من الكود ولكن قد يكون مني أنا فهل لك أن تجربه على مثال ترفقه بارك الله فيك شكراً لك مقدماً .

شكراً أخت ليلى على الفكرة وأنا عارف ما تقصرين فيما لديك من معلومات. فكرة تغيير اللون عشوائي ما تنفع الهدف هو التحكم في خصائص العناصر على النموذج بدون التعامل مع الأحداث مباشرة . تخيلي لو لديك نمموذج عليه 12 مربع نص ويلزمك حدث تغيير لون خلفية مربع النص ولون الخط عند التركيز وعند فقدان التركيز هذا يعني أنك ستكتبين حدثين هما عند التركيز وعند فقدان التركيز وتكررين الأمر نفسه مع الــ 12 مربع نص وهذا يعني 2 ضرب12=24 ولو وصلنا للطريقة التي ابحث عنها فأننا نكون قد كتبنا برنامج عمومي واحد بدلاً من 24 أرجو أن نصل لذلك فهو سيختصر علينا مسافات طويله.

لدي نموذج اسمه ( Frm1 ) مربعات نصوص اسمائها ( Txt4)__( Txt3 ) __ ( Txt2) __ ( Txt1 ) المطلوب : Module عام يقوم بتغيير لون الخلفية إلى اللون الأسود ولون الخط إلى اللون الأبيض لكل Txt عند التركيز وتغيير لون الخلفية إلى اللون الأبيض ولون الخط إلى اللون الأسود عند فقدان التركيز من دون استخدام حدثي ( عند التركيز ) و ( عند فقدان التركيز ) . أي تتعرف Module على مربع النص الذي يمتلك التركيز وعلى خصائصه . حاولت استخدام screen.ActiveControl ولكنني لم أفلح في ذلك وعجزت في الوصول إلى ذلك. الرجاء ممن لديه معرفة في ذلك أفادتي بارك الله فيكم

حالياً اأعمل على الوورد حتى أصل إلى طريقة قريبة مما نريد ثم سأطرح الموضوع للمناقشة .

نعم بكل سرور هذا المثال أضف ما تريد من السجلات ثم أحذف ما تريد حسب الشرح الموضح على النموذج ولكن يجب عليك ضبط المرجع التالي : Microsoft DAO 3.6 Object Library Delete Records.rar

استخدم لغة اس كيو إل برمجياً فهي مطابقة للاستعلام والإختلاف فقط أنها تكون بالكود بدلاً من الاستعلام.

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

الأخت ليلى الموضوع سهل جداً أنظري إلى هذا المثال: Varname = DLookup("[name]", "tbl1", "[name]='" & Me![name] & "'") Varname متغير نخزن فيه الاسم من الجدول المطابق للاسم الموجود على النموذج DLookup دالة تأتي بالحقل المطابق من الجدول name حقل الاسم من الجدول tbl1 اسم الجدول الذي نبحث عن حقل الاسم فيه "[name]= هنا بداية الشرط وهو أن يكون الاسم = الاسم في مربع النص على النموذج Me![name مربع الاسم على النموذج أي اسم يأتي بعد كلمة Me فهو عنصر على النموذج

أحببت أن أكون من الجمهورمتفرج بس جمهور مين الله وأعلم :d الرسالة التي تظهر لك كما في السطر التالي : magic properly Text.ocx هي أداة أكتف أكس من عمل الأخ مهند عبادي وظيفتها تضبط النص " ضبط كلي " وقد قمت بإضافتها وتسجيلها. لتتخلص من تلك الرسالة من أدوات أختاري عناصر ActiveX ثم ابحثي عن اسم الأداة وعندما تجدينها في القائمة أنقري عليها وأختاري " إلغاء التسجيل " وإن شاء الله يعمل معك البرنامج وإذ لم يعمل فالأداة على الرابط التالي حمليها ثم أعملي لها نسخة في المجلد Sys32 ثم قومي بتسجيلها من أدوات أختاري عناصر ActiveX ثم حددي مسار الأداة وأختاري تسجيل . على فكرة الأداة ممتازة جداًً وعملها رائع قد تفيدك جربيها . شكراً للأخ / مهند عبادي على تلك الأداة الرائعة ولو أنها تحتاج تطوير . MagicProperlyText.rar

تم استبدال المثال جربي الآن

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

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

الأخت ليلى بالمحاولات أكثر من مرة وعدم اليأس ستصلين إن شاء الله ولكن يلزمك الإرادة . هذا مثال بعد أن تم التعديل عليه جربي وأخبرينا بالنتيجة سنتواصل معك حتى نصل إلى ما تريدين Lyla.rar

الأخ مهند لقد جعلت ما كان حلم في الماضي يصبح اليوم حقيقة أشاهدها بالعين الله يعطيك العافية . سبق وأن طرحة هذا الموضوع قبل السنة تقريباً ولم أجد عليه أي رد وقد أضاف أحد الأخوة على نفس المشاركة عبارة مضمونها " بانه لا يوجد أحد وهذا غير ممكن " وكان ردي عليه بأنه سيأتي يوماً ما من يعرف الحل وها هو جاء اليوم من حقق ذلك ولو تبحث عن مشاركة باسم الضبط الكلي في منتدى الفريق العربي ستجد ذلك. عموماً نطمع أن تضيف التحسيناة على تلك الأداه حيث أنها تظر لي رسائل عند الأحداث التالية وخصوصاً : Mouse Move Mouse Down Mouse Up Click لا أعرف سبب تلك الأخطأ مع أنه لا يوجد أي شفرات برمجية في تلك الأحداث . هذه صورة لواحدة من تلك الرسائل أيضاً لو أمكن إيجاد خاصية Magic Style . وكذلك خاصية التمدد والإنكماش فكما تعلم أن السجلات تختلف في نصوصها من حيث الطول أو القصر بعض السجلات تكون أسطرها كثير والبعض الأخر قليلة . أيضاً عندما يتم نغيير الخط في الأداة على التقرير يعلق الجهاز. عموماً ألف شكر لك على هذا الأنجاز فعلاً الأحلام تتحقق أحياناً

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

الأخ / مهند النص ليس ضبط كلي وإنما من اليمين فقط أنظر الصور التالية للأداة: أنظر النص من جهة اليسار الضبط الكلي هو كما في الصورة التالية : أنظر النص من اليمين ومن اليسار . ربما تكون هناك خاصية يجب ضبطها عموماً عمل أداة بحد ذاته شيء رائع ولا أظن أن من يستطيع تصميم أداة وبرمجتها كا التي قمت بعملها يصعب عليه إعداد وبرمجة الخصائص .

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

الأخت ليلى جربي هذا المثال فالحقول المشروطة فيه هي _(name_class_Subject) أما بالنسبة للحقل ID فللأسف لا يمكن أن يكون مشروط لأنه حقل ترقيم تلقائي . جربي المثال وأخبريني ربما يكون فيه أخطأ لم أكتشفها حيث أنني لم أجري عليه تجارب حتى أتأكد من خلوه من الأخطأ. db2.rar

الله يعطيك العافية أخي biskra على الرد الجميل من ميزة البرمجة وجود أكثر من طريقة ولكي نلم بأغلب الطرق نحاول دائماً المشاركة في الموضوع لنحصل في الأخير على أكثر الطرق. طريقة أخرى أيضاً في حدث عند ضغط زر الأمر If MsgBox(" أكتب هنا الرسالة التي تريد أن تظهر للمستخم", vbMsgBoxRight + vbYesNo + vbDefaultButton2, "أكتب هنا عنوان مربع الرسالة") = vbYes Then أكتب هنا الأوامر التي تريد من البرنامج تنفيذها إذا أختار المستخدم زر موافق Else أكتب هنا الأوامر التي تريد من البرنامج تنفيذها إذا أختار المستخدم زر لا End If