كل الانشطه

أخي الفاضل طبقت زي ما حضرتك قلت ولكن لم يفلح

السلام عليكم ورحمة الله وبركاته .. كنت قد طرحت سؤال بخصوص إمكانية منع المستخدم في قاعدة البيانات الحالية من فتح محرر الأكواد VBA دون تحويل الملف الى أي صيغة أخرى غير الـ ACCDB . يعني قاعدة بيانات مفتوحة المصدر Accdb ولكن بمنعه من الدخول الى محرر الأكواد بدون حفظ القاعدة بصيغة ACCDE - ACCDR. كما في الصورة المرفقة كمثال للتوضيح :-

وعليكم السلام ورحمة الله وبركاته .. استعمل استعلام إضافة للجدول . انشئ استعلام والصق الـ SQL التالي فيه :- INSERT INTO Tbl_elmohawlen ( ID, Stucod, Studentname, Stucard, alsaf_Id, gender ) SELECT [Forms]![frm_Reports]![f] AS Expr1, [Forms]![frm_Reports]![كود الموظف] AS Expr2, [Forms]![frm_Reports]![m] AS Expr3, [Forms]![frm_Reports]![تاريخ الميلاد] AS Expr4, [Forms]![frm_Reports]![alsaf_Id] AS Expr5, [Forms]![frm_Reports]![gender] AS Expr6; انشئ زر في النموذج ، واجعله يفتح الاستعلام السابق . استعمل الجملة لاستدعاء الاستعلام كمثال :- DoCmd.OpenQuery "Query1"

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله في الملف المرفق به جدول للتلاميذ باسم Tbl_student وجدول آخر باسم Tbl_elmohawlen عندما ادخل علي النموذج واعمل بحث علي تلميذ تظهر بياناته محتاج اعمل زر يقوم بترحيل بعض بيانات الاسم من جدول Tbl_student وترحيله الي جدول Tbl_elmohawlen ثو يقوم بحذفه من جدول Tbl_student saad (2).accdb

تفضل/ي استاذ/ة @ruan الشرح والمرفق حسب مافهمت . ووافني بالرد . Ruan-1.rar

وإياكم أخي أسعد ..

استاذي العزيز .. حقول المستدعاة من جدول المعلومات تم جعلة غير منظم .. اما بافي حقول جدولي الصادر والوارد لا تاحذ مسمى الحقول المستدعاة وكما مبين في الصورة المرفقة . اتمنى وفقت في بيان المشكلة . مع الشكر

شكرا جزيلا أخي الفاضل وبارك الله فيك وأكثر الله من أمثالك وغفر الله ذنبك ورفع قدرك

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

ثلاث جداول مترابطه .. حقول جدولي الصادر والوارد تظهر قيمة خطأ مع خالص التحيات 1.rar

انا من العاديين وجدت الحل هنا Modify Loolups ويدويا وبأبسط صورة .. اضافة وحذف كالتالي : افتح الجدول على العرض وليس التصميم انقر بزر الفأرة الأيمن على الحقل .. ستظهر قائمة اختر آخر بند في أسفل القائمة .. سيظهر لك مربع حوار .. واستمتع .. اكتب ما تريد واحذف ما تريد

