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

السلام عليكم في المرفق كودين الاول هو كودك مع تعديل بسيط وهو انه يفبل الجهتين والكود الثاني هو منقول للامانة وهو اكثر احترافية Root500.rar

السلام عليكم مشاركة مع الاخوه الاعزاء ممكن ان نقوم فصل الحروف عن الاقام بحيث يصبح حقل ( للرقم) وحقل (للنص) 1-مرفق مثال لاستاذنا العزيز @ابوخليل بالدالة 2- مرفق مثال2 وضع مسافة بين الحروف والارقام تحياتي فصل الحروف عن الارقام دالة .rar فصل الحروف عن الارقام بمسافةr.rar

المنتدى مليئ بشريط للتحميل مثلا انظر .....

تم التعديل على الملف ليعمل كما تريد لا حاجة لادراج الترقيم (اكسل يفعلها أوتوماتيكياً) يمكنك التحرك داخل الشيت حتى ولو كان اليوزر ظاهراً Sort_Please.xlsm

السلام عليكم ورحمة الله وبركاته اهلا بحضرتكم جميعا النهاردة باذن الله هشرح طريقة جديدة .. للتأكد من ملء كافة الحقول قبل الانتقال الى سجل جديد مع الغاء زر الانتر والتاب من الانتقال بهم الى سجل جديد وده شرح فيديو لطريقة تنفيذ الطريقة MS_Be sure to fill in all fields.rar

جرب هذا الملف MY_search.xlsx

اقترح عليك هذا الملف (من الأرشيف) هناك مجال لاضافة الصادر والوارد في صفحات مستقلة من خلال الصفحة الرئيسية Sader_Wared1.xlsm

بارك الله فيكم جزاكم الله خيرا

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

If MsgBox("هل تريد طباعة التقرير؟", _ vbQuestion + vbYesNo, _ "طباعة") = vbYes Then DoCmd.OpenReport "barna" End If

عليكم السلام تفضل يا استاذى الفاضل على قد ما فهمت طلبك وتقدر تزود اى شيتات تحتاجها وهيتم تحميلها على الكومبوبوكس اوتوماتيكا لو فى تغيير او شئ مختلف عرفنى وشكرا. ttt (1) (1).xlsm

برنامج شئون العاملين الباسوورد 2545 برنامج شئون العاملين.rar

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

الضغط على ctrl+f3 والتعديل على نطاق الخلايا تم تسميته

البرنامج بعد اضافة الصيانات برنامج السيارات.rar

السلام عليكم ورحمة الله يتم عمل باستعمال (مثلا) الدالة OFFSET (أو الدالة DECALER بالفرنسية) مثلما فعلت في الملف المرفق باستعمال المعادلة التالية في النطاق بالتسمية: =OFFSET(ورقة1!$F$7;;;COUNTA(ورقة1!$F$7:$F$1000)) بن علية حاجي تسمية النطاقات.xlsx

السلام عليكم أستاذ husamwahab أرجو أن يكون لكم اقتراحات أخرى لان الكود الذي قمت به لم يعجبني وشكرا Nouveau Microsoft Access Base de données.accdb

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

بارك الله فيكم

بالتوفيق ...

وعليكم السلام-لا تنتظر المساعدة من احد بدون رفع ملف مدعوم بشرح كافى عن المطلوب , فلا يمكن العمل على التخمين

بارك الله فيك أستاذ / Mahmoud Abdou

جرب الان وبلغنى بالنتيجه ان كان تمام فالطريقه افتح النموذج فى وضع التصميم قف على الصوره ومن تبويب ترتيب والجزء حجم وترتيب اضغط على احضار الى المقدمه احفظ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق الموظف.rar

السلام عليكم ورحمة الله وبركاته وبعد.... جزاكم الله خير الجزاء وأسأل الله أن يجعل ايامكم كلها سعادة

السلام عليكم اخي الكريم يوجد نوع من الحماية (الحماية برقم القرص الصلب والمعالج واللوحة الأم) وهي ممتازة جدا تفضل الرابط https://www.officena.net/ib/topic/29928-الحماية-برقم-القرص-الصلب-والمعالج-واللوحة-الأم/page/2/ تحياتي

السلام عليكم اخي العزيز @hussamjjk آسف على التاخير بسبب المشاغل في النموذح كود يعمل لك داخل ملف (My_Files) الموجود ضمن مسار قاعدة البيانات مجلد آخر باسم الموظف وفي داخله يتم حفظ الصور التي تختارها برقم الكتاب اتمنى يكون المطلوب نسالك الدعاء تحياتي ☺️ New_Microsoft_Access_Database_(1).rar

