كل الانشطه

هل تقصد هذه الفكرة ؟؟ لغز.zip

شكراً لك مهندسنا الغالي على متابعتك .. المشكلة في موقع وترتيب السطر Me.lstAPI.RowSource = "" بحيث يكون في حدث بعد التحميل للنموذج ونقله من بداية الكود إلى بعد السطر المسؤول عن إنشاء الجداول ، ليصبح الحدث = Private Sub Form_Load() On Error GoTo EH Dim ctl As Control For Each ctl In Me.Controls If ctl.Tag = "Fixer" Or ctl.Tag = "Option01" Or ctl.Tag = "API" Then ctl.Visible = False End If Next ctl Me.BtnNextMenu.Visible = True Me.LblHelper.Left = 8100 ToggleButtons Me.BtnCollaps, Me.BtnExtended Me.CheckAll.Visible = False Me.lstProcedures.Visible = False Me.LblHow.Caption = "" CX_EnsureInstalled Me.lstAPI.RowSource = "" CX_InitUI CX_ScanAndLoad CX_APILibraryData CX_LoadAPIs Me.lstProcedures.RowSource = "" Me.LblWhere.Caption = "" If Not CX_IsVBIDETrusted() Then CX_ShowVBIDENotTrustedMessage CX_BindEmptyUI Exit Sub End If Exit Sub EH: ShowError "Form_Load" End Sub وإن شاء الله سيتم حل المشكلة ، فقد كان يقوم بتفريق مصدر الليست بوكس قبل التأكد من إنشاء الجداول نفسها .

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

وعليكم السلام ورحمة الله وبركاته الحل هو نقل الكود إلى موديول (Module) عادي وتخصيص زر لتشغيله فقط عندما تضيف أوراق عمل جديدة اليك التعديل بالمرفق المصنف2.xlsm

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

1. كيف تم إضافة عناصر القائمة؟ بنفس الطريقة اللى انا عملت بيها قاعدة وجدول وحقل و نموذج ومربع سرد و كله جديد X جديد واضفت البيانات 2- كيف يمكن حذف تلك العناصر؟ زى ما اضفنا البيانات نخذفها 3- أين يتم حفظ القائمة؟ فى الجدول

السلام عليكم هل يمكن أن يتم التأشير تلقائيا بعد ادخال ال Full name وفى حالة عدم الادخال لا يتم التأشير وشكرا

تنفيذ الفكرة البسيطة بطريقتي على ويندوز 10 😅 وبما أنك اعتمدت على DWM المدمجة في الويندوز 11 و حتى الويندوز 10 ولكن بميزات إضافية ليست في الويندوز 10 . لذا استخدمت اسلوب الحيلة على النموذج لتطبيق فكرة الإنحناء للنموذج وتغيير لون شريط العنوان ونصه باستخدام مستطيل و ليبل . طبعاً مع تحديد قيمة حدود النموذج = None وهي نقطة مهمة في التنفيذ والإستجابة الصحيحة . طبعاً فكرتي ليست بجمال فكرتك بالتنفيذ الملف بعد التطبيق .. أداة تخصيص شريط العنوان - محدثة.zip

Magic.accdb

