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

أضف مسافة قبل وبعد الشرطة المائلة

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

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

Dim records As Object Dim db As Object Dim strText As String Set db = CurrentDb() Set records = db.OpenRecordset("Tbl1") strText = "" While Not records.EOF strText = strText & records!fild1 & "," records.MoveNext Wend 'مرحلة التصدير Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") Dim oFile As Object Set oFile = fso.CreateTextFile(CurrentProject.Path & "\" & "C" & ".txt") oFile.WriteLine strText oFile.Close Set fso = Nothing Set oFile = Nothing records.Close Set records = Nothing Set db = Nothing ضع هذا الكود فى زر الذى تصدر به البيانات يجب تغيير اسم الجدول واسم الحقل على حسب مرفقك

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

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

وفقكم الله وحفظكم من كل سوء استاذ سليم المبدع . كود اكثر من رائع جعله الله في ميزان حسناتكم لكم وافر احترامي وتقديري

اخي الكريم تم رد على السائل الاول وكان سؤاله مطابق لسؤالك استاد خلف على ما اعتقد لان اسمك مكتوب بالانجليزي على العموم ساعيد الجواب لحظرتك شوف اخي الكريم اول شيء كيف قمت بتفريغ السجلات او بالمعنى الاصح تصفير السجلات الى 0 يعني هدا سؤال يمكن اجاوبك عليه هل لو كانت القاعدة تم تغيير امتدادها الى (accde) واخفاء الجداول هل كنت ستصل الى جدول وتفريغه انت اخدت المثال مفتوح وراية مسار المجلد وحدفت المجلد فكيف تريد المثال ان يغلق ....... اخي الكريم اقرأ مداخلة الاخ AboSaad17 اخي الفاضل غريب طرابلس قمت بتجربة الملف وتم فعلا إغلاق الملف بعد خمس سجلات وعند محاولة فتحة لم يتم الفتح ولــكن لم أجد المجلد kh_MO

هذا الماكرو Option Explicit Sub rand_num_generator() Dim i% Dim myStart%: myStart = Application.Min([c2], [d2]) Dim myEnd%: myEnd = Application.Max([c2], [d2]) Dim a() Range("a2").CurrentRegion.ClearContents ReDim a(myEnd - myStart) With CreateObject("System.Collections.SortedList") For i = myStart To myEnd .Item(Rnd) = i Next i i = 0 Do Until i > .Count - 1 a(i) = .GetByIndex(i) i = i + 1 Loop End With Range("a2").Resize(UBound(a) + 1).Value = Application.Transpose(a) Erase a End Sub الملف مرفق Rand_Genarator.xlsm

ستجد من الاساتذة من يفيدك وانا ان استطعت ساساعدك

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

شاكر ومقدر مرورك استاذي سليم حاصبيا وشكرا لتعديلك تقبل تحياتي

رتئع يا أ / سليم أعجبني جدا فكرة ال criteria في countif حيث انها تدخل في النطاق الخلايا الفارغة ثم تطرحها في النهاية لأنني بالفعل عادة استخدم هذه المعادلة واحدد النطاق فقط فتكون كالآتي واستخدمها بدالة sum =SUM(1/COUNTIF($A$1:$A$13;$A$1:$A$13)) بارك الله فيكم

ممتاز استاذ سليم معادلات رائعة جعله الله فى ميزان حسناتك

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

استعمل هذا المعادلة (Ctrl+Shift+Enter) =COUNT(IF(MATCH($A$1:$A$50,$A$1:$A$50,0)=ROW($A$1:$A$50)-ROW($A$1)+1,ROW($A$1:$A$50)-ROW($A$1)+1,"")) الملف مرفق يمكن استعمال هذه ايضاً (Ctrl+Shift+Enter) =SUMPRODUCT(IFERROR(IF(MATCH($A$1:$A$50,$A$1:$A$50,0)=ROW($A$1:$A$50)-ROW($A$1)+1,1,0),0)) يمكن استعمال هذه ايضاً بدون (Ctrl+Shift+Enter) =SUMPRODUCT(1/COUNTIF($A$1:$A$50,$A$1:$A$50&""))-1 123_11.xlsx

أحسنت جزاك الله كل خير استاذ مصطفى

شكرا لحضرتك جدا

اذا كان الرقم ما بعد الفاصلة مؤلف من اكثر من عددين (مثلاً 25487.) يمكن استعمال هذه المعادلة =MID(A2,FIND(".",A2)+1,50)*1

تفضل هذا..... بعد عملية البحث في اللست تضغط امر طباعة USF v1.xlsm

