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

screentogif اتفضل هذا هو رابط موقع البرنامج ورابط تحميل البرنامج https://screentogif.codeplex.com/ https://screentogif.codeplex.com/downloads/get/1554964 واسألك الدعاء للاستاذ الجليل jjafferr فهو من دلنى عليه

السلام عليكم ورحمة الله لست أدري إن كنت تأخرت في الرد، وهذه معادلة يمكن وضعها في الخلية B1 (أو غيرها) ثم سحبها إلى الأسفل... =IF(ROW($A1)<=COUNTA($A$1:$A$6);OFFSET($A$1;COUNTA($A$1:$A$6)-ROW($A1);;1);"") بن علية

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

اتفضل اخى واستاذى ياسر اليك حلا اخر {=INDEX($A$1:$A$6,LARGE(ROW($A$1:$A$6),ROW($A1)))}

الطريقة مجربة وسليمة 100% ويمكن اخفاء النموذج المسؤول ليعمل بصمت في الخلفية تصور انه يمكن ايضا ان يرسل لك رسائل sms يذكرك بمواعيدك

الموضوع : كود ترحيل البيانات بشكل مميز سأتناول أولا : شرح الكود حتى يسهل على الجميع أستخدامة داعيا الله ان يوفقنى الى ما يحبة ويرضة أ - سأقوم بدرب مثال يفضل ان تنفذة معى لكى تصل لكيفية عمل الكود وتطويعه لما تريد عملة أبدأ بفنح ملف أكسيل جديد : قم بتسمية ورقة العمل الاولى بأسم ادخال بيانات والورقة الثانية فواتير ثم فى صفحة العمل الاولى والتى تسمى بـ ادخال البيانات قوم بتصميم جدول كما هو موضح فى الصورة ثم تصميم زر فى نفس الصفحة حتى يصبح بنفس الشكل هذا لم لا يعرف كيفية تصميم زر يمكنة ذلك من خلال : ----------------------------------------------------- اصدار 2003 من مربع أدوات التحكم > ادارج زر ------------------------------------------------------ اصدار 2007 من المطور > ادراج زر ------------------------------------------------------- وفى الصفحة الثانية التى تم تسميتها باسم فواتير نصممها على هذا الشكل بعد تصميم تسمية الصفحتين والزر فى الصفحة الاولى يمكنك اضافة الكود من خلال اختيار وضع التصميم والضغط على الزر الذى سبق تصميمة دبل كليك ايسر على الماوس ثم نضع الكود التالى وسأقوم بشرحة تفصيليا كما بالصورة (الكود مرفق ) الجزء الاولى من الكود الجزء الثانى من الكود الجزء الثالث من الكود الجزء الرابع من الكود الجزء الخامس من الكود الجزء السادس والأخير ملاحظة : الكود يرحل بترتيب الادخال . لتحميل الشرح مصور + ملف المثال + الكود من هنا فى النهاية أسالكم الدعاء اذا افادكم ذلك

السلام عليكم ورحمة الله وبركاته وجدت هذه الدالة اثناء تجولي وحبيت ان اضع عليها مثال هنا لمن قد يبحث عنها الدالة هي FILELEN وهذا ببساطة شكل الدالة FileLen( file_path ) الدالة تحضر حجم الملف بالبايت .. وبإمكاننا التحويل الى ما نريد بعد ذلك هنا طرق التحويل المعروفة للجيمع . 1 Byte = 8 Bit 1 Kilobyte = 1,024 Bytes 1 Megabyte = 1,048,576 Bytes 1 Gigabyte = 1,073,741,824 Bytes 1 Terabyte = 1,099,511,627,776 Bytes في المرفق انا حولت الى كيلوبايت .. اترككم مع المثال .. فك الضغط على الدرايف D للتجربة وبعدها بإمكانك النقل الى اي مكان كل ما عليك هو معرفة المسار والإمتداد بالتوفيق للجميع fileSizeDemo.rar

