كل الانشطه

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

وفين اجابة ال 3 اسئلة استاذ ؟

هل تقصد هذه الفكرة ؟؟ لغز.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)) لانه بيحول كلمة المرور الى نجوم .

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