اخى الفاضل استخدم واخبرنا بالنتيجه nz([text]);0) او ارفق مثال تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

هناك مسشاركة لي بهذا الموضع على هذا العنوان https://www.officena.net/ib/topic/100396-كتابة-جدول-مرتب-ابجدياً/?tab=comments#comment-607709

السلام عليكم ورحمة الله اخواتى واساتذتى لقد رأيت ان اشرح طريقة عمل ايقونة بطريقة بسيطة باستخدم خيارات الاكسس .. فقمت بشرحها على اليوتيوب لكي يستفيد منها كل الاعضاء المبتدئين وانا اعرف المنتدي غنى بمثل تلك المشاركة وبطرق مختلفة https://youtu.be/jav3HFmrbEE

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

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

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

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

السلام عليكم اخى الفاضل جزاك الله خيرا مشاركتك ايانا ما توصلت اليه ولكن يفضل وضع المثال مفتوح المصدر للتعلم ولكن هكذا ما فائدته واليك هذا الرابط به شرح اكثر للاستزاده http://arabteam2000-forum.com/index.php?/topic/248965-حساب-الارصدة-بطريقة-الوارد-أولا-يخرج-أولا-fifo/ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

استبدل في الكود "F18" بــــ "D20" تعديل الملف Rawateb_New.xlsm

الشكر لله ثم لاخواننا واساتذتنا جزاهم الله خيرا لا السبب انك قمت بتسميه الحقل الغير منضم Td ولم تغييره بالكود اتفضل ان شاء الله الامور تكون تمام تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق من 2018_2.rar

الأخ medobest اعتذر عن شرح الكود وذلك فقط لضيق الوقت ربما يقوم احد الاساتذة بعمل ذلك

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

اخي العزيز يمكن عمل ذلك من الجداول من خصائص الحقل بالاسفل في قاعدى التحقق من الصحة ضع الكود التالي Is Not Null ومطلوب اجعله / نعم تحياتي

بارك الله فيك وزادك الله من فضله

جزاك الله خيراً برنامج حلو جدآ

حقل عدد اللترات لايعمل

جميل جدا بارك الله فيك

تفضل اخي حسب مافهمت من سؤالك اتمنى يكون المطلوب تحياتي اعلمنا النتائج اخي الكريم test 2.rar

لقد كتبت لك بعض المعادلات في هذا الملف فقط عليك ان تكملها بالشروط التي ترديها (لم استطع فعل ذلك لضيق الوفت) jaber_new.xlsx

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

حجم الملف كبير جداً حوالي(7000 صف) لذلك من المفترض ان يأخد وقتاً للتنفيذ الكود الملف المرفق نموذج عما تريد (فقط حوالي 50 صف) لمتابعة عمل الكود الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A4:g4")) Is Nothing And _ Target.Count = 1 Then Range("A4:g4").Interior.ColorIndex = 40 Target.Interior.ColorIndex = 6 Call find_please(Target.Row, Target.Column) End If Application.EnableEvents = True End Sub '++++++++++++++++++++++++++ Sub find_please(IRow, ICol) Dim R As Worksheet, L As Worksheet Dim S_rg As Range 'Source range Dim m%, Ro%, i% Set R = Sheets("recherche") Set L = Sheets("liste") Set S_rg = L.Range("a2", L.Range("G1").End(4)) Ro = S_rg.Rows.Count For i = 1 To 7 If i <> ICol Then R.Cells(IRow, i) = vbNullString End If Next R.Range("A9").CurrentRegion.Offset(1).ClearContents m = 10 For i = 1 To Ro If UCase(Mid(S_rg.Columns(ICol).Cells(i), 1, Len(R.Cells(IRow, ICol)))) = _ UCase(R.Cells(IRow, ICol)) Then R.Cells(m, 1).Resize(, 7).Value = _ S_rg.Rows(i).Value m = m + 1 End If Next End Sub الملف مرفق list_saerch.xlsm

السلام عليكم اخي هذه محاولة اخري قد تكون الاداه غير موجودة عندك تبعا لما اقترحه الاخ كيمس مشكورا لاضافة الاداه اولا فك ضغط الملف register علي سطح المكتب و افتح الملف واضغط علي ملف Register.bat ثم اضغط علي انتر فك ضغط الملف الثاني و فك ضغطه ستجد بداخله ثلاثة ملفات و ملف read me.text انسخ الثلاثة ملفات و اقرا ملف read me.text لمعرفة مسار لصقهم و المسار الموجود لاوفس 2003 و 2007 و استنتج منه مسار اوفس 2010 لاني لا اعرفه و اخبرني النتيجة تحياتي Register.rar calendar.rar