السلام عليكم ورحمة الله وبركاته لدي نموذج يفتح مع بداية البرنامج وهو يحتوي على مواعيد محددة بالوقت لهذا اليوم سؤالي بالتحديد ... هل طريقتي بإستخدام هذا الكود صحيحه ولن تبسبب مشاكل للنظام لو فرضنا ان البرنامج يعمل طوال اليوم هذا هو الكود وفي المرفق توضيح اكثر Private Function sSA() On Error Resume Next Dim i, r As Integer Dim rs As Recordset Set rs = Me.RecordsetClone r = rs.RecordCount rs.MoveLast rs.MoveFirst For i = 1 To r If rs!mish_time = Time() Then DoCmd.OpenForm "alarm" End If rs.MoveNext Next rs.Close Set rs = Nothing End Function يتم استدعاء هذه الدالة عند حدث عداد الوقت كما هو موضح في النموذج frm_missions شكرا لكم AlartSysteM2003.rar

اشكرك كثيرا ً اخي العزيز لقد حلت المشكلة مع الشكرالجزيل وفقك الله وبارك الله فيك مع الشكرالجزيل

اخي ابو البراء اليك ما كنت أطلبه (أظن انه يوجد حلول اخرى) و ما زلت اطمع بالمزيد بدون تكرار مثلاً) Reverse_Without_Empty.rar

استاذي ياسر كلامك صحيح لكن الميزة انه لا يمكن مسحها او نسخها وايضات يمكن التعامل مع الشيت كانه غير محمي بكل الأحوال هي محاولة عسى ولعل

برايي افضل بهذا الراي لم يعد هناك حاجة او وجود ل اللوب !! الكود كافي بالعد كل ثانية واظهار الفورم ! بالتوفيق

كلامك صحيح واوافقك ! يمكن يصبح الكود هكذا Private Sub Form_Timer() If DCount("*", "tbl_MIssions", "mish_time=time() and mish_date=date()") > 0 Then DoCmd.OpenForm "alarm" clock.Caption = Time() End Sub تحياتي

السلام عليكم إليك مرفق فيه معادلة بسيطة مجرد اختيار الخلية التي بها المعادلة تبقى مخفية ولا يمكن تغيير محتواها انظر إلى محرر الأكود بالضغط على alt+F11 في sheet1 افتح view code هشام ابوسنى.rar

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

تفضل هذا مثال حسب طلبك بالنسبة للارقام التي من خلالها يتم التفريق بين المستخدمين كــ 22 ، 55 .... وغيرها فهذه يمكن لبرنامجك ان يضيفها آليا عند التسجيل حسب النوع تخصيص المداخل متغير.rar

لا حرمنا الله منك ولا من مشاركاتك جزاك الله خيرا أستاذ محمد أحبك الله الذى أحببتنا فيه

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

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

هذه مشاركة بطريقة اسهل قليلا للمتعلم drgat2.rar

اليوم والشهر بالهجرى تلقائى بالتوفيق اخوانى الاحباب التاريخ بالهجرى بشكل تلقائى.rar

تفضل أستاذى رمهان و جميع الإخوة المهتمين بالموضوع الحصول على الدرجة السابقة الدرجة رقم 2 ترتيبا فى جدول الدرجات حتى مع إضافة درجات جديدة للموظف وشكرا لجميع الإخوة خاصة الأستاذ رمهان mylasttry - 2.rar

وهذه بالاستعلام وبدوال المجال! SELECT tblDrgat.empId, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","empid=" & [empid]) & "#") AS 1, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","drgadate<#" & DMax("drgadate","tbldrgat"," empid=" & [empid]) & "# and empid=" & [empid]) & "#") AS 2 FROM tblDrgat GROUP BY tblDrgat.empId; وهناك افكار اخرى ! وهذه على جدول الموظفين SELECT جدول1.eid, جدول1.eName, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","empid=" & [eid]) & "#") AS 1, DLookUp("[darganame]","tbldrgat","drgadate=#" & DMax("drgadate","tbldrgat","drgadate<#" & DMax("drgadate","tbldrgat"," empid=" & [eid]) & "# and empid=" & [eid]) & "#") AS 2 FROM جدول1;

انا لله وانا اليه راجعون البقاء لله اسال الله ان يلهمك الصبر وان يعوضك بذرية صالحه

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

