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

صح اعمل زر جديد وفي محرر فيجوال الصق الكود في حدث عند النقر * وايضا هناك طرق اخر لحذف الكل في جدول

الیک ھذا السطرين يحذف كل سجلات الموجودة DoCmd.RunCommand acCmdSelectAllRecords DoCmd.RunCommand acCmdDeleteRecord

بسم الله الرحمان الرحيم السلام عليكم تحياتي لجميع اعضاء اوفيسنا المحترمين الموضوع ليس بجدبد فقد تم التطرق له من قبل الاستاد القدير عبد الله باقشير جازاه الله خيرا و ان شاء الله نراه بينانا في المنتدى عن قريب لمتابعتي المنتدى في الاونة الاخيرة رئيت عدت تسائلات عن البحث والتعديل في الجداول و رئيت العديد من الحلول فحاولة الاجتهاد و الوصول الى ابسط و اسهل طريقة لعمل ذلك لذى فكرة في برمجة فورم مرن يكون ملائم لاي جدول مهما كان عدد صوفوفه او عدد اعمدته و لكي يتمكن اي عضو مهما كانت معرفته بالبرمجة ضعيفة من استعماله بسهولة ووصلة الى هذا الفورم الذي ارجو ان اكون قد وفقت في فكرته وان يستفيد منه الاغلبية يتميز هذا البرنامج يجلب الجدول المستهدف للعمل عليه و امكانية البحث داخله بدلالة اي عمود من اعمدته كما ان البحث يتميز بالبحث بأول حرف من الكمة او اي جزء منها حسب احتياجك وايضا تتميز عملية البحث بالسرعة الفائقة لاني اعتمدت على المصفوفات للوصول الى ذلك و تعرفون قوة المصفوفات و فعاليتعها اما بخصوص التكستبوكس و الكمبوبكس فتنشأ برمجيا على حسب عدد اعمدة الجدول نأتي الان الى طريقة استعمال الفورم هذا مع ملفك الخاص اولا اذهب الى محرر الاكواد تجد موديل باسم ModulePublic تجد في بدايته هذين الكودين او التعريفين ان صح التعبير Public Const sNomFeuil As String = "data" 'اسم ورقة العمل التي تحمل قاعدة البيانات Public Const sTableau As String = "tbData" ' اسم جدول قاعدة البيانات اضن ان الامر واضح تصع اسم الشيت الذي يحوي الجدول مكان عبارة "data" واسم الجدول نفسه مكان عبارة "tbData" ملاحظة : يجب ان تكون قاعدة البيانات عبارة عن جدول لايهم عدد اعمدة ولا صفوفه المهم ان يكون جدول باتباعك الخطوات السابقة تكون قد انتهيت من ربط جدولك مع الفورم ثانيا نأتي الى الاعمدة التي تحتاج قوائم في مثالنا لدين العمود 4 و العمود الاخير يحتاجون ان يمثلو في الفورم على شكر قوائم (كمبوبكس) لتنفيذ ذالك قم بأنشاء القوائم الازمة في اي شيت تريد و اعطي كل مدى قائمة اسم معين في المثال الخاص بنا سمينا نطاق قائمة الجنس ب list1 كما هو موصح في الصورة ثم اذهب الى رأس العمود المستهدف قم بادراج تعليق له و اكتب داخل التعليق نفس اسم نطاق القائمة و انتهى الامر ارجو ان اكون قد وفقت في الشرح وان يستفيد أكبر عدد من الاعضاء من هذا العمل ملاحضة: تنسيق عرض اعمد اليست يكون بتنسيقك ععرض اعمدة الجدول نفسه من الشيت و الفورم يكتشف العمود الذي يحوي تواريخ تلقائيا اي ملاحظة او استفسار او اضافة تحتاجونها للفورم لا تترددو في طلبي اهدي هذا العمل الى الغائبين الحاضرين في قلوبنا الاخ ضاحي الغريب و الاستاد عبد الله باقشير تحياتي للجميع UserForm Flexibles.rar

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

