Amr Ashraf

جزاك الله خير تقبل تحياتى

يعنى الخطأ موجود عندك برده ؟ طيب اصدار الاوفيس عندك 32 ولا 64 ؟ يجوز ده السبب اصدار الاوفيس

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

منور اخى الكريم المرفق مشتغلش عندى وهوا Modal No وهوا ده الى انا بسأل عليه ليه الخطأ بيظهر عندى انا بس وليه بيختفى لما اغير Modal شئ غير منطقى بالمرة وعليكم السلام استاذنا جعفر سيتم النظر فى الرابط جزاك الله خير

يعنى كل الموضوع من الأول سوء تعبير منى ... طيب تمام مشكور اخى الكريم معلش وجعت دماغك

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

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

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

يعنى نزلت اخر مرفق وعملت زى مانا كاتب كده ومع ذلك شغال ؟؟؟ طيب العيب عندى فى ايه برده ؟؟!! وللعلم اخى الكريم انا فعلا بيظهر عندى مشاكل مش بتظهر عند حد هلى سبيل المثال المشاركة بتاعتك اللى فيها اخفاء اطار الاكسس والتصغير بيظهرلى خطأ Type Mismatch ويحددلى على كلمة AddressOfBook حاجة شبه كده مع ان المثال شغال مع كل اللى جربه طيب المشاكل دى سببها الاوفيس مثلا ولا ايه انا بشتغل على 2013 نسخة 64

اخى الكريم افتح نموذج Trans_Top واكتب اى بيانات واختار رقم طلب الصرف ثم اضغط اضافة ستظهر لك الصورة التالية طيب ادخل على خصائص النموذج وعدل كلمة Modal No الى Yes أو الغى خاصية PopUp وعيد ملئ البيانات واضغط اضافة هتظهر رسالة تم الصرف بنجاح بالسلامة اختفت المشكلة او على الاقل عندى بيحصل كده عاوز اعرف السبب ما علاقة ده بأى شئ !!! new.rar

أخيرا عرفت الفرق بين قاعدتى الاساسية والمرفق المرفوع بالنسبة لقاعدتى الاساسية الفورم Trans_Top معمول PopUp و Modal No اما بالنسبة للمرفق الفورم معمول PopUp و Modal YES لذلك : بالنسبة للمرفق 1-اذا قمنا بتحويل Modal Yes الى No سيظهر الخطأ اللى فى الصورة فوق اما على وضعه Yes بيفضل شغال بدون اى مشاكل !! 2-اذا قمنا بالغاء الPopUp من الأساس بيفضل شغال بدون مشاكل !!!!! المطلوب حد من الأساتذة يفهمنى ما علاقة الخطأ GoToRecord الظاهر فى الصورة ب PopUp و Modal على اعتبار انهم مجرد تنسيق وليس لهم علاقة بطريقة عمل النموذج ولا عناصر التحكم ؟؟؟ @Shivan Rekany @jjafferr @رمهان جزاكم الله خير

من غير ما اشوف اكيد ابداع بارك الله فيك

تشرفت بمرورك العطر اخى الكريم بنتعلم منكم

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