السلام عليكم وددت أن أشارك هذا الموضوع بملف يقوم بالعمل نفسه لكن بالمعادلات (غير أن النتائج المنتظرة محدودة في النطاق A6:DZ1005 أي من 130 عمود و 1000 سطر)... أضفت بعض التنسيقات على الصف 4 (تنسيقات على الخلايا) و الصف 5 (تنسيق شرطي للتلوين)... بن علية حاجي Num_Table_Formulas.xlsx

السلام عليكم ورحمة الله تم تحسين عمل هذا البرنامج في هذه النسخة المرفقة والشكر لله ثم لــ للاستاذ الفاضل ابوخليل الاستاذ الفاضل صالح حمادي العضو : التقني ‫‫القرعة_4.mdb

بسم الله الرحمن الرحيم كثر الكلام في الفترة الأخيرة عن تصحيح الكتابة المكتوبة بالخطأ والحل في هذه الحالات برنامج أبو الحروف وهذه المرة بأحدث إصدار له ما هو برنامج أبو الحروف؟ إنه البرنامج العجيب، إنه البرنامج الطائر، إنه أقوى من الشدة، أطول من المدة، أحد من السين، وأسرع من لمح العين. إنه أبو الحروف! هذه صفات برنامجنا الصغير. فهو يتلاعب بالحروف ويصحح لك ما خربة (خربوط)..... من منا لا يعرف أبو الحروف ... ولكن لم يكن باستطاعة أبو الحروف مساعدتنا كشخصية كرتونية في برنامج المناهل. ولكن الأن سوف يكون أبو الحروف معك دائما. ماذا يفعل أبو الحروف؟ الكثير منا يكتب وهو ينظر إلى لوحة المفاتيح وأنا منهم. وكلنا يكتب عن طريق لوحة المفاتيح! هل من طريقة أخرى؟ كم مرة حدثت معك! أن تكون في محادثة مع صديقك، أو أن تكون تكتب رسالة وقد أنجزت ما يزيد عن ثلاثة أسطر، وبالنهاية اكتشفت أنك قد نسيت قلب اتجاه مؤشر كتابة الحروف في لوحة المفاتيح إلى اللغة العربية! والصدمة ان تنظر إلى ما كتبت! مثال: hgsbl ugd;l <vplm hggi <fv;hji> طبعا الصحيح هو: السلام عليكم ورحمة الله وبركاته. أنا أعرف شعورك تماما وخصوصا عندما تحذف كل ما كتبت! وايضا في حال كنت تكتب بالإنجليزية وكانت النتيجة حروف عربية لا معنى لها...... ماذا أفعل؟؟!! هنا يأتي دور صديقنا أبو الحروف. فبكل بساطة أبو الحروف يكون معك دائما أينما ذهبت في طرف الشاشة مستعد لأوامرك! ألية العمل المتبعة: إن قمت بتحديد نص معين فسوف يقوم أبو الحروف بتصحيح المكان المحدد فقط. ولكن إن لم تحدد أي جزء من النص فسوف يقوم أبو الحروف بتصحيح كامل النص. في حال كنت تكتب العربية وكان مؤشر الكتابة على الإنجليزية: للقيام بذلك اضغط في لوحة المفاتيح على Ctrl + F1 في حال كنت تكتب الإنجليزية وكان مؤشر الكتابة على العربية: اضغط في لوحة المفاتيح على Ctrl + F2. تحويل النص العربي المكتوب باللغة الإنجليزية إلى العربية! كيف ذلك؟ إن كنت من أهل التشات الكتابي فسوف تسرك هذه الإضافة كثيرا. في اغلب الأحيان وخصوصا مع الأشخاص اللذين لا يملكون لوحة مفاتيح عربية يقومون بكتابة اللغة العربية عبر الحروف الإنجليزية / مثال: Al Salam Alykom وتعني السلام عليكم. حسنا، لكي تقوم بقراءة العبارة باللغة العربية فقط قم بتحديد النص وقم بالضغط على Ctrl+F3 سوف تظهر لك نافذة تحوي قسمين القسم اليميني هو ما تم تحويلة من إنجليزية إلى عربية والثاني على اليسار يحوي النص الأصلي الذي تم تحديده. ملاحظة هامة: تعتبر أداة التحويل النصي أداة فعالة في بعض الأحيان حيث يمكن أن يفهم الإنسان 60% إلى 94.5% من محتوى التحويل النصي. الأداة تفترض أن النص مكتوب بطريقة مفهومة مأخوذا بعين الاعتبار مصطلحات الدردشة، ولكن على كل حال يبقى التحويل الإلكتروني مفتقرا للدقة النحوية ولكن تم طرح هذه الأداة لمساعدة الأشخاص اللذين يعانون من صعوبة فهم النص العربي المكتوب بحروف إنجليزية. المدقق الإملائي الإنجليزي الأن مع أبو الحروف! دعني أتخيل هذا السيناريو! كنت مع صديق لك تتكلمان على المسنجر وكان صديقك يكتب الإنجليزية وانت كذلك، فلغة الوصل بين الحضارات باتت مع الأسف الإنجليزية. ولكن ومع ذلك فقد تعلمناها وعلمناها! والأن أبو الحروف سوف يرشدك إلى أخطائك اللغوية بالإنجليزية، بمعنى أخر سوف تشعر بالأمان! حدد أي نص تريد أن تدققه في أي برنامج مهما كان وقم بالضغط على Ctrl+F4 وشاهد ما سوف يحصل! قد قام أبو الحروف بقراءة النص المكتوب ووضع لك خطوط حمراء تحت الكلمات المشكوك في صحتها. ليس هذا فقط بل ويعطيك قائمة احتمالات بالكلمات الصحيحة وذلك بالضغط على الكلمة بالزر الأيمن الخاص بالماوس. وعند انتهائك من التدقيق والذي لا يأخذ من وقتك أقل من 30 ثانية في أسوء الأحوال، قم بالضغط على زر موافق. لا حاجة للقيام بعمليات النسخ واللصق دع أبو الحروف يتولى المهمة عنك. سوف يصار إلى تغير النص المكتوب استبداله بالنص المدقق فقط بضغطة واحدة! هل تتصور ذلك؟ تنويه: أبو الحروف لا يعتمد على برنامج مايكروسفت ورد أبدا ويمكنه العمل بدون وجود الأخير على الجهاز. والجميل قي الموضوع أنه بورتابل Portable يعني بدون تثبيت ولا تحتاج لتثبيته في درايف النظام بل يمكن تشغيله من أي مسار في الكمبيوتر جزى الله المبرمج الأستاذ بشار المصري كل خير ملحوظة: يجب تشغيل البرنامج لأول مرة كمسئول Run as administrator بعدها ستشعر بدوره , aboal7roof_2_portable.rar

