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

قم بتحويل القاعدة الى صيغة Accde او Mde والسلام

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

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

هذا كود يخفي كامل القوائم المختصرة Private Sub Form_Open(Cancel As Integer) Me.ShortcutMenu = False End Sub

أهلا بك.. راجع المشاركة التالية من فضلك

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

مرحباً في الرابط المرفق كود لمنع فتح وضع التصميم و مشكلته الوحيدة أنه يمنع عرض اي قاعدة بوضع التصميم و لا يقتصر على القاعدة الحالية و التوصيات في إجابة السؤال كانت تحويل القاعدة إلى accde On Error Resume Next If Not GetUserInfo("ADMIN_PERMIS") = 1 Then Dim cb As CommandBar Dim cbCtl As CommandBarControl For Each cb In CommandBars If cb.type = msoBarTypePopup Then For Each cbCtl In cb.Controls If cbCtl.Caption = "&Design View" Then cbCtl.enabled = True cbCtl.visible = False Else cbCtl.visible = True End If Next End If Next Set cb = Nothing: Set cbCtl = Nothing End If https://stackoverflow.com/questions/15957315/disabling-design-view-in-ms-access

أمامنا جدول مع بيانات مختلفة 1- انقر على اي خلية من الجدول (ما عدا رأس الجدول) لتحصل على فلتر بقيمة هذه الخلية 2-انقر على اي خلية ( من رأس الجدول) لتحصل على كل البيانات 3-لإضافة بيانات على الجدول انقر على اول صف فارغ وأملأ الصف كما تشاء (لا يعمل الماكرو الا اذا كان الصف كاملاً ببياناته 4 قيم) ملاحظة: لا يعمل الماكرو Reset ولا الماكرو Make_On_Top كل بمفرده الا من خلال الماكرو الرئيسي SelectionChange الماكرو Option Explicit Dim Lr%, Rng As Range '========================== Sub Make_On_Top() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 With ActiveSheet .Range("z1") = Cells(3, ActiveCell.Column) .Range("z2") = ActiveCell.Value .Range("a3").CurrentRegion.AdvancedFilter 1, Range("z1:z2") .Cells(3, ActiveCell.Column).Interior.ColorIndex = 8 End With Exit_Sub: End Sub '================================== Sub Reset() On Error GoTo Exit_Sub Rng.Rows(1).Interior.ColorIndex = 6 On Error Resume Next ActiveSheet.ShowAllData On Error GoTo 0 Exit_Sub: End Sub '=========================== Private Sub Worksheet_SelectionChange(ByVal Target As Range) Lr = Cells(Rows.Count, 1).End(3).Row Set Rng = Range("A3:D" & Lr) If Not Intersect(Target, Rng) Is Nothing And _ Application.CountA(Range(Cells(Target.Row, 1), _ Cells(Target.Row, 4))) = 4 _ And Target.Cells.Count = 1 Then If Target.Row = 3 Then Reset Else Make_On_Top End If End If Range("z1:z2").Clear End Sub الملف مرفق Super Adv_Filter.xlsm

السلام عليكم جرب هذا تعديل تقرير.zip

تفضل اخي الكريم عملت لك تعديل علي قاعدتك شوف انا شاء الله تكون مطلوبك الحفظ التلقائي.accdb

استخدم هذا NZ(DMAX("[ID]";"NameForTable");0)+1 هناك كتير مواضيع على ذلك ابحث و خذ المعلومات

الله يبارك فيك تسلم يا استاذنا الفاضل جارى الاستفادة منهم

اتفضل اليك وهذا واليك قائمة البحث عن الموضوعات شبيه https://cse.google.ae/cse?cx=partner-pub-4958585055085854:7791406915&ie=UTF-8&q=username

عليك برفع ملفك لمعاينة مشكلتك

لا اخي انا كمان رسلت لك الكود الاول انا كنت اقصد هذا On Error Resume Next DoCmd.SetWarnings False Dim Q As Recordset 'هذا الكود يلغي الخفظ التلقائ عند التراجع و' Set Q = CurrentDb.OpenRecordset("SELECT * from AJRD;") While Not Q.EOF If Q!Xsave = False Then Q.Delete End If Q.MoveNext Me.frm_JRD_Sub.Requery Me.Refresh Wend DoCmd.SetWarnings True Me.Refresh

ما المشكلة بالنسبة لك الملف الأن بدون حماية ,اى تستطيع اضافة ما تشاء من الفرق لمن تريد

انا لم اجربه ولكن اظنه اسمح لاني لو لحظت انا اضفت فيه مجلد +برنامج ماكان فيه اي مشكلة

طيب هذا مضغوط http://www.mediafire.com/file/q7clvcexa60ajbd/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC_%D8%A7%D9%84%D8%AE%D9%8A%D8%A7%D8%B7_%D8%A7%D9%84%D8%AC%D8%AF%D9%8A%D8%AF.rar/file

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

هذا تطبيق لما تفضل به الاخ أبو إبراهيم الغامدي bb.rar

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

جرب هذا الملف Add_Combo.xlsm

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

شكرا استاذ سليم على هذا العمل الرائع اود تطبيق هذا الماكرو على هذا النموذج المرفق لو تفضلتم بمساعدتي على ذلك Book3.xlsx

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

هذه المعادلة =SUM(INDEX($E$5:$P$5,MATCH($E$1,$E$4:$P$4,0)):$P$5) الملف مرفق دالة جمع لمجال محدد بشرط salim.rar

السلام عليكم ورحمة الله تم حذف التسميتين Liste_1 و Liste_2 وتعديل الأكواد لإنشاء نطاقات ناحية الطباعة لكل الشيتات برمجيا مع تغييرات أخرى لتجنب الخطأ الذي ظهر في الرسالة... إن شاء الله تفي هذه التعديلات الغرض المطلوب.... بن علية حاجي اعمال السنة 2018 -والأنشطة.rar

السلام عليكم ورحمة الله أخي الكريم، تم التعديل على عناوين الجداول لمطابقتها مع أسماء الشيتات وإدخال دالة INDIRECT على المعادلات حسب هذه التعديلات... إن شاء الله يكون في الملف المرفق ما يفي المطلوب ..... أخوك بن علية Indirect_ifs.rar