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

في الملف المرفق عندنا جدول من A1 الى F8 وعلى المستخدم ان يملؤه بالترتيب (في كل صف) مثلا اذا قمت بالكتابة في الخلية D4 و كان ما قبلها فارغاً (C4) يقوم الدكتور اكسل بمسح ما قمت بكتابته بعد الخروج من الخلية دون انذار و اذا حذفت اول خلية بالصف يتم حذف كامل الصف الكود Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Range("A1:F8")) Is Nothing Then If Target.Count = 1 Then del_to_Column (Target.Row) End If End If Application.EnableEvents = True End Sub '================================ Sub del_to_Column(R) Dim My_rg As Range, R_Empty As Range Dim Col% Set My_rg = Cells(R, 1).Resize(, 6) Col = My_rg.Columns.Count Set R_Empty = My_rg.Find(vbNullString, After:=Cells(R, 6)) If Not R_Empty Is Nothing Then R_Empty.Resize(, Col - R_Empty.Column + 1) = vbNullString End If End Sub الملف مرفق write_by_order.xlsm

انه فعلا يصلح لقاعدة مقسمة كل ما عليك هو تعديل مسار القاعدة الهدف (المطلوب سحب البيانات منها) ليصبح الكود من: currentbroject.path & "\" & databaseFullName.accdb الي في حالة القاعدة على جهاز محلي D:\databaseFullName.accdb أو الي في حالة القاعدة علي سرفر \\ServerAddress & "\databaseFullName.accdb"

اعتبره جزء من الحل ..... انظر Exam.accdb

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

أجل فهمت الان و غدا نقوم بتعديل ان شاء الله

السلام عليكم ورحمة الله وبركاته هذا مثال مبسط علي حسب الموعد علي الفكرة المعروضة بالأمس أرجو أن يوافق مرادك ولكن علي حسب الاتفاق أولا 😉 NewSl7yat.accdb اضف حساب جديد عند الدخول وجرب جميع الصلاحيات

محاولة ExamُُE.accdb

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

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

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

عيني هذا كود مالت الفلتر اوضعه في حدث عند الفتح

تفضل اخي الكريم Dim varFilter As Variant varFilter = 0 With Me.Form If Not IsNull(varFilter) Then .DataEntry = False .Filter = varFilter .FilterOn = True Else .FilterOn = False End If .Requery End With

في حدث عند فتح التقرير استعلام التقرير الاول If DCount("[ID]", "[Query1]") = 0 Then [report1].Visible = False استعلام التقرير الثاني If DCount("[ID]", "[Query2]") = 0 Then [report2].Visible = False استعلام التقرير الثالث If DCount("[ID]", "[Query3]") = 0 Then [report3].Visible = False اذا كان الاستعلام فارغ سيتم اخفاء التقرير .... مع مراعاة تغيير ما يلزم و الله يبارك فيك يا غالي الف الف شكرا على كلماتك الايجابية شكرا لك

اثناء عمل النت انا لما فتحت ملفك فتح لى صفحة جوجل ارث معلش مزيد من التوضيح لان عمرى كبير

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

اذا النقاط مجرد رقم متغيير يوضع من قبل المستخدم فإذا كانت اكبر او يساوي 40 تكون الترقية دنيا و إذا كانت اصغر او يساوي 20 تكون الترقية قصوى هل هذا صحيح ؟؟؟

انظر المرفق لمروض الاكسس المبدع @ابا جودى

أضغط Ctrl+ F1 لاخفاءه و مرة اخرى لاظهاره

وعليكم السلام-وذلك كما بالصورة

ارجوا انك تحدد معايير الترقية كيف يتم ترقية الموظف بدون شرح تفصيلي احتاج شرح عملي عشان توصل الفكرة انظر للتعديل المرفق test 2 (2).accdb

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

السلام عليكم جدول لم ارى افضل منه الى الان للعلامة عبدالله باقشير https://www.officena.net/ib/topic/33013-برنامج-الجدول-المدرسي-الاصدار-الثاني/