بسم الله الرحمن الرحيم نتابع من حيث توقفنا بأداة قوية و رائعة مجانية وغير محدودة بفترة معينة وكمان الSource Code متاح يعنى مفتوحة المصدر الأداة اسمها v-tools نشوف صورة الأداة بعد فك الضغط وتثبيتها ستظهر فى Add-ins أو الاضافات 1-الاعدادات مثل اللغة ومعلومات عن الاداة الخ... 2-معلومات فنية عن قاعدة البيانات مثلا تاريخ الانشاء واخر تعديل وهكذا 3-من المعروف ان الاكسس به الكثير من الصور والايقونات هذا الاختيار يمكنك من تطبيق هذه الصور على عناصر التحكم تابعوا الصورة 4- فى هذا الاختيار قوالب جاهزة لخصائص النماذج مثلا انا بعمل كل النماذج فى قاعدة معينة ممنوع الاضافات والحذف والتعديل سكرول بار عمودى وافقى مثلا وهكذا بهذا الاختيار ممكن تحفظ هذه الاعدادات فى قالب من تسميتك وتستدعيه لتطبيقه على اى نموذج جديد بدون الحاجة الى عمل الاعدادات مجددا كل مرة عند تصميم نماذج جديدة تابعو الصورة 5- ولا اعرف ده بتاع ايه ولا فاهم منه حاجة 6- من اقوى خصائص هذه الاداة هى مكتبة الكائنات مثلا انا فى كل قاعدة بيانات بصممها بحتاج اطبق عليها نظام صلاحيات المستخدمين اللى بيتكون من عدد من النماذج و الاستعلامات والوحدات النمطية الى اخره بدلا من استيرادها من قاعدة اخرى بعملية بسيطة جدا ممكن تحفظ الكائنات المفضلة فى مكتبتك الخاصة وتعملها ادراج فى اى قاعدة بيانات جديدة بدون الحاجة الى استيرادها او كتابة اكوادها مرة أخرى وفيها ايضا خاصية حفظ الاكواد تدرج كود مفضل وتستدعيه فى اى قاعدة جديدة تابع الصورة 7-خاصية البحث العميق فى النماذج والاستعلامات وهكذا ولكنها ليست بقوة الاداة الاولى فى الموضوع Find And Replace 8-بعد تصميمك لنموذج معين بألوان محددة يمكن ان تتغير الالوان بتغيير بعض اعدادات الثيمات فى هذا الخيار يثبت الالوان والتصميم ليظل ثابتا حتى لو تم تغيير الثيمات والألوان 9-من اقوى خصائص الاداة وهذه الخاصية العمل على SQL فى الخاصية دى بتتعامل مع جمل SQL فى الاستعلامات من حيث البحث والاستبدال وتغيير جملة معينة وتطبيقها على كافة الاستعلامات مرة واحدة بدون الحاجة الى فتح كل استعلام على حدى وايضا خاصية البحث داخل جمل الاستعلامات وعرض عدد النتائج الموجودة فى القاعدة والتعامل معها ايضا دفعة واحدة تابع الصورة و بكده نكون خلصنا شرح سريع للاداة باقى فقط تجربتها وممكن بعض الخبراء عندنا يعدلوا على الاداة لانها كما ذكرنا اداة مفتوحة المصدر واعتذر عن اى خطأ فى الشرح لاحظوا انى مجرد هاوى بالنسبة للأداة تعمل على كافة الاصدارات وده الرابط الرسمى للاداة و اصداراتها المختلفة ttp://www.skrol29.com/us/vtools.php دمتم فى أمان الله

أحب اضيف رابط مشاركة ((مكتبة الأكواد))

تمام اخى شيفان طريقة سهلة ورائعة

جزاك الله خير على مشاركتك القيمة اخى الكريم وفى انتظار المزيد

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

مفيش حد تانى بيضيف حاجة للموضوع ولا بيتفاعل معاه

جزاك الله خير استاذى الفاضل على المعلومة

أستاذ جعفر @jjafferr محتاج شرح الكود التالى بالتفصيل وخاصة حتة الفصل دى لأنى مش فاهمها نهائياً والعلامة '|' غير مألوفة Dim x() As String A = DLookup("[pn] & '|' & [Size] & '|' & [Vendor] & '|' & [Description] & '|' & [Maxrl] & '|' & [Maxrlegyptair] & '|' & [actype] & '|' & [pos] & '|' & [biasradial] & '|' & [code]", "code", "[pn]=forms!frm_dataentry!Combopn") x = Split(A, "|") ' For i = LBound(x) To UBound(x) ' Debug.Print x(i) ' Next i Me.pn = x(0) Me.size = x(1) Me.vendor = x(2) Me.Description = x(3) Me.Maxrl = x(4) Me.Maxrlegyptair = x(5) Me.ACType = x(6) Me.Pos = x(7) Me.BiasRadial = x(8) Me.code = x(9)

جزاك الله خير على الفكرة استاذى الفاضل ممكن تطبيقها عملى على المثال ؟

شوف الكود متطبق فى المثال !!!! متنساش تضغط كلمة Enable Content فى الشريط الأصفر لو ظهرت !!! 4.rar

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