كل الانشطه

مجرد فكرة جرب وافني بالرد وسأكمل معك التفاصيل . Accdb Save.rar

lمشاركة مع استاذ @Foksh تفضل استاذ @2saad محاولتي حسب ما فهمت . ووافني بالرد . Saad-2.rar

شكرا أخي الفاضل الملف شغال تمام ولكن الاسم لم يحذف من الجدول الرئيسي بعد نقله الي الآخر

جرب الملف التالي .. saad (2).accdb

عفوا اخي @ابوخليل ولكن آخر خيار في القائمة خاص بالتصفية كما بالصورة ارجو توضيح فكرتك بالصور لأني بصراحة لأول مرة أعرفها

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

السلام عليكم ورحمة الله وبركاته .. كنت قد طرحت سؤال بخصوص إمكانية منع المستخدم في قاعدة البيانات الحالية من فتح محرر الأكواد 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