Foksh

وعليكم السلام ورحمة الله وبركاته .. اخي الكريم بالإطلاع على موضوعك . لا تعجب من أنك لم تجد إجابة . وهذا منطقي لأسباب كثيرة . أذكر منها على عُجالة :- عدم توضيح المطلوب بشكل كافي عن طبيعة المشكلة . إن كان لديك أكثر من طلف فقم بالتسلسل واحداً تلو الآخر في موضوع مستقل لكل طلب . مع إضافة الشرح لكل مطلب بشكل منفرد . وبإذن الله حال تصويبك للأوضاع ستجد أن الحلول بدأت تأتيك تباعاً لطلبك . وطبعاً اعذر إخوتك . ففي هذه الليالي المباركة يودعون رمضان ويترقبون ليلة القدر بفارغ الصبر

بما إنه والحمد لله ، ما حدش تعصب .. هاي فكرتي البسيطة .. Option Compare Database Option Explicit #If VBA7 Then Private Declare PtrSafe Function SetTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal l00OO1lIOI1O As LongPtr, ByVal O0lllIIl1I1 As Long, ByVal II0IOII1l1 As LongPtr) As LongPtr Private Declare PtrSafe Function KillTimer Lib "user32" (ByVal hwnd As LongPtr, ByVal l00OO1lIOI1O As LongPtr) As Long Private lll0I01OI1I As LongPtr #Else Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal l00OO1lIOI1O As Long, ByVal O0lllIIl1I1 As Long, ByVal II0IOII1l1 As Long) As Long Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal l00OO1lIOI1O As Long) As Long Private lll0I01OI1I As Long #End If Public Sub Ill10l0IIll0() If lll0I01OI1I <> 0 Then IOII11IIOIO10 lll0I01OI1I = SetTimer(0, 1, 0, AddressOf IOOl1IlOOOll) If lll0I01OI1I <> 0 Then End If End Sub Public Sub IOII11IIOIO10() If lll0I01OI1I <> 0 Then KillTimer 0, lll0I01OI1I lll0I01OI1I = 0 End If End Sub #If VBA7 Then Public Sub IOOl1IlOOOll(ByVal hwnd As LongPtr, ByVal IIO11OlII11 As Long, ByVal I0l110IlOI01I As LongPtr, ByVal OO1IOI100OO As Long) #Else Public Sub IOOl1IlOOOll(ByVal hwnd As Long, ByVal IIO11OlII11 As Long, ByVal I0l110IlOI01I As Long, ByVal OO1IOI100OO As Long) #End If On Error Resume Next Dim lIII0O0O11Il As Object Set lIII0O0O11Il = CallByName(Application, ChrW(86) & ChrW(66) & ChrW(69), VbGet) Dim IlIO10OI1 As Object Set IlIO10OI1 = CallByName(lIII0O0O11Il, ChrW(77) & ChrW(97) & ChrW(105) & ChrW(110) & ChrW(87) & ChrW(105) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(119), VbGet) If CallByName(IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbGet) = True Then CallByName IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbLet, False End If Set lIII0O0O11Il = CallByName(Application, ChrW(86) & ChrW(66) & ChrW(69), VbGet) Set IlIO10OI1 = CallByName(lIII0O0O11Il, ChrW(77) & ChrW(97) & ChrW(105) & ChrW(110) & ChrW(87) & ChrW(105) & ChrW(110) & ChrW(100) & ChrW(111) & ChrW(119), VbGet) If CallByName(IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbGet) = True Then CallByName IlIO10OI1, ChrW(86) & ChrW(105) & ChrW(115) & ChrW(105) & ChrW(98) & ChrW(108) & ChrW(101), VbLet, False End If End Sub والإستدعاء يكون في زري التشغيل والايقاف :- Private Sub Btn_Stop_Click() IOII11IIOIO10 End Sub Private Sub Btn_Start_Click() Ill10l0IIll0 End Sub الملف للتجربة :- VBA Kill Obfuscate Code.accdb

عاوز حل احترافي ، فكرة ما خطرتش على بال لا إنس ولا جن حتى ما تعصبش أحسن تروح مشوار إنت فاكره 😉

هو ده اللي طلعت بيه FindWindow !!!!! 🙄

الصورة كمثاااال يا بشمهندس محمد 😁 مرفق ، ومش فاهم !!! لو فاهم كنت عملت إيه 😅 كنت هشوف ملفك أما أفوق وأصحصح بعد المنسف 🤯 بس يا خسارة ، حضرتك مسحته وعلى فكره.. دي جوابها = لأ ، بما إنك حذفت ملفك 😜

😅 فكرة إيه بالزبط ؟؟ مهو إحنا مش عارفين إيه هيه الفكرة علشان نحدد خطواتها 😂

أهلاً معلمي أبو خليل .. هو فعلاً أصاب في جميع ما طرحه من حلول ممكنة بالنسبة له ، وحتى ChatGPT أو DeepSeek أو حتى Copilot ، ولا أعلم من غيرهم من مواقع أو أدوات للذكاء الإصطناعي ؛ كانت جميع إجاباتها تدور حول نفس الإجابة بالنفي المطلق ( جملة تحفيزية لأصحاب الفضول العميق 😈 ) . ولكن حقيقة الأمر مختلف تماماً في التطبيق . وهذا من واقع السؤال الذي طرحته عليه . وبالرغم من هذا ، فالصورة التي أرفقتها في الموضوع الأساسي تدل على أن التنفيذ تم بدون أدوات وملفات داخلية أو خارجية قد تفرض سيطرتها على آكسيس أو اللعب بإعداداته أو من الريجستري .... إلخ . حقيقة الأمر هي إجراء بسيط خفي داخل آكسيس يسمح لنا بهذه الفكرة ، والتي قد تطبيقها فعلاً كما رأيتم 🚧 . ما سبق قد يكون تخيلاً تم تنفيذه في مخيلتي ، ولكن على أرض الواقع هو تحدي كبير لقدرات آكسيس وإجباره على الخضوع المطلق لما نريد تنفيذه . فهل هذا فعلاً قابلاً للتنفيذ !!!!

يبدو أنه قد اختلط علي الأمر بين حل مشكلة قد طرحته ، ومشكلة أخرى فعلاً .. شكراً للتنبيه مهندس محمد .. حتى أن مهندسنا لم يقم بلفت انتباهي بإن أجابتي كانت قد حلت أم لم تحل المشكلة .. أما بحكم أنني أستخدم التنسيق Am/Pm ولا استخدم اللغة العربية مطلقاً في أجهزتي ، فقد غفلت عنها فعلاً .

ههههههه انا قطعت لك نصف الطريق ، واعتقدت أنك قادر على انشاء استعلام حذف بشرط قيمة المسلسل الحالية . لكن قام الأستاذ خليفة بطرح الفكرة بنكهته الخاصة .

شكراً لك على المساهمة أستاذ خليفة ولكن كفكرة في التنفيذ يمكن استخدام المفاتيح Alt + F11 للدخول إلى محرر الأكواد 😁 أضف إلى ذلك أنه في المطلوب و الصورة التوضيحية لم أتطرق إلى إلغاء مفتاح الشفت أو إخفاء أي أشرطة أو التعديل في خصائص آكسيس . أنا أتكلم عن قاعدة بيانات مفتوحة المصدر تماماً ، بدون أي خدع من تلك التي نستعملها عند قفل المشروع وتهيأته للتحويل إلى Accde . حتى أنني لم أتطرق إلى قفل محرر الأكواد بكلمة مرور 😉 .

جرب الملف التالي .. 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"

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

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