بسم الله الرحمن الرحيم ارجو عدم التعليق داخل الموضوع لسهولة الوصول للدروس تباعا والتعليق يكون داخل الموضوع في الرابط التالي http://www.officena.net/ib/topic/65630-الردود-والاستفسارات-عن-دروس-الفيجوال-بيسك6-والاكسيل-ياسر-العربي/ أما ألان دعونا نغوص في بحور الفيجوال قليلا وترك الإكسيل مؤقتا لحين الإلمام بمبادئ الفيجوال وبداياته ثم نتحول للربط بينهم فيما بعد أولا قمت بإرفاق نسخة محمولة من برنامج الفيجوال بيسك6 موجودة هنا صغير الحجم وتفي بالغرض ألان http://up.top4top.net/downloadf-top4top_20111f0b9a1-rar.html نقوم بتفعيل البرنامج من VbPortable6.reg ثم نقوم بتشغيل البرنامج منvb6 وان واجهتم اي مشكلة في التشغيل يرجى تشغل البرنامج كمسئول كما بالصورة تظهر لنا الشاشة الآتية 1- فتح مشروع جديد 2- فتح مشروع موجود مسبقا 3- اخر مشروعات تم فتحها 4- وهو المشروع الافتراضي الذي سنعمل عليه دائما نقوم بفتح standard.exe جديد سيظهر لنا بالشكل التالي 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا وبكدا نكون عرفنا شكل الواجهه للبرنامج نخش في مقارنة سريعه قبل البدأ في العمل علي المشروع بين هذه النافذه ونافذه محرر الاكواد داخل الاكسيل وهذه صورة لنافذة محرر الاكواد داخل الاكسيل 1- شريط القوائم 2- شريط الادوات القياسي 3- نافذة المشروع 4- نافذة الخصائص 5- شريط الادوات 6- نافذة الفورم او برنامجنا ايه دا تخيلو ان احنا بنتعامل مع نفس محرر الاكواد كله كان مصعبها علي نفسه ويقول برمجة ومش عارف ايه اهو هو هو محرر الاكواد بس التوسع في مجال اخراج البرامج انما الواجهه وطريقة العمل هي بعينها طيب وبعدين ياعم الحاج كمل اقول لكم حاجه حلوة كمان ومقارنة سريعه تانية نفس الادوات واسمائهم بس مش عارف بيرخموا ليه وبيزودو كلمة بوكس وبوتن يعني لما نكتب مثلا تكست بوكس 1 بتساوي تكست بوكس 2 نعملها كدا اكسيل TextBox1.Text = TextBox2.Text فيجوال بيسك6 Text1.Text = Text2.Text دا الطبيعي العادي وممكن نسميهم مثلا اسيل1واسيل2وتمشي مع المحررين Aseel1.text = aseel2.text اظن كدا الصورة وضحت لمعظم الموجودين والمتابعين يلا بينا نعمل برنامجنا الاول مع بعض وقبل المشروع الاول نبدأ بمشروع بسم الله الرحمن الرحيم نضع عدد واحد تكست وكومند1 نضغط علي الكومند مرتين ليظهر محرر الاكواد نضع به التالي ثم نضغط run او F5 ثم نضغط علي الزر ليظهر لنا بسم الله نبدأ من جديد طيب لحفظ المشروع علي هذا الوضع نقوم بالذهاب الى قائمة File ومنها save project as ونحدد له مكان ونحفظ يتم حفظ المشروع وعدد الفرومات الموجودة معه طيب عاوزين نحول البرنامج بتاعنا لتنفيذي بقي عشان نشغله علي أي جهاز ونفرج الناس علي ابداعنا في الفيجوال بردو من قائمة file نختارmake project ونضعه في المكان اللي احنا عاوزينه وهذا شكل البرنامج ناخد مشروع تاني علي السريع صغير ايضا عبارة عن أله حاسبة بسيطة المكونات تلاته تكست تلاته ليبل اربعه كومند كما بالصورة ونضع بداخل الفورم الاكواد التالية ونحفظ المشروع ونحوله لملف تنفيذي كما تعلمنا سابقا وزي الشطار كدا كل واحد يرفق المثال اللي عمله في موضوع الردود والاستفسارات عن درس الفيجوال بيسك6 والاكسيل وانا علي ثقة تامة ان الاخوة المتابعين سيبدعوا في العمل انا حاولت اشرح بطريقة تقليدية بسيطة ولكن هلاقي منكم ابداع غير عادي باذن الله وهلاقي برامج تانية بتتعرض منكو باذن الله مع تحياتي ياسر العربي يتبع

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

