كل الانشطه

تمام وفقت ووفيت وكفيت وبعد اذنك انا حبيت ان اضع الشرح بالتفصيل الممل بعدكم واللى كنت عارفه بس ما حبيت اسبقكم اولا لازم نفهم ايه السحر اللى هنا ونفك الطلاسم دى ازاى علشان نفهم اللى بيحصل اولا انا عملت : Documenter للجدول ده وهو اللى كان فى اول مشاركة علشان بس اعرف هل فى اى حيل مخفية يعنى اختصارا للوقت والجهد وده اللى وضح كل شئ وهو كالاتى : تم تعريف الـ RowSource في الحقل على مستوى الـ ACE/Jet Engine مباشرة تم تغيير DisplayControl إلى Text Box تغيير DisplayControl أخفى القيم من واجهة Lookup Tab أى ان القيم لن تظهر فى وضع التصميم ولكنها ظلت محفوظة في مخطط الجدول ( schema ) طيب عرفنا البيانات وعرفنا فين محفوظة والحمد لله نوضح نقطة مهمة الاول قبل ما ننتقل للاضافة والحذف خاصية الإرث (inheritance) فى خصائص مربع التحرير والسرد يجب ان تكون مفعلة والا لن تظهر القائمة فى وقت العرض Runtime طيب الاضافة بطريقة الاستاذ منتصر او الافضل من خلال كود زى ده اولا الدوال الرئيسية لاضافة او تحديث او ازالة الخصائص Private Sub AddOrUpdateProperty(fld As DAO.Field, _ propName As String, _ propType As Integer, _ propValue As Variant) On Error GoTo ErrHandler fld.Properties(propName) = propValue GoTo ExitProc ErrHandler: If Err.Number = 3270 Then Err.Clear On Error GoTo ErrCreate Dim prp As DAO.Property Set prp = fld.CreateProperty(propName, propType, propValue) fld.Properties.Append prp GoTo ExitProc End If MsgBox "خطأ في AddOrUpdateProperty:" & vbCrLf & Err.Description, vbCritical ErrCreate: MsgBox "فشل إنشاء الخاصية " & propName & ":" & vbCrLf & Err.Description, vbCritical ExitProc: Set prp = Nothing End Sub Private Sub DeletePropIfExists(fld As DAO.Field, propName As String) On Error GoTo ErrHandler Dim prp As DAO.Property For Each prp In fld.Properties If prp.Name = propName Then fld.Properties.Delete propName GoTo ExitProc End If Next prp GoTo ExitProc ErrHandler: MsgBox "فشل حذف " & propName & ":" & vbCrLf & Err.Description, vbCritical ExitProc: Set prp = Nothing End Sub ثانيا : دوال الاضافة والحذف Public Sub AddHiddenFieldProperties() On Error GoTo ErrHandler Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Set db = CurrentDb Set tdf = db.TableDefs("TableName") Set fld = tdf.Fields("FieldName") ' DisplayControl = 109 (Combo مخفي) / 110 (Combo ظاهر) fld.Properties("DisplayControl") = 109 AddOrUpdateProperty fld, "RowSourceType", dbText, "Value List" AddOrUpdateProperty fld, "RowSource", dbText, _ """آسيا"";""أفريقيا"";""أوروبا"";""أمريكا الشمالية"";""أمريكا الجنوبية""" db.TableDefs.Refresh MsgBox "تم إضافة قائمة القيم المخفية بنجاح!", vbInformation GoTo ExitProc ErrHandler: MsgBox "فشلت العملية: " & Err.Description, vbCritical ExitProc: Set fld = Nothing Set tdf = Nothing Set db = Nothing End Sub Public Sub DeleteFieldProperties() On Error GoTo ErrHandler Dim db As DAO.Database Dim tdf As DAO.TableDef Dim fld As DAO.Field Set db = CurrentDb Set tdf = db.TableDefs("TableName") Set fld = tdf.Fields("FieldName") DeletePropIfExists fld, "RowSource" DeletePropIfExists fld, "RowSourceType" db.TableDefs.Refresh MsgBox "تم الحذف بنجاح!", vbInformation GoTo ExitProc ErrHandler: MsgBox "فشل الحذف: " & Err.Description, vbCritical ExitProc: Set fld = Nothing Set tdf = Nothing Set db = Nothing End Sub

الحقيقة أن جميع إجابات الأساتذة صحيحة ولكنها لا تبين لمن هم زي حالاتي على باب الله 😅 طريقة التنفيذ عموما وببساطة وإجابة على سؤال الأخ @Debug Ace رغم أنك كنت قد أجبتها بهذه الإجابة ولكني سأوضح الطريقة ليستوعبها بقية الأعضاء السؤال الأول كيفية إضافة العناصر؟ التلميح هنا هو بتغيير الخاصية (Allow Value List Edits أو السماح بتحرير قائمة القيم) الخاصة بمربع التحرير والسرد إلى (Yes أو نعم) لتظهر بهذا الشكل لتظهر لنا القائمة الواردة في مشاركة الأخ @kanory ومن خلال هذه القائمة يمكننا إضافة أو حذف العناصر السؤال الثاني طريقة حذف العناصر؟ كما ذكرت في الجملة الأخيرة وذكر الأخ @Debug Ace في إجابته فيمكننا حذف العناصر من خلال النافذة الأخيرة السؤال الثالث أين يتم الإحتفاظ بالبيانات؟ كما ذكر الأخ @Debug Ace هي بالفعل في الجدول ولكن أين بالضبط وهذا ما سأوضحه هنا إن شاء الله يجب أن نضع في إعتبارنا أن عدم ظهور خاصية ضمن نافذة الخصائص لا يعني أنها غير موجودة فمثلاً لو قارنا بين نافذتي الخصائص لحقل Field1 عندما يكون مربع نص أو عندما يكون مربع تحرير وسرد هذا معناه أن خاصية (Row Source أو مصدر الصف) هي خاصية من خواص الحقل سواء ظهرت أم لم تظهر في نافذة الخصائص وحتى نتأكد قم بنسخ السطر التالي ولصقه في النافذة الفورية ثم اضغط زر Enter ?CurrentDb.TableDefs("Table1").Fields("Field1").Properties("RowSource").Value لتظهر لنا النتيجة التالية وهذا معناه أنه يتم الإحتفاظ بعناصر القائمة في خاصية (Row Source أو مصدر الصف) الخاصة بالحقل إن شاء الله أكون قد وفقت بالشرح تحياتي

تعجبني الأفكار التي تكون من خارج الصندوق 👏

شكرا اخ عبد الله جزاك الله خير

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

تفضل الشرح .

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

الفكرة التي تم تنفيذها أعلاه ، تتعامل مع خركات الصور داخل النموذج ، وليس الهدف منها وضع نص أو زر أو عنصر يرمش عند تحديث بيانات 😅 . بل كان تعاملي مع الدالة داخل نموذج يضم 150 صورة مع خلفية النموذج . انظرو الصورة لقبل وبعد تنفيذ الدالة .

سلام عليكم ورحمة الله تعالى وبركاته سادة الاعضاء رمضان مبارك وكل عام وانتم بالف خير وعافية عملت سابقا برنامج خاص بالعمل واستعملت القائمة المنسدلة باستخدام 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

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