أبو عبدالله الحلوانى

جزاك الله خيرا أستاذ سعيد سأجرب وأوافى حضرتك بالنتائج إن شاء الله

وعليكم السلام ورحمة الله وبركاته انظر هذا الموضوع وفيه شكل علمة صح بالتقرير بمربع نص textBox وليس CheckBox والصورة بالمرفق توضح ذلك تنسيق علامة صح.rar

وعليكم السلام ورحمة الله وبركاته آسف جدا لتأخرى عن الرد فقد كنت منشغلا بالفترة الأخيرة ويبدو أننى عندما قلت: قد فهم كلامى خطأ وانا عنيت بهذا تجربت برنامجى الذى أتحدث عنه عندما قلت: وأعتذر عن هذا الخطأ الغير مقصود ... أما عن برنامج حضرتك فهو يعمل 100% والحمد لله وجزاك الله عنا خيرا وقد أفدت منه جدا فقد استللت منه كودا لصناعة الرسائل وهذا مرفق لتعم الفائدة وبالمرفق أيضا نموذج لتغير أسماء عناصر التحكم بالنماذج والتقارير دفعة واحدة دون الحاجة لغير اسم كل عنصر على حدة وهذا خلاصة ما توصلت اليه بالموضوع... ولكن وللأسف وبعد كل هذه المعاناة فى تغير أسماء عناصر التحكم بالنماذج والتقارير بمشروعى هذا والذى يحوى على 42 نموذجا وما يقارب من 38 تقريرا تقريبا وتعديل ما يلزم من تغير بالأكواد تبعا لتغير أسماء عناصر التحكم الا أن رسالة الخطأ ظهرة معى مجددا عند تشغيل البرنامج على جهاز آخر ولا أدرى الآن ما أصنع حيال هذا. MassageMaker.rar

جزاك الله خيرا

السلام عليكم ورحمة الله وبركاته أستاذ أبو محمد جزاك الله خيرا وبورك لنا فيك فقد فتحت لنا آفاقا جديدة واعذرنى فقد جاء تطبيقى لموضوعكم متأخرا لذى أرجو أن يتسع صدركم لى بطرح بعض الأسألة فى العقابات التى ربما قابلتنى أثناء التطبيق. أما العقبة الأولى الآن وهى أنى قمت بتحميل Sql server 2008 Sp2 و 2008 SQl server Management من موقع ميكروسفت وبعد تسطيب SQl Server بنجاح والحمد لله وعند تسطيب SQL Management وقبل الانتهاء من التسطيب تظهر هذه الرسالة وتنتهى عملية التسطيب بلا جدوى والصور المرفقة توضح خطوات التسطيب متتالية حتى ظهور الرسالة. مع العلم أن نسخة الويندوز لدى XP Sp3 فهل من تفسير لهذه الرسالة ووسيلة التخلص منها

آسف لم ألاحظ اجابة أستاذنا الغالى جعفر فكنت مشغول بكتابة الرد ........... وان علمت بها مسبقا لانسحبت وكفى الله المؤمنين شر القتال

وعليكم السلام ورحمة الله وبركاته حاولت أنزل مرفق حضرتك لكن تصادفنى مشكلة فى التحميل ولا أدرى ما السبب ولكن عموما لنقل التركيز من فورم فرعى الى رئيسى أو العكس بيتم استخدام الوسيطة .Form قبل اسم عنصر التحكم كأننا نتعامل مع نماذج منفصلة تماما , مثال : A فورم رئيسى B فورم فرعى A1 زر أمر على الفورم الرئيسى B1 زر أمر على الفورم الفرعى حتى نقوم بنقل التركيز الى B1 عند الضغط على زر A1 سنستخدم هذا الكود Private Sub A1_Click() Forms!A!B.Form.B1.SetFocus End Sub جربه لعله يجدى نفعا

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

مساهمة مع الفكرة التى طرحها أستاذنا رمهان لا بأس أن تضع سالب واحد دلالة على غير المتزوج خاصة أن هذا الأمر سيعمل على تيسير عملية فلترة البيانات على حسب معيار اذا كان متزوج أم لا مثالا للتوضيح لنفترض أنى أريد تقرير به عدد المتزوجين ويعولون أولاد - وكذلك عدد المتزوجين ليس لديهم أولاد - وكذلك عدد غير المتزوجين فبامكانى الحصول على ذلك بسهولة من خلال استخدام دالة بسيطة كهذه: Dcount(a,tbl,a >1) 'for marege and have sons Dcount(a,tbl,a =1) 'for marege and dont have sons Dcount(a,tbl,a = -1) 'for not marege and nothave sons هذا والله أعلم

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

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