الفكرة السابقة ، عملت على جهاز ولم تعمل على جهاز آخر .. لذا قد يكون التعديل بحذف مصدر صف الليست بوكس lstAPI . وحفظ النموذج واعتماده بدون مصدر صف له . وسيتم تحميلها عند فتح النموذج تلقائياً . ويمكن لنا أن نضع السطر التالي :- Me.lstAPI.RowSource = "" في حدث عند اغلاق النموذج .. وبالتالي لن يتم تعيين قيمة لمصدر صف الليست بوكس عند اغلاقه . أيضاً تحديث الدالة CX_CreateTables المسؤولة عن إنشاء الجداول ، بحيث تقوم بإظهار الجداول بعد إنشائها :- Private Sub CX_CreateTables() On Error GoTo EH Dim db As DAO.Database Dim ws As DAO.Workspace Dim td As DAO.TableDef Set db = CurrentDb Set ws = DBEngine.Workspaces(0) ws.BeginTrans If Not CX_TableExists(T_REG) Then db.Execute "CREATE TABLE " & T_REG & " (" & _ "ID AUTOINCREMENT CONSTRAINT PK_" & T_REG & " PRIMARY KEY, " & _ "ToolName TEXT(64) NOT NULL, " & _ "ToolVersion TEXT(32) NOT NULL, " & _ "InstalledOn DATETIME, " & _ "OfficeVersion TEXT(16), " & _ "Is64Bit YESNO)", dbFailOnError db.Execute "CREATE UNIQUE INDEX UX_" & T_REG & "_ToolName ON " & T_REG & " (ToolName)", dbFailOnError End If If Not CX_TableExists(T_OBJ) Then db.Execute "CREATE TABLE " & T_OBJ & " (" & _ "ID AUTOINCREMENT CONSTRAINT PK_" & T_OBJ & " PRIMARY KEY, " & _ "ObjName TEXT(128) NOT NULL, " & _ "ObjKind TEXT(32) NOT NULL, " & _ "Lines LONG, " & _ "LastScan DATETIME)", dbFailOnError db.Execute "CREATE UNIQUE INDEX UX_" & T_OBJ & "_ObjNameKind ON " & T_OBJ & " (ObjName, ObjKind)", dbFailOnError db.Execute "CREATE INDEX IX_" & T_OBJ & "_Kind ON " & T_OBJ & " (ObjKind)", dbFailOnError End If If Not CX_TableExists(T_PROC) Then db.Execute "CREATE TABLE " & T_PROC & " (" & _ "ID AUTOINCREMENT CONSTRAINT PK_" & T_PROC & " PRIMARY KEY, " & _ "ObjName TEXT(128) NOT NULL, " & _ "ObjKind TEXT(32) NOT NULL, " & _ "ProcName TEXT(128) NOT NULL, " & _ "ProcKind TEXT(32) NOT NULL, " & _ "StartLine LONG, " & _ "ProcLines LONG, " & _ "LastScan DATETIME)", dbFailOnError db.Execute "CREATE INDEX IX_" & T_PROC & "_Obj ON " & T_PROC & " (ObjName, ObjKind)", dbFailOnError db.Execute "CREATE INDEX IX_" & T_PROC & "_Proc ON " & T_PROC & " (ProcName)", dbFailOnError End If If Not CX_TableExists(T_API) Then db.Execute "CREATE TABLE " & T_API & " (" & _ "ID AUTOINCREMENT CONSTRAINT PK_" & T_API & " PRIMARY KEY, " & _ "ApiName TEXT(128), " & _ "Category TEXT(64), " & _ "Description LONGTEXT, " & _ "Code LONGTEXT, " & _ "Is64Bit YESNO)", dbFailOnError db.Execute "CREATE UNIQUE INDEX UX_" & T_API & "_ApiName ON " & T_API & " (ApiName)", dbFailOnError End If ws.CommitTrans For Each td In CurrentDb.TableDefs If Left(td.name, 4) = "zCX_" Then DoCmd.SelectObject acTable, td.name, True End If Next td Exit Sub EH: On Error Resume Next ws.Rollback ShowError "CX_CreateTables" End Sub

وعليكم السلام ورحمة الله وبركاته .. هل جربت أن تحدد الشرط للحقل StuSery داخل الاستعلام مصدر التقرير أن يساوي Is Null

إخواني الأعزاء بعد سلام الله عليكم ورحمة الله في الملف المرفق عند فتحه يظهر نموذج به زر التقارير عند الضغط عليه يفتح نموذج عند اختيار الفصل الدراسي الثاني والفئة عليا والصف السادس والضغط علي زر ( مواد الدور الثاني ) يفتح تقرير باسم Rab_moadracob456 المشكلة أن أسماء التلاميذ بتتكرر ؟ xData137.rar

