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

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

السلام عليكم ولو اني مالي علاقة في السؤال ، ولكن صاحب السؤال hmimou777 عمل هذا السؤال في 21/12/2015 ، والى اليوم لم يتفاعل مع المشاركات ، بينما الاجابات كلها صارت للأخ nabil09 هنيئا له جعفر

السلام عليكم ورحمة الله وبركاته أخي الحبيب ياسر العربي مروركم الأجمل ..حاولت المشاركة بشيء بالرغم من انشغالي ..فالتفاعل مطلوب لأن ثمرته التلاقي والمحبة والسلام عليكم

وعليكم السلام ومشاركة مع أخي عبدالرحمن ، ولكن بتعديل للطريقة الاصل وبيان اين المشكلة نضغط على الزر بالثلاث نقاط ، لكي نغير بيانات استعلام مربع تحرير الحقل "مالك العقار" . نرى انك مستخدم اسم المالك فقط ، ولم تنزل الحقول الاخرى التي تريدها ، وهي "رقم الهوية" و "رقم الجوال" !! . ننزل بقية الحقول المطلوبة ، ولاحظ ارقام الاعمدة ، والتي سنستخدمها في الكود ، يعني "رقم الهوية" في العمود رقم 1 ، و "رقم الجوال" في العمود رقم 2 . على هذا الاساس ، نغير في اعدادات الحقل ، بأنه هناك 3 اعمدة ، ولكن اجعل عرض العمود رقم صفر 1.4348 بوصة ، واجعل نتائج العمودين 1 و 2 مخفية (اي ان عرض الاعمدة صفر) . على اساس المعلومات اعلاه ، هكذا يكون الكود ، رقم الاعمدة كما عملناها في الاستعلام . جعفر 324.db1.mdb.zip

ههههههههه عندك حق أخي جعفر.. والله انا افتكرت السائل هو الأخ نبيل ونسيت إن صاحب المشاركة hmimou777 الحمد لله المهم ان الإجابات داخل نطاق السؤال من البداية

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

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

اخى الغالى عبدالعزيز مرورك هو الاروع والاجمل دائما ما تضئ مشاركاتى بنورك تقبل تحياتى

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

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

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

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

أخي الكريم أبو حمادة حاول تستخدم خاصية البحث في المنتدى ، وإن شاء الله تجد أجوبة لكثير من الأسئلة إليك الكود التالي يوضع في حدث الفورم Private Sub UserForm_Initialize() With Application .WindowState = xlMaximized Zoom = Int(.Width / Me.Width * 80) Width = .Width: Height = .Height Left = 0: Top = 0 End With End Sub ودا ملف مطبق فيه الكود تقبل تحياتي Fit Screen Resolution YasserKhalil.rar

أخي الكريم مختار البركاني السطر الأول هو سطر للإعلان عن المتغيرات المستخدمة في الكود السطر التالي Set MyRange = Range(Cells(8, 1), Cells(Cells(Rows.Count, 1).End(3).Row, 1)) هذا السطر يتم فيه تعيين قيمة للمتغير الذي سنتعامل معه وهو النطاق الذي سنقوم بعمل حلقة تكرارية لخلاياه وهو يبدأ من الخلية في العمود الأول في الصف الثامن وينتهي في نفس العمود في آخر خلية بها بيانات هذا الجزء من الكود For Each Cel In MyRange If Cel.Value = 0 And Cel.Offset(, 4).Value = 0 Then If Not Cel Is Nothing Then If Rng Is Nothing Then Set Rng = Cel Else Set Rng = Union(Rng, Cel) End If Next Cel هنا حلقة تكرارية لكل خلية من خلايا النطاق المذكور في السطر السابق يتم اختبار قيمة الخلية وكذلك قيمة الخلية في العمود الخامس التي تبعد عن الخلية الحالية بمقدار 4 أعمدة في نفس الصف ، فإذا كانت الخليتين قيمتهما = صفر يتم تنفيذ السطر التالي والذي يقوم بتخزين نطاق الخلية الحالية في متغير آخر باسم Rng .. وفي كل حلقة يتم تخزين النطاق الجديد إضافة إلى النطاق القديم .. بمعنى يتم تجميع نطاقات الخلايا التي ينطبق عليها الشرط ثم If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True يتم إخفاء الصفوف للنطاق المسمى Rng (الخلايا التي انطبق عليها الشرط) مرة واحدة وهذا أسرع من الكود الأول الذي يقوم بالتعامل مع صف صف ... الفكرة في السرعة هنا في أداء الكود أن الكود يتعامل مع الخلايا التي ينطبق عليها الشرط مرة واحدة ActiveSheet.PrintPreview أخيراً يتم معاينة أو طباعة ورقة العمل النشطة وفي نهاية المطاف يتم إظهار الصفوف التي تم إخفائها مرة أخرى أرجو أن تكون الصورة قد اتضحت أخي الكريم تقبل تحياتي