السلام عليكم الملف المرفق يجب أن يُرفق معه (اسم المستخدم-كلمة المرور-كلمة مرور VBA) أو يُرفق منزوع الحماية... تم عمل المطلوب في الملف المرفق... ملاحظة : تم حذف كلمة مرور VBA من الملف... بن علية حاجي اخلاء.rar

السلام عليكم وضع رقم بين علامتي التنصيص "" هذا يعني أنك تريده أن يكون نصا وليس قيمة مما يفسر النتيجة 0 لمعادلتك... بن علية حاجي

جرب هذه المعادلة(بدون Ctrl+Shift+Enter) =SUMPRODUCT(('الصف 1'!$D$2:$D$65536="مسلم")*('الصف 1'!$I$2:$I$65536=8)

و ما أوتيتم من عِلمٍ فهو قليل....

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

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

القي نظرتا الى هذا ترحيل 55 (1).rar

بارك الله فيك أستاذ شفان

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

سلام عليكم ممكن استخدم البرنامج بتاعك بعد ما تخلصه

السبب یرجع لان حقل نعم لا ھو فی جدول الشقق عند تعمل علامە صح امامه كانك تضع علامة صح امام كل السجلات ترحيل 55.rar

جرب هذه الكود (في الورقة الاولى ليست مدرجة كل المعلومات المطلوبة في الورقة الثانية)مثلاً :اسم والد التلميذ نستطيع التعديل على الكود بعد ادراج هذه المعلومات الافضل رفع الملف دون زركشات وألوان غير متناسقة تجعل الشخص غير قادر على رؤية البيانات الا بعد جهد جهيد و مما يثقل الملف الى حد كبير(تصور حجم الملف 1.3 ميغا) و المفروض الا يتجاوز ال 200 كيلو Option Explicit Sub filter_me() Application.EnableEvents = False Dim My_Sh As Worksheet, Source_Sh As Worksheet Dim last_row As Long Dim lr As Long Dim My_rg As Range Dim My_First As Long, i As Long My_First = 11 Set My_Sh = Sheets("سجل قيد الطلاب المستجدين"): Set Source_Sh = Sheets("بيانات الطلاب") last_row = My_Sh.Cells(Rows.Count, "c").End(3).Row If last_row < 11 Then last_row = 11 lr = Source_Sh.Cells(Rows.Count, "c").End(3).Row If lr < 17 Then lr = 17 My_Sh.Range("c11:p" & last_row).ClearContents For i = 17 To lr If Source_Sh.Range("F" & i) = "مستجد" _ Or Source_Sh.Range("F" & i) = "مستجدة" Then With My_Sh .Cells(My_First, "c") = Source_Sh.Range("c" & i) .Cells(My_First, "e") = Source_Sh.Range("h" & i) .Cells(My_First, "f") = Source_Sh.Range("i" & i) .Cells(My_First, "g") = Source_Sh.Range("j" & i) .Cells(My_First, "k") = Source_Sh.Range("n" & i) .Cells(My_First, "L") = Source_Sh.Range("e" & i) .Cells(My_First, "M") = Source_Sh.Range("f" & i) .Cells(My_First, "o") = Source_Sh.Range("L" & i) .Cells(My_First, "p") = Source_Sh.Range("m" & i) My_First = My_First + 1 End With End If Next Application.EnableEvents = True End Sub

حل ما اروعه .. ولكن مش راضي يتم معي ارجوكم فيديو بسيط سيفيد ولكم تقديرنا

كي نفعل ذلك يجب ان نحتال على اكسل اليك هذه الحيلة: 1-قبل عملية النسخ قم باستبدال علامة"=" قي كل الورقة بأي شي اخر مثلاً "##^^" و ذلك من خلال الضغط على Ctrl+H والقيام يعملية الاستبدال Replace All بذلك تتعطل كل المعادلات في الورقة ( حيث لا يوجد "=" لتنفيذ المعادلة) 2-قم بنسخ الورقة الى المكان المطلوب 3- قم باستبدال "##^^" يعلامة "=" في الورقتين المصدر و الهدف

شروحات أكسس الصوتية والمرئية دروس الأستاذ عبدالفتاح كيره شرح 3 طرق لفتح نموذج من داخل نموذج آخر الاستفادة من خاصية القيمة الافتراضية للحقول شرح التحقق من عدد أرقام الرقم القومى شرح استخلاص ت الميلاد من الرقم القومى دالة mid-val شرح دالة DateSrial شرح البحث عن اسم يتضمن أى حروف البحث بمعلومية شرطين باستخدام استعلام و كود شرح استعلام إلحاق استعلام الإلحاق بدون تكرار مع تعديل بعض الحقول الملحقة كيف تفتح نموذجا على سجل محدد كيفية التحكم فى حقل بنموذج فرعى من خلال النموذج الرئيسى كيفية البحث عن السجلات و الانتقال إليها التنقل بين السجلات في نموذج أكسيس بخطوات محددة التخطيط لإنشاء قاعدة بيانات ======================================================== تعلم الاكسيس ( باللغه العربيه صوت و صوره ) لــ admiral http://www.officena.net/ib/index.php?s=c6d3bad3a53a5ac634ea791d48f6472c&showtopic=31301 ======================================================== شرح اكسس 2003 فيديو (1)... لقنديل الصياد http://www.officena.net/ib/index.php?showtopic=48569 شرح اكسس 2007 (2) http://www.officena.net/ib/index.php?showtopic=51147 شرح اكسس 2010 (3) http://www.officena.net/ib/index.php?showtopic=51150 ======================================================== تعليم برنامج أكسس 2010 لـــ ALSHAMAL http://www.officena.net/ib/index.php?showtopic=54641 ======================================================== أكسيس 2013 شروحات متنوعة الاستاذ عبداللطيف طراقجي شرح برنامج مايكروسوفت أكسيس 2013 http://www.officena.net/ib/index.php?showtopic=59950&hl= الدرس الأول إنشاء و إدارة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=59961&hl= الدرس الثاني: إدارة العلاقات و المفاتيح في برنامج الأكسيس http://www.officena.net/ib/index.php?showtopic=60073&hl= الدرس الثالث: التنقل من خلال قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60177&hl= الدرس الرابع: حماية و صيانة قواعد البيانات http://www.officena.net/ib/index.php?showtopic=60261&hl= الدرس الخامس: طباعة و تصدير قاعدة البيانات http://www.officena.net/ib/index.php?showtopic=60376&hl= الدرس السادس: إنشاء الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60468&hl= الدرس السابع: تنسيق الجداول في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60584&hl= الدرس الثامن: إدارة السجلات في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60681&hl= الدرس التاسع: إنشاء و تعديل الحقول في جداول قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60809&hl= الدرس العاشر: إنشاء الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60893&hl= الدرس الحادي عشر: إنشاء الاستعلامات الاجرائية في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=60988&hl= الدرس الثاني عشر: تعديل الاستعلامات في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61086&hl= الدرس الثالث عشر: استخدام و تجميع الحقول المحسوبة في الاستعلام http://www.officena.net/ib/index.php?showtopic=61177&hl= الدرس الرابع عشر: إنشاء النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61265&hl= الدرس الخامس عشر: تعيين عناصر تحكم النموذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61351&hl= الدرس السادس عشر: تنسيق النماذج في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61409&hl= الدرس السابع عشر: إنشاء التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61468&hl= الدرس الثامن عشر: تعيين عناصر تحكم التقرير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61561 الدرس التاسع عشر و الأخير: تنسيق التقارير في قاعدة بيانات أكسيس http://www.officena.net/ib/index.php?showtopic=61634