نجوم المشاركات

السلام عليكم هذا اول برنامج اقوم بعمله على الاكسس وهذا العمل تحت اشراف الاساتذه الكبار بهذا الصرح التعليميى الكبير وكنت انوى عرضه بعد تقفيله ولن لظروف خاص لم اتمكن من ذلك ولحرصى على ان يستفيد الجميع وليكون مرجع لكل مبتدء مثلى لما به من خلاصه دروس الاساتذه الكبار الذين احبهم فى الله وادعوا المولى عز وجل ان يعطيهم من الخير قدر كرمه البرنامج تم تحت الاشراف المباشر لاستاذى الجيليل أبـوخليل بارك الله فيك وكذلك جميع الاساتذه والاخوه بهذا الصرح الكبير ______________________________- بعض المشكلات التى واجهتنى بالبرنامج: اولا لم اتكمن من حفظ نشخه مقفله منه وتواجهنى هذه الرساله : وكنت فى حيره من امرى ؟ هل اقوم باخفاء الاكسس ام اقوم بعمل قوائم مخصصه على الاكسس اترككم مع بعض الصور student_up.rar

حياك الله عبدالعزيز اخا عزيزا بالنسبة للنظام فالحق لصاحب السؤال فله الاولوية في الاجابة و لافرق كثير في ذلك فما ينطبق على هذا ينطبق على ذاك مع العلم اني قد قدمت سابقا درسا في ادخال الدرجات حسب النظام اليمني هنا http://www.officena.net/ib/index.php?showtopic=55142&page=1#entry348627 وحقيقة اعتبر هذا الدرس مكررا ولكن لصعوبة فهمه على المبتدئين هناك فإني احاول هنا ان انحو نحوا مغايرا في الشرح