اذا كان الأمر كذلك فانظر المرفق بعد التعديل لعله مطلبك والآن أصبح سير العمل هكذا نبدأ بادخال الرقم فان كان موجود بقائمة الأرقام سيظهر الاسم والا فستنتقل الى الاسم للادخال وبعد سيتم حفظ البيان الجديد ضمن عناصر القائمة لا تنسى موافتنا بالنتائج مع تمنياتى بالتوفيق test2.rar

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

تفضلى هذا كود التجميع بعد تحويل الزمن الى دقائق ثم القسمة على 60 كما قام أستاذ أبو خليل بالتوجيه وللأمانة كود التجميع ليس لى وإنما للأستاذ رمهان حفظه الله aa.rar

ما أعلم أن قيمة المدخل بالحقل يقاس بالبيت bit ومعلوم أنها أصغر وحدة قياس وسواء تم ادخال الصفر أم ترك الحقل فارغ فلا فرق ولكن المهم هو نوع وحجم البيان الذى تم تخصيصه للحقل عند تصميم الجدول فإن الأكسس يحجز لهذا الحقل حجما بالذاكرة على قدر نوع وحجم البيان المعد من قبل المصمم سواءا ترك الحقل فارغا فيما بعد أو ملأ بالبيانات, مثال: لنفترض أن الحقل A بالجدول tbl1 اعداده نص وحجمه 255 فإن الأكسس يحجز لهذا الحقل بالذاكرة 255 بيت بغض النظر عن حجم البيان الذى سيتم ادخاله بعد فى هذا الحقل أكان مساوى ل 255 أم لا أم كان الحقل فارغا أصلا. هذا والله أعلم

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

اسمحلى باستفسار حتى أفهم التسلسل المنطقى للعمل لديك أولا حضرتك بتختار الرقم أولا من ال comboBox وتريد أن يظهر الإ سم تبعا للاختيار ثانيا تريد حفظ هذه البيانات داخل الجدول مع قبول التكرار فى بيانات الرقم والاسم اذا كان هذا الذى تريده بالضبط فالعمل سيكون على النحو التالى انظر المرفق test2.rar

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

جرب هذا مع أن النتائج لم تضبط معى عند التجربة ولكن عند فتح الجدول وجدت القيم مكتوبة بشكل عشوائى فعلمت السبب فى عدم ضبط النتائج. وعموما لعل هذه المحاولة تقرب لك مرادك تمنياتى بالتوفيق test2.rar

تفضل لعله يشبه ما تريد تمنياتى بالتوفيق Inputbos.rar

السلام عليكم ورحة الله وبركاته الموضوع قدطرح بالمنتدى أكثر من مرة وتمت الاجابة عنه باجابة واحدة فى محتواها وهى اختلاف اعدادات اللغة أو اختلاف اعدادات الويندز المشكلة هى أن البرنامج بعد تصميمه على جهاز المبرمج ونقله الى جهاز العميل تظهر رسالة خطأ تفيد أن مشروع vba معطوب أو لا يمكن قرأته والسؤال الآن كيف يمكن جعل البرنامج يعمل على جميع الأجهزة مع اختلاف اعداداتها الخاصة باللغة أو غيرها ؟ وهو الهدف المنشود والا فالبرنامج بهذه الطريقة لا يصلح سوى للاستخدام الشخصى فحسب !!!!!!!!!!!!!!! ثم يقوم أحدنا بتصميم البرامج التى لا تعمل الا على جهازه هو فقط - ويا ضيعت الأعمار تمضى سبهللا (رحمك الله ياشطبى) - أرجو من الله أن يوفق الجميع وجزاكم الله خيرا

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

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

حى الله استاذى الكريمين أستاذ جعفر وأستاذ سعيد وكل من ساهم بالرد من الاخوة الكرام ظننت أن سؤالى واضح جدا ولكن على العادة ظنى يأتى بالعكس وعلى كل - ان بعض الظن إثم- فعلا أستاذ سعيد الحدث الذى أتعامل معه عند التنسيق وما أريده بالضبط أنى لدى اجمالى بتذيل الصفحة بالتقرير واجمالى بتذيل التقرير ومعلوم أن الصفحة الأخيرة سيظهر بها كلا الاجمالين وما أريد أن أصنع الأن أن أقول بلغة الكودطبعا اذا كانت هذه الصفحة الأخيرة فقم باخفاء اجمالى الموجود بتذيل الصفحة واظهر اجمالى تذيل التقرير وذكرت بالمشاركة اﻷولى أن استخدمت هذا الكود ولكن لم يعمل بشكل صحيح وهذا هو: If page =pages then أرجو أن يكون اﻷمر قد اتضح شيئا ما

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