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

تفضل استاذي . takhrij-2.rar

يارجل .. قليل من الفتنة اللي عندكم 😅🖐️ حاسس بالفكرة اللي في راسك .. أعرفك ما بتخليها تعدي عالماشي 😅👊 ‏‏Notes - v2.accdb اللهم آمين .. 🤲 وإياكم يارب 🌹🌺

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

يا أخي القلوب المتآلفة محبتها ، نعمة من الله ..

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

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

أداة مفيدة وجميلة لكن ماذا لو كانت السجلات لا تحتوى على حقول رقمية (نصية فقط حتى العددية منها ) Smart Fillter.accdb

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

سعيد بمشاركتي معكم .

أحسن الله إليك أخي الكريم .. هذه اللمسة الجميلة ستفيدني في أكواد أخرى

بعد الاذن منكم اساتذتي ممكن اكمل لما توصلتم اليه مع بعض لمساتي . takhrij-1.rar

أخي الكريم .. لتوضيح المطلوب من الكود الثاني، لنترك الملف المرفق سابقا ونعتمد المرفق هنا ستجد فيه أن جداول الكتب (book_1 - book_2) ليس فيها حقول (MNO MNO2 3 4 5 6 7) وإنما فقط حقل (MNOX) فارغا بينما جدول الربط (TAB_takhrij_X) معبأ بالبيانات والمطلوب هو نقل أرقام (MNO) من جدول الربط إلى ما يناسبها من (bookID) في حقل (MNOX) من جداول الكتب فعند إرادة نقل الأرقام لحقل (MNOX) من جدول (book_2) يأخذ الكود اسم الجدول المراد تعبئته من مربع (txt1) أما مربع (txt2) ففيه رقم الجدول (2) وعندها فمجال عمل الكود هي الصفوف التي يكون فيها حقل (TableNo) من جدول (TAB_takhrij_X) = (2) ويقوم بنقل أرقام (MNO) إلى مواضعها بدلالة (bookID) وإذا كان للحديث الواحد أكثر من رقم (MNO) فيوضع الرقم التالي بعد السابق بفاصل & ، لأن حقل ((MNOX) حقل نصي والنتيجة المطلوب الوصول لها في جدول (boo_2) هي: takhrij2.accdb

السلام عليكم ورحمه الله وبركاته يمكنك مراجعه الربط ادناه لعله يفيد حضرنك تحويل الاكسل الى ملف تنفيذي (EXE) هل يمكن تغير شكل ايقونة التشغيل

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

وعليكم السلااااااااام ورحمة الله وبركاته ،، مهندسنا الغالي يا مرحبا يا مرحبااا بالإبداعات الجميلات الفاتنات 😅 أتكلم عن أفكارك تراني ما هذا يا رجل !!!! ترفع لك القبعة على هذه الفكرة الجميلة جداً بكل صدق وأمانة 🤗 راقت لي كثيراً ، وخصوصاً فكرة ان الملاحظات تظهر حسب اسم الجهاز لأصحاب قاعدة البيانات المشتركة على أكثر من جهاز . أحسن الله إليك و لوالديك ، وأثابكم الجنة على ما صنعتم .. لي فكرة ، ولكن ليس الآن موعدها لأطرحها عليك 😁

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

تفض أخي الكريم ملف رائع من أحد أساتذة المنتدى الأستاذ عبدالفتاح كيره الديناميكى التام لاستعراض السجل وحفظ التغييرات مع الفريم1kemas.xls تفضل ملف آخر للعلامه خبور فورم ادخال و تعديل مرن.xlsm

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

تفضل ..لا اعرف ماذا تقصد ب ادراج حجز علما انك وضعت كود ترحيل فورم ادخال بيانات ديناميكى (1).xlsm

جرب المرفق فورم ادخال بيانات ديناميكى (1).xlsm

تم تفعيل زر الحذف مع ادراج التاريخ بالتنسيق كما تريده Private Sub Cmd_Del_Click() First_Of_all Dim FR As Range If Val(Me.Where) <= 0 Then Else Set FR = ws.Range("A8:A" & lr) _ .Find(CInt(Me.Where), lookat:=1) If FR Is Nothing Then MsgBox "I can't Find That " _ & """" & Me.Where & """" & " In Column A" Exit Sub Else ws.Cells(FR.Row, 1).Resize(, 7).Delete lr = ws.Cells(Rows.Count, 2).End(3).Row ws.Range("a10").Resize(lr - 9) = _ Evaluate("Row(1:" & lr - 9 & ")") End If Me.Where = CInt(Me.Where) End If End Sub yasse.w._1.xlsm

استاذنا الكبير / عبد الله باقشير السلام عليكم و رحمة الله و بركاتة فى البداية كل عام و انتم بخير ، ثم لقد استفدت كثيرا من هذا الفورم الجميل لكن هل هناك امكانية للتعديل على الفورم من تكست بوكس الى كمبوبوكس كما فى المرفق خاصة و اننى اريد عند اختيار كمبوبكس تظهر الاكواد الموجودة فى شيت Code المرفق و جزاكم الله خيرا و نفعكم بعلمكم فورم ادخال و تعديل مرن مع الصور.rar

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

تفضل اخي 10-11.rar

السلام عليكم كل ما حدث خير والنيات كانت طيبة وشهر كريم وتفضل ما طلبت اخي كنافه شاهد المرفق بحث بثلاثة معايير مع نسخ بيانات1.rar