الأخ الحبيب أبو سليمان ... بارك الله فيك على العنوان الجذاب . بس خلي بالك دا آخره عذاب .. لأن شغل الكتاتيب طالما طالبت بيه ، يبقا لازم الفلكة (ودي أداة العقاب في الكتاتيب ) يعني اللي مش هيركز ويفهم يبقا يستاهل اللي يجرا له .. الفلكة متحضرة !! والله زمان يا أبو سليمان بالنسبة للمعادلات المركبة من هذا النوع . متفكرش إننا لما نيجي نكتب معادلة زي دي بتلاقينا نكتب علامة يساوي ونبدأ نكتب دا كله (دا شغل عباااااااااااااااقرة نادر وجودهم) لا طبعا ... المعادلة المركبة فكرتها في عملية البناء .. أي بناء المعادلة . طوبة طوبة .. دالة دالة ..كل دالة تؤدي غرض معين .. وتخدم الأخرى وهكذا يبقا عشان تفهم المعادلة اتعملت إزاي .. تعمل ايه ؟؟ فيه واحد بناها ..قوم إنت وهدها (أيوا والله زي ما بقولك كدا) هدها ترتاح .. أقصد بالهدم ليس التخريب وإنما التقسيم (قسمها .. يا إما الفلكة هتقسم عليك) تبدأ تاخد الأجزاء الصغيرة في المعادلة .. وتشوف الغرض منها وهكذا أنا مش هشرح المعادلة بتاعتك لأني مش فاهم هي بتعمل ايه ؟؟ متستغربش . مش فاهم لأن مفيش ملف مرفق..!! هديلك مثال من عندي في الخلية B1 اكتب المعادلة دي =IF(MID(A1,1,1)="Y",LEN(A1),"أوت يا كبير") واكتب اسم Yasser في الخلية A1 وشوف النتيجة واكتب اي اسم مش بيبدأ بحرف الـ Y وشوف النتيجة طبعا المعادلة مركبة فيها 3 دوال .. يبقا لازم تفهم كل دالة لوحدها الأول عشان تقدر تفهم المعادلة كلها ابدأ من الأول (أول دالة IF ... تعال على القوس اللي بعد كلمة IF في المعادلة وانقر بالماوس ، هتلاقي الإكسيل ببساطة قدم لك مساعدة من عنده .. ويقولك على البارامترات الخاصة بالدالة .. =IF(logical_test,[value_if_true],[value_if_false]) دا تلميح بيديهولك برنامج الإكسيل عشان تعرف الدالة دي بتشتغل إزاي .. نترجم اللي قاله الإكسيل : بعد اسم الدالة فتحنا قوس .. البارامتر الأول الشرط المطلوب عمل اختبار عليه ، والبارامتر الثاني هو ايه اللي يعمله الإكسيل لو الشرط تحقق ، والبارامتر الثالث ايه اللي يعمله الإكسيل لو لم يتحقق الشرط .. كلاااااااااااااااااااااام معقد .. طيب السؤال إزاي نقدر نعرف البارامترات وأجزائها في المعادلات المركبة .. ببساطة شفت الهنت Hint التلميح يا أبو سليمان متغلبنيش معاك .. التلميح اللي ظهر لما عملت كليك على القوس اللي بعد كلمة IF في المعادلة .. ببساطة انقر داخل التلميح نفسه على الجزء اللي إنت عايزه هتلاقي الإكسيل بيظلله ..حلوة دي أكيد .. أكيد عجبتك .. معجبتكش وعارفها .أمال بتسأل ليه ؟؟ لو عملت كليك على كلمة logical_test هتلاقي الإكسيل ظلل الجزء الأول الخاص بالشرط MID(A1,1,1)="Y" كليك على الجزء الثاني هتلاقي الجزء المظلل LEN(A1) كليك على الجزء التالت هتلاقي الجزء المظلل "أوت يا كبير" مش بقولك إنت والله ..دا النص في المعادلة لو الشرط متحققش .. طيب يبقا كدا عرفت أجزاء المعادلة الرئيسية (الشرط - والشرط لو تحقق - والشرط لو لم يتحقق) فاصل ونواصل .. رجعنا لكم بعد الفاصل الغير إعلاني نمسك جزء جزء ونبدأ نحلله ونشوف اتعمل إزاي الجزء الأول : الشرط MID(A1,1,1)="Y" الدالة Mid بتتعامل مع النصوص .. ونفس الكلام اللي قلناه مع الدالة IF نعمل كليك على القوس اللي بعد اسم الدالة Mid نلاقي تلميح الإكسيل بيشرح لنا بارامترات الدالة Mid هنلاقي التلميح بالشكل ده =mid(text,text_start_num,num_chars) وبردو 3 بارامترات : الاول النص اللي هنشتغل عليه ودا في المعادلة النص الموجود في الخلية A1 فكتبنا A1 الثاني هو نقطة البداية : هتبدأ منين في النص .غالبا هنبدأ من أول النص فنكتب هنا رقم لأن البارامتر دا رقمي .. فكتبنا واحد 1 .. بداية النص الثالث هو عدد الحروف المراد استخراجها من داخل النص وهنا أنا كتبت واحد 1 عايز أطلع حرف واحد والناتج اللي هيطلع هيكون عبار عن نص .. طيب لو عايز أعرف الناتج ممكن تحدد بالماوس الجزء ده MID(A1,1,1) وتضغط من لوحة المفاتيح F9 هتلاقي الناتج ، بس متنساش تضغط Ctrl + Z للتراجع فلو كان الاسم في الخلية A1 هو Yasser هيكون الناتج Y بين أقواس تنصيص لأن دا نص يبقا الشرط هو إننا بنشوف أول حرف هل هو حرف الـ Y أم لا ؟؟ لو تحقق الشرط هيعمل ايه ..هيبدأ تنفيذ الجزء الخاص بتحقق الشرط في دالة IF الجزء الثاني في الدالة IF LEN(A1) ودي دالة سهلة ويسيرة بتحسب عدد حروف النص فلو كان الاسم في الخلية A1 بيبدأ بحرف الـ Y هتقوم الدالة بعد عدد الحروف لهذا الاسم وإذا لم يتحقق .. ننتقل للجزء الثالث والأخير الخاص في حالة عدم تحقق الشرط ألا وهو ظهور النص ("أوت يا كبير") دا كان مجرد مثال لتوضيح وتقريب الصورة ليس أكثر ولا أقل أرجو أن أكون قد وفقت في توصيل المعلومة بأسلوب كتاتيبي .. ولما نشوف هنشغل الفلكة ولا هتفضل مركونة تقبل تحياتي

أخي الحبيب هشام الحاجة أم الاختراع كما يقولون . فكرت ثم فكرت ثم بحثت فلم أجد حلاً مناسباً .. فخطرت لي فكرة (ويا سلام عليا لما تخطر لي فكرة .. مبستناش .تلاقيني علطول أو على عرض ..بابدأ تنفيذ الفكرة الفكرة بدأت من إمكانية إدراج صورة في تذييل الصفحة . فقلت يبقا الحل بسيط .. نشوف الأسطر اللي عايزين نعملها كتذييل .. وناخها كصورة .. وتم ذلك عن طريق زر Print Screen من لوحة المفاتيح ..(الصورة المرفقة بها خطوط الشبكة يمكن التخلص منها بسهولة إذا أردنا ... يعني ببساطة ننسق الأسطر زي ما إحنا عايزين وبالشكل اللي إحنا عايزينه ، وبعدين ناخد الأسطر دي كصورة ، ونروح لبرنامج الرسام في الويندوز ونلصق الصورة طبعا هتكون الصورة لكامل الشاشة ، نقوم نعمل ايه يا عم هشام؟ نقص الجزء اللي عليه العين والنن ، الجزء المطلوب أقصد .. ونحفظ الصورة بأي اسم (سميها باسمي ! لأزعل منك) لحد كدا تمام .. قول : تمام ................ مقولتش ليه : سامعك على فكرة نيجي للشيت المطلوب عمل الصورة دي ليها كتذييل للصفحة وندخل على التبويب Insert ثم Footer وفي الـ Footer هنلاقي فوق ظهر أمر اسمه Picture ننقر عليه ونحدد مكان الصورة اللي حفظناها .. لحد كدا تمام .. قول تمام .. أيوا الله ينور عليك نعمل معاينة هنلاقي إن الصورة متداخلة مع اللي موجود في الشيت نقوم ندخل التبويب Page Layout وبعدين Margins الهوامش ,ونختار Custom Margins ونبدأ نزود الهامش السفلي ، حتى نقوم بعمل ضبط للصورة حتى تظهر بدون تداخل مع البيانات الموجودة في الشيت .. اضبط الهامش السفلي واعمل معاينة لحد ما تطمئن نفسك إن دا هو المطلوب ... ومرفق لك مثال من عندي .. عملت فيه اللي أنا شرحته بالتفصيل أرجو أن أكون قد وفقت في الوصول لحل .. وإن شاء الله يعجبك الحل .. Rows To Repeat At Bottom.rar

بسم الله الرحمان الرحيم السلام عليكم تكملة لموضوع النص التنبئي على الكمبوبوكس http://www.officena....showtopic=59463 الموضوع السابق ذكره تم التطرق الى البحث داخر القائمة المنسدلة ذات عمود واحد الجديد اليوم هو البحث داخل القائمة المنسدلة بواسطة النص التنبئي لاكن مع وجود اكثر من عمود في القائمة تم عمل مثالين توضيحين الاول مطبق على الشيت اما الثاني مطبق على الفورم وكلاهما لهم نفس الوضيفة انما تم عمل المثالين ليتكون الفكرة وضحة واشمل في الاخير ارجو من الاعضاء تقديم ارائهم و ملاحضاتهم لنطور الموضوع اكثر ونصل الى افضل النتائج معا لرفع المستوى ******************* تحياتي للجميع تم تغير المرفق بعد 12 تحميل النص التنبئي.rar

السلام عليكم ورحمة الله وبركاته أخي الكريم ..الأعضاء في المنتدى لا يبخلون على أحد ، ولا ينتظرون مقابلاً مادياً ، ولا يتقاضون أجراً .. إنما كل يجود بما عنده ، من علم أو وقت .. فلا تستعجل .. وأكرر فلا تستعجل .. ولا تعتقد أنك بقولك " وينكم يا مبرمجين ؟ " أنك ستستنفرهم ، بالعكس ، لقد هممت ألا أجيب على طلبك ... ولكن خشيت أن أكون ممن يكتمون العلم فبالله عليكم إخواني رفقاً بإخوانكم .. رفقاً بإخوانكم الذي يقدمون المساعدة .. تفضل الملف المرفق .. فيه زري أمر أحدهما لبدء عملية الترحيل ، ويبدأ بعدها الترحيل كل 10 ثواني - بالطبع يمكنك تغيير الوقت كما تشاء - ، والزر الآخر لإيقاف عملية الترحيل .. أي إيقاف العداد .. أرجو أن يكون هذا هو المطلوب Transfer Data Every 10 Seconds.rar

السلام عليكم انفضل اخى الكريم تم نعديل الملف ترتيب.rar

استاذى الفاضل soft.sample بارك الله فيك اسعدنى مرورك وفرحت به ارجوا التقييم وابداء الملاحظات والاقتراحات بالتعديل

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

السلام عليكم تفضل أخي هذا البرنامج حل المشكلة: http://www.datanumen.com/access-repair/ جعفر 9.khaled2015_fixed.accdb.zip

شكراً لك ااستاذي الكريم وشكراً مرة أخرى لأني أعرف انك ترهق نفسك في ذلك ولا املك الا الدعاء لك ================================ ان شاء الله تكون المشاركة القادمة لمتعدد الصفحات لان جهازي متعدد الصفحات وايضاً الوثائق التي لدي لا تقل معضمها عن 5 اوراق وقد تصل الى 15 ورقة ================= ولا زلت ايضاً لنتظر مشاركة اخينا رمهان وشكراً

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

معذرة هذا تصحيح للكود اعلاه vl: IIf([nmb]>0 And [nmb]<501;[nmb]*0.25;IIf([nmb]>500 And [nmb]<751;[nmb]*0.5;IIf([nmb]>750;[nmb]*0.75))) وسأنظر في طلبك الثاني ان شاء الله .. ان استطعت

سبب امتناع التحويل الى mde هو وجود وحدتين نمطيتين بمسمى واحد تم التعديل ويمكنك الآن التحويل اما بالنسبة للملاحظات فتصميمك الحالي يناسبه اخفاء الاطارات ويمكنك ان اردت الاستغناء عن الواجهة الرئيسية وتحويلها الى قوائم منسدلة student2.rar

السلام عليكم الف مبروك عمل رائع اخ ابو الأء والبرنامج يمكن تحويله الى mde بالتوفيق

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

أخي الفاضل .. تطلب الطلب بشكل وكأننا نفهم المرفق بشكل جيد رفقاً بنا أخي الفاضل .. اشرح بالتفصيل ويا ريت بمثال توضيحي المطلوب ... ايه اللي ترميه في التفصيلي .؟؟ أرفقت الملف هاهنا ... Book1.rar

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

شكرا لك استاذنا ابو خليل وجزيت خيرا

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

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

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

تفضل 1. اضفنا حقل جديد في الجدول Items ، اسمه Taxable ، بصيغة نعم/لا (يعني المادة اللي يكون عليها ضريبة ، تختار الصح ، وإلا ، لا تختار شئ) ، لاحظ عملت جميع المواد عليهم ضريبة إلا Toshiba icore5: 2. في النموذج الفرعي ، للحقل Item_No ، اضفنا حقل Taxable ، وذلك حتى يميز الكود الفرق في ضريبة المواد: 3. وهذه النتيجة: 4. بالنسبة الى الخصم او الضريبة ، فيمكن ادخالهم باليد (يعني انك تخلي خانات ثابته للارقام المتداوله دائما ، وعندك الخيار في ادخالها يدويا كذلك). جعفر 5.1.test.mdb.zip

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ الحبيب ياسر خليل مبدع دائما في اعمالكم وفي انتقائكم لدرر الاعمال بارك الله بكم ووفقكم لخير الدنيا وخير الاخرة واعطاكم الصحة والعافية تحياتي وفائق احترامي

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

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

الأخ ميسرة إليك حل آخر بجانب حل الأخ الحبيب محمد الريفي الحل بدالة معرفة ... قمت بدمج الحلين في ملف واحد Reorder Numbers By Formula & UDF.rar

تسلم يا استاذ ياسر كل مواضيعك مبدعة ويسلم صاحب الدالة

اخوتي الفضلاء بالتجربة و التدقيق يلزم وجود 2007 Microsoft Office Add-in: Microsoft Save as PDF أو .. 2007 Microsoft Office Suite Service Pack 3 (SP3) موجود على الرابط .... http://www.microsoft.com/en-us/download/details.aspx?id=9943 .... تم التدقيق وعمل بنجاح لورقة واحدة ....

الصور فى المشاركه رقم 37 لم تظهر لدى وحاولت اكثر من مره الملف الاخير لم ادرسه جيداا لظروف خاصه ان شاء الله سوف يتم الدراسه جيداا

جرب هذه الإضافة MasNoPass.rar

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

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

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

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

السلام عليكم ورحمة الله أخي الكريم أبو عاصم، أولا أن تقوم بتغييرات على اسمي "ابن عليه حجي" بنقل حرف "ا" من كلمة "ابن" ووضعه بين حرفي "ح" و "ج" في كلمة "حجي" فيصبح الاسم كما يلي "بن علية حاجي" وثانيا ألق نظرة على الملف المرفق علك تجد فيه المطلوب الأول، بالنسبة للمطلوب الثاني تجدني لم أفهمه جيدا فالرجاء وضع أمثلة في الملف لما تريده... أخوك بن علية المرفق : FINAL3-3 _2.rar

هل المطلوب نسخ البيانات الموجودة في الورد Word إلى ورقة العمل المسماة Donnée أو إلى ورقة العمل المسماة (جدول المنح المتأخرة)؟؟ هل البيانات الموجودة مسبقا في ملف الإكسيل سيتم مسحها تماما .أم أن البيانات الجديدة سيتم إضافتها على البيانات القديمة ..؟؟ مزيد من التوضيح وبلاش الفرنساوي ..لو إنجليزي ماشي عشان أنا متمكن جدا جدا في الفرنساوي أقصد الإنجليزي

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله عندي جدول- في وورد 2007 - واريد عمل ترقيم تلقائي لمسلسل 1 2 3 4 هكذا .... ماهي الطريقة لو سمحتوا ؟ جزاكم الله خير

اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين

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

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

حقاً كنا نحتاج لمثل هذا الحل المهم ......... شكر كبير وربي يوفقكم

شرح الطريقة : ( حسب المثال المرفق) لدينا نموذج غير منضم يشتمل على عدة حقول ومربع تحرير مصدره جدول معين ونريد عندما نختار اسما معينا من مربع التحرير ان تظهر بقية بيانات السجل اسم مربع التحرير combo1 واسماء الحقول الاخرى txt1 .. txt2.. txt3...... وهكذا ____________________________________________ لنلقي نظرة على محتويات مربع التحرير الداخلية : - ننقر بزر الفأرة الايمن على مربع التحرير ونختار خصائص - نفتح على لسان التبويب : بيانات - ننقر على النقاط الثلاث التي بجانب القيمة : مصدر الصف سيفتح الاستعلام الذي هو مصدر الصف لمربع التحرير لاحظ ان الاستعلام يحتوي على 8 اعمدة وهي الحقول الموجودة في سجل الجدول معرف العمود الاول = صفر معرف العمود الثاني = 1 معرف العمود الثالث = 2 وهكذا ........ هذه المعرفات سنحتاجها عندما نرغب في جلب البيانات من مربع التحرير _________________________________________ الآن نرجع الى النموذج على عرض التصميم وننقر على مربع التحرير بزر الفأرة الايمن - نفتح على لسان التبويب : حدث - ننقر على النقاط الثلاث التي بجانب القيمة : بعد التحديث سيفتح محرر الفيجوال ونلاحظ وجود سطرين جديدين ننسخ الجملة التالية ونلصقها بين السطرين Me.txt1 = combo1.Column(1) Me.txt2 = combo1.Column(2) Me.txt3 = combo1.Column(3) Me.txt4 = combo1.Column(4) Me.txt5 = combo1.Column(5) Me.txt6 = combo1.Column(6) Me.txt7 = combo1.Column(7) (Me.txt1 = combo1.Column(1 تعني : الحقل الاول في النموذج يساوي الحقل1 في مربع التحرير وهكذا ... امل ان يكون الشرح وافيا db.rar

تصميم برنامج الميزان الجسرى للشاحنات الرقم - التاريخ - رقم الشاحنة - وزن القائم - وزن الفارغ - الصافى - اريد عمل تقرير للبيانات - اريد عمل تصميم الاكود -بحث - تعديل - حفط - الغاء ولكم جزيل الشكر الطالب / عماد يسين - السودان

اخى عبد الرحمن تفضل كود اخر يقف على اول خليه فارغه Sub H() Range("B" & [B10000].End(xlUp).Row + 1).Select End Sub كما يمكن ايضا استخدام هذا الكود Book1.rar

أحتاج لخيار آخر غير InputBox بحيث يكون قابل للسيطرة و متناسقاً مع النظام من حيث الشكل وتنسيق النماذج !! هذه هينة بإذن الله ... قم بإنشاء نموذج بالحجم الذي تجده مناسبا قم بانشاء مربع نص بإسم Text000 قم بانشاء زر أمر بإسم ComClose وسمه OK قم بانشاء زر أمر بإسم ComCancel وسمه Cancel وفي محرر الفيجوال للنموذج ضع مجموعة الكودات التالية : Private Sub ComClose_Click() If IsNull(Me.Text000) Or Me.Text000 = "" Then MsgBox ("You did not provide anything!") Else MsgBox ("You entered: '" & Me.Text000 & "' as the value!") End If DoCmd.Close acForm, Me.Name End Sub Private Sub ComCancel_Click() MsgBox ("You pressed Cancel!") DoCmd.Close acForm, Me.Name End Sub Private Sub Form_Timer() DoCmd.Close acForm, Me.Name End Sub Private Sub Text000_Change() Me.TimerInterval = 0 End Sub التطبيق بسيط وفعاّل عند فتح النموذج وعدم التفاعل معه لمدة 10 ثواني يغلق تلقائياً عند إدخال أي نص في مربع النص تظهر الحروف على شكل نجمة (كلمة سر) بالموافقة على النص المدخل OK تظهر رسالة توضح النص المدخل ، وهنا يمكننا وضع الكود المناسب للتطبيق من حيث إعتماد القيمة أو رفضها ... في حال ترك مربع النص فارغاً وضغط OK تظهر سالة تفيد بانه لم يتم إدخال أي قيمة في حال الضغط على الزر Cancel يتم إشعارنا برسالة بخيارنا ويتم إغلاق النموذج جرب ....

قاعدة IF تستوعب عدد كبير من الشروط وبدون آند أو أور تصل إلى 14 شرط وفى حالة IF and , IF OR قد تصل إلى أضعاف هذا الرقم وهناك ملف للأخ الكبير الخبير خبور خير يوضح العدد الكبير من الشروط الذى يمكن أن تعمل قاعدة إف بها

السلام عليكم و رحمة الله وبركاته ‏‏‏‏‏‏‏‏‏الاثنين‏، 24‏/12‏/1429هـ. الموافق ‏22‏/12‏/08م اخي الفاضل aah_aah2008 استاذي الفاضل خبور الف تحية وتقدير البرنامج جدا رائع و ممتازة ويكفية شرفا انة صادر من قبل اثنين من الأساتذة الكبار في المنتدى بعد استخدامي للملف وددت ان اطلعكم على اضافة بسيطة الى الملف لكي يكون اكثر فائدة لقد تم عمل تعديل على معادلات المجموع بحيث تقوم بحسابات اخرى غير الجمع يمكن للمستخدم تحديدها حسب رغبتة بتبديل كلمة المجموع الى مايختارة من القائمة و لكما كل التقدير و الإحترام Dinamic_Lable_ay.rar

السلام عليكم ورحمة الله وبركاته لمنع المستخدم من اغلاق النموذج حتى لو استخدم مفتاحي ALT+F4 إلا بالضغط على زر السماح بالخروج ملاحظة : اذا لم يتم وضع زر للسماح بالخروج فلن يتم إغلاق النموذج . 1- افتح النموذج المراد عدم إغلاقه في وضع التصميم . 2- غير خاصية زر الاغلاق للنموذج إلى ( لا ) . 3- من قائمة عرض اختر تعليمات برمجيه. 4- انسخ الكود التالي في قسم الاعلانات ( Declarations ) . Option Explicit Public blnClose As Boolean 5- ضع في حدث عند التحميل للنموذج الكود التالي blnClose = False 6- ضع زر امر على النموذج واعطه الاسم التالي : السماح بالخروج 7- في حدث عند النقر لزر السماح بالخروج ضع الكود التالي : blnClose = True DoCmd.Close acForm, "FormName", acSaveNo 8- ضع الكود التالي في حدث عند إلغاء التحميل : Dim strMessage As String Dim intStyle As Integer Dim strTitle As String strMessage = "انت تحاول إغلاق النموذج بطريقة غير صحيحة" & _ vbCrLf & "فضلا ... أغلق النموذج بالطريقة الصحيحة وذلك بالضغط على زر السماح بالخروج " intStyle = vbOKOnly + vbCritical strTitle = "إغلاق غير صحيح" If blnClose = False Then MsgBox prompt:=strMessage, buttons:=intStyle, Title:=strTitle Cancel = True End If 9- شغل النموذج وحاول اغلاقه بالضغط على مفتاحي ALT+F4 ... سوف تخرج الرسالة السابقة . 10- إضغط على زر السماح بالخروج ثم حاول إغلاق النموذج . 11- دعواتكم لنا بالتوفيق .