ههههههههههههههههههههه طيب نتناقش بعد ما تشوفوا ده C:\Users\000000\Desktop\لغز.accdb Thursday, March 12, 2026 Table: Table1 Page: 1 Properties AlternateBackShade: 95 AlternateBackThemeC 1 AlternateBackTint: 100 BackShade: 100 BackTint: 100 DatasheetForeTheme 0 DatasheetGridlinesThe 3 DateCreated: 3/12/2026 2:41:20 AM DefaultView: 2 DisplayViewsOnShare 1 FilterOnLoad: False GUID: {انا حذفته HideNewField: False LastUpdated: 3/12/2026 2:43:11 AM NameMap: Long binary data OrderByOn: False OrderByOnLoad: True Orientation: Left-to-Right PublishToWeb: 1 ReadOnlyWhenDiscon False RecordCount: 1 ThemeFontIndex: 1 TotalsRow: False Updatable: True Columns Name Type Size ID Long Integer 4 AggregateType: -1 AllowZeroLength: False AppendOnly: False Attributes: Fixed Size, Auto-Increment CollatingOrder: General ColumnHidden: False ColumnOrder: Default ColumnWidth: Default CurrencyLCID: 0 DataUpdatable: False GUID: {انا حذفته} OrdinalPosition: 0 Precision: 1033 Required: False ResultType: 0 Scale: 0 SourceField: ID SourceTable: Table1 TextAlign: General Field1 Short Text 255 AggregateType: -1 AllowZeroLength: True AppendOnly: False Attributes: Variable Length CollatingOrder: General ColumnHidden: False ColumnOrder: Default ColumnWidth: Default CurrencyLCID: 0 DataUpdatable: False DisplayControl: Text Box GUID: {انا حذفته} C:\Users\00000\Desktop\لغز.accdb Thursday, March 12, 2026 Table: Table1 Page: 2 IMEMode: 0 IMESentenceMode: 3 OrdinalPosition: 1 Precision: 1033 Required: False ResultType: 0 RowSource: "آسيا";"أفريقيا";"أوروبا";"أمريكا الشمالية";"أمريكا الجنوبية";" Scale: 0 SourceField: Field1 SourceTable: Table1 TextAlign: General UnicodeCompression: True Table Indexes Name Number of Fields PrimaryKey 1 Clustered: False DistinctCount: 1 Foreign: False IgnoreNulls: False Name: PrimaryKey Primary: True Required: True Unique: True Fields: ID Ascending User Permissions admin Delete, Read Permissions, Set Permissions, Change Owner, Read Definition, Write Definition, Read Data, Insert Data, Update Group Permissions Admins Delete, Read Permissions, Set Permissions, Change Owner, Read Definition, Write Definition, Read Data, Insert Data, Update Users Delete, Read Permissions, Set Permissions, Change Owner, Read Definition, Write Definition, Read Data, Insert Data, Update

مشاركة مع الحبايب

استسمحك لباكر . انشاء الله.

تفضل استاذ @اويس.. طلبك حسب مافهمت .. ووافني بالرد . Health -Municipal Violations Management.rar

أثناء بحثي ضمن مخزون تطبيقات الاكسس عندي للبحث عن أفكار جديدة أستخدمها كموضوع لأداة جديدة أضيفها لسلسلة الأدوات المساعدة المخصصة وقع بيدي ملف كنت قد حملته منذ سنوات من أحد المنتديات الأجنبية وقد كان عبارة عن تحدي أو لغز غريب وهو عن مربع تحرير وسرد يحتوي على قائمة عناصر ولكن عند فتحه في وضع التصميم لا نجد أي عناصر في مصدر الصف الخاص بالقائمة والحقيقة أني وأثناء محاولاتي لحل اللغز وجدت أنه في مضمونة يتكون من أكثر من سؤال 1- كيف تم إضافة عناصر القائمة؟ 2- كيف يمكن حذف تلك العناصر؟ 3- أين يتم حفظ القائمة؟ وحتى أكون صادقاً في كلامي فقد إستطعت حل السؤالين 1 و 2 أما 3 فلم أعرف إجابته إلا بالبحث في الإنترنت وبصراحة أني عند إسترجاع ذكريات محاولاتي لحل اللغز إسترجعت المتعة التي وجدتها في المحاولة بحد ذاتها ناهيك عن متعة إيجادي للحل فأتمنى أن تجدوا تلك المتعة أثناء محاولتكم (طبعاً لمن لم يمر عليهم هذا اللغز من قبل) في الأخير إذا أردتم مني إجابة أي سؤال فأنا مستعد ولكني سأؤجل الإجابة حتى لا تفسد المتعة لمحبي الألغاز لغز.rar

هل بالإمكان توضح لنا تلك التحسينات و ماهي الخصائص التي تعمل والتي لاتعمل ؟

السلام عليكم يوجد لدي كود يعمل في صفحه الحدث الرجاء جعله يكون كود بحيث ان يتم العمل به عند اللزوم وليس كل مره ادخل الصفحه يقوم بالتحديث ويأخد وقت Option Explicit Dim check% Private Sub Worksheet_SelectionChange(ByVal Target As Range) Application.EnableEvents = False If Not Intersect(Target, Columns(1)) Is Nothing _ And Target.Count = 0 Then Call IsHyperlink(Target) If check Then Sheets(Target & "").Visible = True Target.Hyperlinks(1).Follow End If End If Application.EnableEvents = True End Sub Sub IsHyperlink(r As Range) check = r.Hyperlinks.Count End Sub Private Sub Worksheet_Activate() Dim wSheet As Worksheet Dim l As Long l = 1 With Me .Columns(1).ClearContents .Cells(1, 1) = "اسماء المنتجات" .Cells(1, 1).Name = "Index" End With For Each wSheet In Worksheets If wSheet.Name <> Me.Name Then l = l + 1 With wSheet .Range("A1").Name = "Start" & wSheet.Index .Hyperlinks.Add Anchor:=.Range("d1"), Address:="", SubAddress:= _ "Index", TextToDisplay:="الرئيسية" End With Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _ SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name End If Next wSheet With Me.Range("A:A").Font .ColorIndex = xlAutomatic .Bold = True: .Underline = 1 .Name = "Arial": .Size = 12 End With End Sub المصنف1.xlsm

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

لعله خير ان شاء الله أخي الكريم الله يبارك فيك دنيا وآخرة ويعطيك الصحة ويزيدك من علمه

Saad_2-2.rar

يجب ارفاق الموديول (ModPassWordStars(32bit_64bit)) لانه بيحول كلمة المرور الى نجوم .

شكراً لك مشاركتي تجربتك 😉

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

لو كان العمل مفتوح المصدر ، لما قام مبرمجه بإقفاله بكلمة مرور ، فقد تم وضعها لحماية تعبه وعمله .. لذا لا يمكن تنفيذ طلبك حالياً .. ام اغلاق الموضوع ، وحذف الرابط