السلام عليكم ورحمة الله وبركاته إخواني أحبابي في الله وفقنا الله عزوجل إلى فكرة جديدة بدأناها من أسبوعين ، وهي أن يخصص كل أسبوع موضوع للبحث ، يشارك فيه جميع الأعضاء بالبحث وتقديم الحلول المختلفة حول موضوع معين .. ليكون الموضوع فيما بعد مرجع للباحث ، حيث أن الموضوع سيستغرق أسبوع وهي فترة ليست بالقصيرة ، والكل يشارك فيه بكل معلومة ولو بسيطة لإثراء الموضوع .. ويتم مناقشة الحلول المقدمة ومعرفة جوانب القوة والضعف في كل حل لنصل في النهاية إلى حلول متنوعة تثري الموضوع وتجعل الباحث يجد مبتغاه فيما يبحث بشأنه أرجو من الجميع المشاركة وعدم التكاسل ... لا أريد مجرد ردود وفقط .. أريد من الجميع تقديم ولو معلومة بسيطة تثري الموضوع ، فلربما وجد الأخوة الحلول من مجرد فكرة بسيطة موضوع الأسبوع هو كيفية عكس القيم في عمود .. لنفترض أن لدينا القيم التالية في النطاق A1:A6 Yasser 15 Khalil Hello Nader Bye المطلوب أن تكون القيم في العمود المجاور له العمود B بالشكل التالي Bye Nader Hello Khalil 15 Yasser وتقبلوا جميعاً وافر تقديري واحترامي

اعزك الله استاذى وحبيبى فى الله ابوالبراء مشاغل الحياه بعدتنى عن اخوتى واحبابى فى اوفيسنا بل وحتى فى الاكسيل . واتمنى ان اكون بشكل دائم فى وسط اساتذتى واخوتى فى اوفيسنا واليك اخى واستاذى سليم حسب مافهمت منك اعددت معادلة بنفس الفكره التى طرحتها سابقا مع بعض التغيير ارجو ان اكون قد فهمت بشكل صحيح {=IFERROR(INDEX($A$1:$A$25,LARGE(IF($A$1:$A$25<>"",ROW($A$1:$A$25),""),ROW($A1))),"")} rev.rar

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

طيب فضلا وليس امرا ممكن حضرتك ترفق قاعدة بياناتك التى عملت عليها

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

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

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

السلام عليكم ورحمة الله وبركاته أساتذتي الكرام ...أخي الحبيب أبو البراء جزاكم الله خيراً على ما تتفضلون به من أعمال تنهض بحركة الفكر العربي "البرمجي" أما بالنسبة لي فتحرك بي سرعة البحث عن فكرة لأطبقها وفقاً لما تطلبون أو تقترب منها عكس القيم : 1- نكتب القيم التي نريد في العمود A من A1:A6 2- ننسخها إلى العمود B من B1:B6 3- نكتب في موديول الكود التالي: Sub FlipColumns() Dim Rng As Range Dim WorkRng As Range Dim Arr As Variant Dim i As Integer, j As Integer, k As Integer On Error Resume Next xTitleId = "عكس القيم" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("المدى", xTitleId, WorkRng.Address, Type:=8) Arr = WorkRng.Formula For j = 1 To UBound(Arr, 2) k = UBound(Arr, 1) For i = 1 To UBound(Arr, 1) / 2 xTemp = Arr(i, j) Arr(i, j) = Arr(k, j) Arr(k, j) = xTemp k = k - 1 Next Next WorkRng.Formula = Arr End Sub 4- نضغط F5 أو Run من يطلب تحديد المدى وهنا من B$1:$b$6 $ ثم موافق فنحصل على النتيجة المقاربة لطلبكم الكريم. والسلام عليكم ورحمة الله وبركاته. عكس القيم.rar

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

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

اعتقد هذا المرجع استاذ عبدالفتاح http://www.access-programmers.co.uk/forums/showthread.php?t=150368 لكن هل ممكن ترفع ملفك بعد التطبيق عليه بالتوفيق

ده ملف مشابه للطلب للاستفاده والافاده بالتوفيق Extracting-a-unique-sorted-list-based-on-frequency-of-occurrence.rar

وعليكم السلام أخي الكريم حراثي تفضل الكود Private Sub CommandButton1_Click() Range("B2").Value = TextBox1.Value Range("D3").Value = TextBox2.Value End Sub