تفضل كل الحكاية تقدر تنشا مستخدمين براحتك وكل رساله راح تروح للشخص المرسله له الرساله Messages.rar AMINN مستخدم رقم 1 مستخدم رقم 2 كلهم الباسورد 1

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

بارك الله فيكم إخواني الكرام إثراءاً للموضوع في الخلية A1 ضع المعادلة التالية =RAND() اسحب المعادلة حتى الخلية A100 كدا العمود A بنسميه عمود مساعد في الخلية B1 اكتب المعادلة التالية واسحبها لحد B100 =RANK(A1,$A$1:$A$100) بس خلاص .. تقبلوا تحياتي

السلام عليكم و رحمة الله و بركاته لا احد يصدق ان الاكسس يمكن أن ينافس الاوراكل و السيكوال سيرفر الان يستطيع الاكسس ان ينافس الاوراكل و السيكول سيرفر للشركات الصغيرة و المتوسطة و المحلات التجارية متعددة الانشطة اولا : حجم قاعدة البيانات حيث امكن ابتكار اسلوب برمجى سلس و سهل يعتمد اسلوب السنوات المالية حيث أنه فى نهاية كل سنة مالية يتم اقفال السنة المالية و استخراج التقارير الختامية للشركة و يتم فتح سنة مالية جديدة تبدأ بارصدة حسابات السنة المالية الماضية ( الميزانية العمومية ) و بالتالى سيكون لدينا سنتين ماليتين مثلا 2014 القديمة و 2015 الجديدة و يمكن الرجوع لاى سنة مالية عن طريق اعادة الربط من خلال شاشة بسيطة و بذلك تم الاستغناء عن الحجم الكبير لقاعدة البيانات ثانيا : امان قاعدة البيانات حيث امكن عمل نسخة الية من قاعدة البيانات عند اغلاق البرنامج و كذلك اثناء تشغيل البرنامج و امكانية استرداد اخر نسخة احتياطية فى حالة خلل فى قاعدة البيانات من خلال شاشة بسيطة و امكانية اخذ نسخة احتياطية من قاعدة البيانات على فلاشة لزيادة الامان لقاعدة البيانات ثالثا : سهولة الصيانة و الدعم الفنى للبرنامج و بتكلفة ضئيلة جدا لتوفر الاوفيس مع كل جهاز كمبيوتر رابعا : التكلفة المتواضعة جدا خامسا : الامكانيات المبتكرة فى تصميم الشاشات و التقارير السهلة الاستخدام و الفعالة محاسبيا و اداريا كل ذلك و اكثر يمكن اكتشافه على الرابط http://mohasebmoslem.com/business1.html مع خالص تحياتى