السلام عليكم جرب الفورم البحث باسم المجموعة يمكنك البحث بأي كلمة في العمود (A) البحث باسم الصنف نفس الشيء تحياتي RASED GADED.xlsm

تفضل مسابح(AutoR1ecovered).xlsx

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

طيب على العموم المرفق مره اخرى بنموذج اخر يعتمد هذه المره على الدالة API جرب استخدام النموذج frmB Move files ( 2 ).zip

فورم خاص للعمل على الجدول مع ترتيب الاسماء ابجدى الفيديو الصور

طبعا استاذى الجليل واخى الجبيب والعزيز على قلبى الاستاذ @Barna جزاه الله خيـــر كفى ووفى وإثراء للموضوع اضف هذا المرفق - اختزال كامل وشامل لكود حساب العمر - الحساب مباشرة داخل النموذج بمجرد وضع التاريخين - عدم اضافة اى بيانات داخل الجدول نتيجة لاحتساب العمر فقط يحتسب العمر من الدالة داخل الموديول ومن خلال الاستعلام دفعة واحدة لاى عدد من السجلات مهما كان الفرق بين تاريخين.mdb

وعليكم السلام أخي الكريم زهير لربما تقصد إلى VCF وليس CSV ..جرب الملف التالي عله يفي بالغرض .. وإذا لم يفي بالغرض قم بإرفاق ملفك Convert Excel Contacts To VCF YasserKhalil Officena.rar

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله أقدم لكم كود متميز جداً .. كود في منتهى الروعة .. إن شاء الله تستفيدوا منه أقصى استفادة .. الكثير منا يبحث عن موضوع فصل الناجحين والراسبين .. ها أنا أقدم لك على طبق من كود : الكود الذهبي الذي سيقوم بذلك بمنتهى السهولة واليسر .. هذا هو الشكل العام للكود Sub SplitFilteredData() 'الإعلان عن المتغيرات Dim MySheet As Worksheet Dim MyRange As Range Dim UList As Collection Dim UListValue As Variant Dim I As Long 'تخصيص ورقة العمل النشطة Set MySheet = ActiveSheet 'إذا لم تحتوي ورقة العمل على فلترة يتم الخروج من الإجراء الفرعي If MySheet.AutoFilterMode = False Then Exit Sub End If 'حدد العمود الذي يحتوي على البيانات المراد عمل تصفية لها Set MyRange = Range(MySheet.AutoFilter.Range.Columns(5).Address) 'إنشاء كائن تجميعي Set UList = New Collection 'وضع قيم في الكائن التجميعي بالقيم الفريدة أي الغير مكررة فقط On Error Resume Next For I = 2 To MyRange.Rows.Count UList.Add MyRange.Cells(I, 1), CStr(MyRange.Cells(I, 1)) Next I On Error GoTo 0 'حلقة تكرارية للقيم الموجودة داخل الكائن التجميعي For Each UListValue In UList 'حذف أية أوراق عمل تم إنشاءها من قبل On Error Resume Next Application.DisplayAlerts = False Sheets(CStr(UListValue)).Delete Application.DisplayAlerts = True On Error GoTo 0 'عمل تصفية لمطابقة القيمة الحالية MyRange.AutoFilter Field:=5, Criteria1:=UListValue 'نسخ النطاق الذي تم تصفيته إلى ورقة عمل جديدة MySheet.AutoFilter.Range.Copy Worksheets.Add.Paste ActiveSheet.Name = Left(UListValue, 30) Cells.EntireColumn.AutoFit 'إعادة الحلقة التكرارية مع قيمة أخرى Next UListValue 'الذهاب للصفحة التي تحتوي على البيانات وإزالة الفلترة MySheet.AutoFilter.ShowAllData MySheet.Select End Sub في الفيديو شرح لكيفية استخدام الكود .. ومرفق في الموضوع الملف الذي تم الشرح عليه إليكم رابط الفيديو لا تنسونا من صالح دعائكم ، ولا تنسوا اللايكات في اليوتيوب ... تقبلوا تحيات أخوكم أبو البراء Split Filtered Data VBA.rar Split Filtered Data VBA V2.rar

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

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

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