السلام عليكم حسب فهمي للموضوع عسى ان يكون هذا المطلوب ترحيل محدد.rar

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

يافنان يا استاذ كرار ! وبالاستعلام ولجمبع اصدارات الاكسس ! هذه الفكرة استخدمتها في عمل نموذج داتا شيت بها متغيرة عناوين السجلات ! مبدع والله ! تحياتي

لي مشاركة هنا http://arabteam2000-forum.com/index.php?/topic/294120-%D9%85%D9%85%D9%83%D9%86-%D9%83%D9%8A%D9%81-%D8%B7%D8%B1%D9%8A%D9%82%D8%A9-%D8%A5%D8%B8%D9%87%D8%A7%D8%B1-%D8%B9%D9%84%D8%A7%D9%85%D8%A9-%D8%B5%D8%AD-%D9%88%D8%AE%D8%B7%D8%A3-%D9%81%D9%8A-%D8%A7%D9%84%D8%AA%D9%82%D8%B1%D9%8A%D8%B1-%D8%A8%D8%AF%D9%84-%D9%86%D8%B9%D9%85-%D9%88-%D9%84%D8%A7-%D8%9F/ بفكرة جديده وللفائده تحياتي

أخي الحبيب أبا البراء تكرم عينك وهي ملف مرفق AGGREGATE FUNCTION.rar

أخي الحبيب عماد غازي مواضيعك مميزة ورائعة .. فقط ينقصها أن ترفق ملف في آخر الموضوع ليتمكن الأعضاء من التطبيق العملي تقبل تحياتي

السلام عليكم أستاذنا الكريم عماد غازي المحترم الذي يتحفنا بكل جديد ومفيد جزاكم الله خيراً على هذا العرض الرائع لهذه الدالة التي تبقي الأرقام متسلسلة في حالة التصفية أو وجود فراغات ولكن إن لم تكن نسخة الأوفيس من 2010 وما فوق فإنني سأعرض عمل دالة أخرى إثراء لما قلته وهي: SUBTOTAL =IF(B2<>"";SUBTOTAL(3;$B$2:B2);"") حيث تعطي النتيجة ذاتها تقريباً بعد الفلترة ...مع ملاحظة أن عيب هذه الدالة في السطر الأخير حيث لا تعطي كما هذه الدالة الجديدة AGGREGATE جزاكم الله خيراً والسلام عليكم ورحمة الله وبركاته.

وعليكم السلام بالنسبة للرقم ا: اعمل هذا الحدث للحقل m_sum ، في الحدث بعد التحديث: Private Sub m_sum_AfterUpdate() Me.m_sum = Me.m_sum - Me.com_name.Column(2) If Me.m_sum < Me.com_name.Column(2) Then MsgBox "القيمة اصغر" End If End Sub وبالنسبة للرقم 2: في الجدول notes ، في اعدادات الحقول (ما عدالرقم التلقائي) ، اجعل "مطلوب" = نعم: جعفر 322.db.accdb.zip

تفضل اخي الكريم هذا برنامج تم عمله مخصوص لغرض تحويل جملة الإستعلام SQL الى كود VBA كل ما عليك هو اتباع تعليمات البرنامج الموجوده عليه za_Convert_SqlToVba.rar

السلام عليكم أخي أبا هادي، أخواني الاعضاء، لقد تابعت البحث في الموضوع الاساس وهو كيفية الحصول على قيمة من تسجيلات ويندوز وقد توصلت أخير إلى طريقة مبسطة جدا بدون استخدام API Modules ويهذا نختصر الحل كثيرا. والمثال التالي يوضح الطريقة، يوضع الكود في حدث عند النقر لزر أمر للتجربة: Private Sub ShowRegKey_Click() Dim oKey As Variant Dim strValue As String Set oKey = CreateObject("Wscript.Shell") strValue = oKey.RegRead("HKEY_CURRENT_USER\control Panel\International\AddHijriDate") MsgBox strValue End Sub ملاحظة : لإستخراج التاريخ الهجري طبعا لا يمكن الاستغناء عن الدالة السابقة التي صممها أخي أبا هادي مشكورا، انما هذه الطريقة تختصر API Modules كما ذكرت سابقا. مع الاحترام