السلام عليكم ورحمه الله عندي برنامج وفيه نموذج وفية نموذج فرعي وجدول يتكون من (موضوع الخطاب , كلمات ارشادية , رقم خطاب , وتاريخ الخطاب , وارد من , وصادر من ) وفي النموذج: وعندي 6 مربع نص ...علشان البحث لكل مربع نص مثلا: موضوع الخطاب يبحث فيه , والثاني مربع نص يبحث في كلمات ارشادية.... وعندي حدث عند التغيير :مربع نص : يبحث في كلمات ارشادية سميتها n2 , ومربع نص اخر سميتها n10 علشان يبحث سريع Dim x x=n2.text n10=x me.تابع38.Requery وعملت كود في استعلامlike"*"&]![البحث في المستندات]![n10]&"*" المشكلة: مثلا في سجل: ميناء/جدة/لوجستيك ابحث عنه عكسي مثلا : لوجستيك/ميناء ........ يختفي البحث علمأ: بان في السجل بين كلمة وكلمة ... اسلاش (/) ممكن تحلوا المشكلة بارك الله فيكم ونفع بعلمك .............

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته أيها الأحبة منذ أن بدأت في تعلم الأكسس حيث كانت بداياتي في هذا المنتدى المبارك وكنت أتمنى طريقة شرح معينة حيث إن المبتدئ منا لا يحتاج للشيء النظري البحث إنما يحتاج لإنارة الطريق حتى يصل إلى المطلوب من خلال أمثلة مبسطة وذلك بحكم أن ليس كل مشارك في المنتدى متخصص في البرمجة ونحوها .. وكنت منذ أن بدأت أجمع الأمثلة ثم أقوم بفكها والنظر في الاكواد ونحوها وكان يشكل علي كثيرا معرفة اسم النموذج في الكود والسجل ونحوها وتمييزها عن بقية الكود فالكود أحيانا يكون به كلمات إنجليزية هي أساس في الكود فلا تتغير إنما الذي يتغير كلمات معينة كاسم النموذج أو السجل أو الاستعلام ونحوها ... وكم عانيت في ذلك وخاصة إذا كان المثال معقدا. ومن هذا أحببت أن نبدأ جميعًا في مشروع أظنه نافعا بإذن الله تعالى وما كان لي أن أطرحه دون إذن أساتذتي الفضلاء الذي لهم سبق فضل علي بعد فضل الله بارك الله في علمهم وعملهم ... وتكمن الفكرة في هذا الموضوع أن يتم تخصيص هذا الموضوع بموضع معين مثلا طرائق البحث في نموذج أكسس فكل منا يجتهد في طرح ما يعرفه من طرائق البحث في نماذج أكسس بشرط أن تشرح بشرح وافي بالمثال بحيث تكون مرجعا لمن أراد البحث في هذا الموضوع (طرق البحث في الأكسس) وعلى ذلك أستأذنكم في طرح مثال أُسرُّ من خلال برأيكم وملحوظاتكم حيث إني لم أقف في شبكة الإنترنت على من تولى مثل ذلك وأتمنى أن يكون لهذا المنتدى قصب السبق ... عنوان الموضوع طرائق البحث في الأكسس : الطريقة الأولى : البحث في النموذج بكتابة جز من الكلمة نفرض أن لدينا جدولا اسمه Book يهتم بأسماء الكتب ونرغب أن نبحث عن كتاب معين بمجرد كتابة جزء من اسمه فنعمل الآتي: 1)نصمم جدولا باسم Book بداخله أسماء كتب تحت سجل nameBook 2) نصمم نموذجا مبني على جدول Book بنماذج مستمرة وليكن اسم النموذج FormBook. 3) ندرج في أعلى النموذج (رأس النموذج ) مربع نص ونسميه فرضا Text1 وبالطبع التسمية من خلال الضغط على مربع التسمية بالزر الأيمن ثم خصائص ثم غير ذلك ثم في خانة الاسم نكتب الاسم المطلوب. 4) نقوم بعمل استعلام مبني على جدول Book وليكن اسمه Qry في الاستعلام نجد سجل NameBook نكتب في الحقل الفارغ الذي بجواره الكود التالي : nz([book].[namebook];"**") حيث إن Book اسم الجدول و NameBook اسم السجل الذي بداخل الجدول. 5) في الاستعلام في المعايير تحت حقل الذي تم عمله في الفقرة رقم (4) نضع الكود التالي Like "*" & [forms]![formbook]![text1] & "*" حيث FormBook هو اسم النموذج و Text1 اسم مربع النص الذي تم إدراجه في رأس النموذج. 6) نذهب إلى النموذج ونضع المؤشر على مربع النص text1 ثم الزر الأيمن ثم خصائص ثم حدث ثم بعد التحديث نضع الأمر التالي Me.Requery 7) نذهب إلى خصائص النموذج من خلال الضغط على أي مكان فارغ في النموذج ثم الزر الأيمن ثم خصائص ثم نختار بيانات ثم مصدر السجل ثم نختار منه اسم الاستعلام Qry بعد ذلك يكون النموذج جاهزا للبحث فيه عن أي كتاب ويمكن تكرار ذلك لأكثر من مربع نص بنفس الخطوات السابقة وبالمثال يتضح المقال. ((هذا نموذج إن كان مناسبا نستمر عليه ليكون مرجعا ثم ننتقل إلى موضوع آخر (ولا ولا ولا أستغني عن الرأي والمشووورة وهذا جهد المقل) ...) والله الموفق طرائق البحث.rar

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

تفضل هذا المرفق الجديد ، وان شاء الله يعمل المرفق واللي فيه اما الكود ذو الـ 1000 سطر ، فهو لإعادة ربط الـ FE مع BE ، ولا تهتم فيه ، فهو يعمل في الخلفية ولا يؤثر على شئ وممكن تستفيد من فكرة الاخ bhelmy وتستخدمها بدل الطريقة اللي انا عملتها لفتح النموذج ، بس اول شئ جرب برنامجي مثل ماهو جعفر 297.FE_BE_Password_Both_mdb.zip ولما تنتهي من هذه الخطوة ، يجب عليك حماية قاعدة البيانات بالكامل ، ومنع استعمال زر الشفت والدخول على البرنامج في هيئة التصميم ، وهذا الرابط يعطيك المطلوب: http://www.officena.net/ib/topic/62892-الحماية-من-برنامج-الغاء-وتمكين-الشفت-shift/ جعفر

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

اخى الحبيب انت تامر لو قدر استطاعتى ما اتاخر عنك تقبل تحياتى

الله ينور عليك حبيب الكل ( الصقر ) تسلم ايدك بجد وليا طلب عندك لو ممكن

الف شكر اخى الكريم هو المطلوب اثباتة شكرا لمجهودك وجزاك الله خيرا

اخى الكريم جرب هذه المعادله =IF(AND(K5>J5;K5<>"");"تم تجديد الاجازة";IF(AND(J5>=TODAY()-30;J5<TODAY());"تنبية باقى شهر لانتهاء الاجازة";IF(J5>=TODAY();"أنتهت الاجازه";""))) تقبل تحياتى

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

السلام عليكم أخي الفاضل الاستعلام الالحاقي اصبح هكذا: . 1. الحقل IDALL هو حقل ترقيم تلقائي ، فلا يمكنك ان تغيره ، لذا يجب ان تحذف كلمة IDALL من هنا ، 2 و 5 - في الحقول في النماذج وحتى في الجدولين TRANS و SUNTRANS ، فهذه الحقول عبارة عن ارقام (لأنك جعلت مربع السرد يأخذ قيمة الرقم ولا يأخذ قيمة النص) ، لهذا ، كان لازم نأخذ قيمة النص ، واتضح ان قيمة النص موجودة في جدول آخر ، فلذلك جلبنا الجدول (MODELS مثلا) الى الاستعلام ، وبسبب العلاقة بين الجدولين التي قمت انت بعملها مسبقا ، فتم ربط الجدولين ، واستخدمنا قيمة الجدول MODELS النصية MODEL بدلا عن قيمته الرقمية والتي كانت في الجدول TRANS في حقل MODEL . 3 و 4 - هما حقول النص ، فوضعناهما في الاستعلام ، سهلة ههه جعفر 322.2.BMTES.mdb.zip

السلام عليكم ورحمة الله أخي الكريم، لأجل ذلك تقوم بما يلي: 1- تغيير السطر التالي : Function NumtoTxt(TheNo As Double, MyCur As String, MySubCur As String) As String بالسطر : Function NumtoTxt(TheNo As Double) As String 2- تقوم بإضافة السطرين التاليين بعد هذا السطر الذي تم تغييره أو بعد انتهاء التعريف بالمتغيرات (أي بعد آخر Dim) : MyCur = "ريال سعودي" MySubCur = "هللة" وبإذن الله سيعمل الكود حسب طلبك... بن علية

تفضل أخي إبراهيم ThisWorkbook.Sheets("Sheet1").Range("A1:A10").Copy wb.Sheets("Sheet1").Range("A1")

كانت لدي من سنة 2005 تقريبا يعني مجموعة ولا اروع منها من الايقونات الجميلة ومقسمة تقسيم حسب الانواع سأبحث عنها لعلي اجدها وستكون مفيدة جدا لنا

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

أخي الحبيب إبراهيم إليك الكود التالي عله يحل المشكلة (الكود طويل بعض الشيء لأنه يتعامل مع الأخطاء التي يمكن أن تحدث ..فهو تفصيلي ) Sub CreateWorkbook() Dim WB As Workbook Dim Str1 As String, Str2 As String, StrPath As String, StrExt As String Dim sFileName As String, sPath As String, sPathAndFileName As String Dim iFileFormat As Long, iReply As Long Dim bNeedMore As Boolean Set WB = Workbooks.Add Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value StrPath = ThisWorkbook.FullName StrExt = Right(StrPath, Len(StrPath) - InStrRev(StrPath, ".")) Application.ScreenUpdating = False Application.DisplayAlerts = False Select Case StrExt Case "xls" iFileFormat = -4143 Case "xlsb" iFileFormat = 50 Case "xlsx" iFileFormat = 51 Case "xlsm" iFileFormat = 52 End Select sPath = ThisWorkbook.Path & "\" sFileName = Str1 & Str2 & "." & StrExt sPathAndFileName = sPath & sFileName If LJMFileExists(sPathAndFileName) = True Then iReply = MsgBox(Buttons:=vbYesNo, Title:="'Overwrite' or 'Escape' Selection", Prompt:="The File Already Exists. Do You Want To Overwrite The File?" & vbCrLf & "Folder: " & ThisWorkbook.Path & vbCrLf & "File Name: " & Str1 & Str2 & "." & StrExt & vbCrLf & vbCrLf & "Select 'Yes' To Overwrite The File." & vbCrLf & "Select 'No' To Do Nothing.") If iReply = vbNo Then MsgBox "Nothing Done Per User Request." GoTo MYEXIT End If End If On Error Resume Next WB.SaveAs FileFormat:=iFileFormat, Filename:=sPathAndFileName If Err.Number = 0 Then MsgBox "File Saved Successfully.", 64 ElseIf Err.Number = 1004 Then MsgBox "Nothing Done. Destination File Is Already Open Or Is Read/Only." & vbCrLf & "Try Again After The File Is Closed." & vbCrLf & "Folder: " & sPath & vbCrLf & "File Name: " & sFileName Else MsgBox "Nothing Done. File Save Runtime Error " & Err.Number & "." & vbCrLf & "Folder: " & sPath & vbCrLf & "File Name: " & sFileName End If On Error GoTo 0 MYEXIT: 'Resume Normal Error Processing On Error GoTo 0 WB.Close SaveChanges:=False Application.DisplayAlerts = True Application.ScreenUpdating = True Set WB = Nothing End Sub Private Function LJMFileExists(sPathAndFullFileName As String) As Boolean 'This Returns TRUE If File Exists And FALSE If File Does Not exist '----------------------------------------------------------------- Dim iError As Integer Dim iFileAttributes As Integer On Error Resume Next iFileAttributes = GetAttr(sPathAndFullFileName) 'Check The Internal Error Return iError = Err.Number Select Case iError Case Is = 0 iFileAttributes = iFileAttributes And vbDirectory If iFileAttributes = 0 Then LJMFileExists = True Else LJMFileExists = False End If Case Else LJMFileExists = False End Select On Error GoTo 0 End Function تقبل تحياتي

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

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

مشاركة بجانب مشاركات إخواني الكرام لماذا أخي كل هذه النماذج والجدول واحد؟

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

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

أخي الكريم أبا الحسن والحسين للأسف لا تعمل الأداة مع الإصدارات الحديثة أو ربما لا تعمل على 64 بت .. الرجاء ممن يستخدمون الإصدارات الحديثة 32 بت أن يوافونا بالنتائج

تفضل أخي Dim ctype As String ctype = "select* from tbl_customers where ([type]='" & Me.cbotype & "')" Me.customers_subform.Form.RecordSource = ctype Me.customers_subform.Form.Requery للعلم أخي.. القيمة الموجودة في مربع التحرير والسرد بها قيمة مختلفة عن الموجودة بالجدول؛ فمثلا (كبير المعلمين) مكتوبة بالجدول بدون مسافة (كبيرالمعلمين)

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

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

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

من اكواد الاستاذ الفاضل عبدالله باقشير والذي لم نعد نرى مشاركته نسأل الله ان يمن عليه وعلى اهله وبلده الامن والرخاء وان يسعده الله في الدارين اخي الفاضل الخليتان Z1 , D1 بهما معادلتان مرتبطنان بالكود لا تحدفها جرب اخي وان اردت شيئا احر لا تتحرج من السؤال فكل من فضل الله N2.rar

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

أخي الكريم مهند الزيدي إليك الكود التالي عله يفي بالغرض Private Sub Workbook_Open() 'يوضع الكود في حدث المصنف ويقوم بإجبار المستخدم على تمكين الماكرو 'يعتمد الكود على ورقة عمل مخفية تقوم بوضع رسالة بها وتظهر في حالة 'عدم تمكين وحدات الماكرو وتختفي الورقة في حالة التمكين وتظهر أوراق المصنف 'وضع بها مربع نص عليه رسالة تنبيه للمستخدم [Prompt] قم بإنشاء ورقة باسم '------------------------------------------------------------------------ With Application .EnableCancelKey = xlDisabled .ScreenUpdating = False Call UnhideSheets .ScreenUpdating = True .EnableCancelKey = xlInterrupt End With End Sub Private Sub HideSheets() Dim Sheet As Object With Sheets("Prompt") If ThisWorkbook.Saved = True Then .[A100] = "Saved" .Visible = xlSheetVisible For Each Sheet In Sheets If Not Sheet.Name = "Prompt" Then Sheet.Visible = xlSheetVeryHidden End If Next If .[A100] = "Saved" Then .[A100].ClearContents ThisWorkbook.Save End If Set Sheet = Nothing End With End Sub Private Sub UnhideSheets() Dim Sheet As Object For Each Sheet In Sheets If Not Sheet.Name = "Prompt" Then Sheet.Visible = xlSheetVisible End If Next Sheets("Prompt").Visible = xlSheetVeryHidden Application.Goto Worksheets(1).[A1], True Set Sheet = Nothing ActiveWorkbook.Saved = True End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) With Application .EnableCancelKey = xlDisabled .ScreenUpdating = False Call HideSheets .ScreenUpdating = True .EnableCancelKey = xlInterrupt End With End Sub

أخي الحبيب إبراهيم أبو ليلة جرب الكود التالي عله يكون المطلوب Dim Str1 As String, Str2 As String Sub CreateWorkbook() Dim WB As Workbook Set WB = Workbooks.Add Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Application.ScreenUpdating = False Application.DisplayAlerts = False WB.SaveAs Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" WB.Close True Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub Sub OpenWorkbook() Str1 = ThisWorkbook.Sheets("Sheet1").Range("A1").Value Str2 = ThisWorkbook.Sheets("Sheet1").Range("A2").Value Workbooks.Open Filename:=ThisWorkbook.Path & "\" & Str1 & Str2 & ".xlsx" End Sub

وعليكم السلام في البحث ، بدل ان تستخدم / جرب واستخدم * او % جعفر

ارجو منك توضيح المشكلة اكثر

السلام عليكم ورحمة الله أخي الكريم، يكفي استعمال الدالة CONCATENATE أو & بين صيغتي الدالتين أو بين عنواني القيمتين (عنواني الخلايا)... أنظر الملف المرفق... أخوك بن علية Mean_SD.rar

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

السلام عليكم ورحمة الله ،، اخي العزيزي انا عندي برنامج ايضا عملت فيه عدم تحرير الفاتورة ، ولكن << بعد عملية الطباعة >> الخطوات : 1- قم بإضافة حقل جديد الى جدول الفواتير وسمه مثلا edit ونوعه رقم 2- اجعل القيمة الافتراضيه للحقل 0 3- في نموذج الفواتير اجعل مربع النص الخاص بالحقل مخفي 4- في زر امر الطباعة بعد أمر الطباعة غير قيمة الحقل إلى 1 edit = 1 5- في current الخاصة بنموذج الفواتير اكتب if edit = 1 then me.allowedit = false else me.allowedit = true تحياتي