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

وعليكم السلام ورحمة الله وبركاته جرب هذا الكود على افتراض أن النموذج الفرعى مرتبط بجدول اسمه Tabl1 On Error Resume Next Dim delt Delt = "delete from tabl1;" If MsgBox("هل تريد بالتأكيد حذف البيانات ؟", vbInformation + vbYesNo, "حذف") = vbYes Then DoCmd.SetWarnings False DoCmd.runsql delt 0 DoCmd.SetWarnings True MsgBox "تم حذف السجل " Else MsgBox "تم الإلغاء " End IfEnd Sub

جزاك الله خيرا أستاذى الفاضل وأحسن الله اليك ليست المشكلة فى التحويل الى .accde وإنما المشكلة اﻵن بعد التحويل الى .accde من النسخة العربية ونقلها الى جهاز آخر به نسخة انكليزية لا تعمل. الا اذا نقلت النسحة السورس .Accdb واخذت منها .accde من على نفس الجهاز الذى به النسخة الانكليزية مع العلم سيدى أن كل القواعد اللى حضرتك ذكرتها مطبقة بالبرنامج من أسماء الجداول والحقول كلها بالانكليزية ولا أنسى أسعدنى جدا مرور حضرتك

سبحان الله ولا اله الا الله والله أكبر ولا حول ولا قوة الا بالله

للرفع

على حسب علمى والله أعلم الأبعاد الموجودة على المسطرة بشاشة تصميم النموذج هى بالسنتميتر فأنت بحاجة الى تحويلها الى مقياس بسكل لتتمكن من استخدامها فى vba والكريقة سهلة ان شاء الله حيث ا سم = 1440 بكسل تقريبا مثلا البعد اليسار على المسطرة = 1.67 سم اذا اليسار بالكسل = 1.67 * 1440 هذا والله أعلم تمنياتى بالتوفيق

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

سبحان الله والحمدلله هل من رد الله يبارك فيكم

هى دالة لعد حروف النص المحدد داخلها وتحويل الناتج الى رقم مثل M =len("أحمد") اذا m = 4 وهى مفيدة جدا عند الحاجة الى التعامل مع القيم النصية كأرقام

للرفع

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

هل من حل آخر سوى أخذ نسخة .accde من النسخة الانكليزية

جزاك الله خيرا أستاذنا جعفر ما أروع هداياك لا حرمنا الله منك زادك الله من فضله وكرمه

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

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

أخى اقرأ هذه المواضبع المتميزة لعلك تجد فيها مطلبك 1- http://www.officena.net/ib/index.php?showtopic=36167 2-http://www.officena.net/ib/index.php?showtopic=34117 3- وختامها مسك 4-http://www.officena.net/ib/index.php?showtopic=59415 تمنياتى بالتوفيق والسداد.

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

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

جزاك الله خيرا وجعله الله فى موازين حسناتكم

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

هل لصقت الكود فى باقى عناصر التحكم مع تعير اسم العنصر مثلا من CompanyName الى ADDRESS مثلا 2- هل غيرت خاصية تنسيق النص من نص عادى الى نص منسق 3- فى عناصر تحكم اسمها مشابه لاسم أعمدة الجدول ك address وغيره محتاج تغير اسمه حتى لاتجد خطأ القيمة المعادة

الصق هذا التعبير الجديد كمصدر لعنصر التحكم: =IIf( IsNull([textfind]);[CompanyName];Replace([CompanyName];[textfind];"<font color=red>" & [textfind] & "</font>"))طبعا حضرتك أدرى حتلصق الكود فى باقى عناصر التحكم مع تغير اسم العنصر الكود بالطريقة دى هيتفادى مشكلة خطأ النوع اللى كان بيظهر عند تغير comb1 أما عن موضوع تغير لون العمود المحدد فقط فمن باب التفكير بصوت عالى هعرض الفكرتين دول اختار منهما اللى يناسب حضرتك 1- الكود السابق مش هنخليه فى مصدر عنصر التحكم ولكن هيكون فى جدث عندللتغير لل comb1 طبعا مع وجود شرط اسك العمود 2- الكود كما هو فى مصدر عنصر التحكم ولكن هيكون فى مربعات نص أخرى بدون الكود السابق حنتحكم فى اخفائها أو ظهورها من خلال combo1 مع وجود شرط اسم العمود أرجو أن يكون اﻷمر واضح

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

بعد أذن استاذ محمد عصام مجرد اقتراح لماذا لا نجعل بأعلى صفحة التقرير صف اسمه (ما قبله) ويتم التجميع هكذا حتى نهاية التقرير ان كان هذا الاقتراح مناسب لحضرتك فإليك هذا الرابط http://www.officena.net/ib/index.php?showtopic=49019 تمنياتى بالتوفيق

ممتاز ماشاء الله عليك امض قدما متوكلا على الله ونحن فى خدمتك متى أردت

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