تفضل الشرح والمرفق . Bilal_Yamen_New-1.rar

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

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

تحياتى استاذ انا بس حبيت اوضح كل النقاط نظريا وبالاكواد لتعم الفائدة

بارك الله فيك اخي @Debug Ace نقدر نقول الان إن الإجابة أصبحت بإصدارين إصدار بسيط موجه للأعضاء العاديين وإصدار إحترافي للمحترفين 😅

أداة مجانية لإزالة كل أنواع الحماية من ملفات إكسل! Excel-Password-VBA-Sheets-Remover هل نسيت كلمة سر ملف Excel مهم؟ أو تريد إزالة حماية الأوراق أو أكواد VBA بسرعة؟ أقدم لكم برنامج الجديد والمجاني Excel Password Remover! المميزات: إزالة حماية الأوراق (Worksheet) فك حماية مشروع VBA معالجة عدة ملفات دفعة واحدة يعمل بشكل كامل على جهازك (خصوصية تامة) واجهة عربية وإنجليزية يدعم كل الصيغ (xlsx, xlsm, xlsb, xls...) طريقة الاستخدام التحضير: احفظ نسخة احتياطية من ملفاتك المهمة التشغيل: افتح التطبيق (اختر العربية أو الإنجليزية) الموافقة: اقرأ إخلاء المسؤولية واضغط على "موافق" إضافة الملفات: اسحب وأفلت الملفات في المنطقة المخصصة أو اضغط على زر "إضافة ملفات" الانتظار: سيعالج التطبيق الملفات تلقائياً في الخلفية الحفظ: اضغط على أي ملف لحفظه منفرداً أو استخدم زر "حفظ الكل" لحفظ جميع الملفات الناجحة تنبيه مهم بعد إزالة حماية VBA افتح الملف المعالج في Excel ادخل إلى محرر VBA (Alt + F11) ستظهر رسالة خطأ "Invalid Key" - اضغط OK احفظ الملف (Ctrl + S) ثم أغلقه أعد فتح الملف - ستجد محرر VBA مفتوحاً بدون كلمة مرور للتحميل المباشر (نسخ ويندوز جاهزة): https://github.com/ps91.../Excel-Password-VBA-Sheets-Remover التحميل المباشر النسخة العربية https://www.up-4ever.net/6mgk38ds3lbt التحميل المباشر النسخة الإنجليزية https://www.up-4ever.net/4jli1bvht6r9 يرجى قراءة إخلاء المسؤولية في وصف المشروع. الأداة للاستخدام القانوني فقط على ملفاتك الشخصية. #Excel #برامج #اكسل #كسر_الحماية #برامج_مجانية #VBA

تمام وفقت ووفيت وكفيت وبعد اذنك انا حبيت ان اضع الشرح بالتفصيل الممل بعدكم واللى كنت عارفه بس ما حبيت اسبقكم اولا لازم نفهم ايه السحر اللى هنا ونفك الطلاسم دى ازاى علشان نفهم اللى بيحصل اولا انا عملت : 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 وبكده نقدر نقول التالى فى الاجابة ببساطة 1. كيف تم إضافة عناصر القائمة؟ من احد الطرق السابقة اما بطريقة الاستاذ : منتصر الانسي أو من خلال الاكواد السابقة 2- كيف يمكن حذف تلك العناصر؟ اما بطريقة الاستاذ : منتصر الانسي أو من خلال الاكواد السابقة 3- أين يتم حفظ القائمة؟ فى الجدول في خصائص الحقل على مستوى الـ ACE/Jet Engine مباشرة و تم تغيير DisplayControl إلى Text Box لتظل محفوظة في مخطط الجدول ( schema )

الحقيقة أن جميع إجابات الأساتذة صحيحة ولكنها لا تبين لمن هم زي حالاتي على باب الله 😅 طريقة التنفيذ عموما وببساطة وإجابة على سؤال الأخ @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