رجاء ابداء ملاحظاتكم على برنامجي

[محمود حموده]

السلام عليكم ورحمه الله وبركاته 

دا جزاء من مشروع شغال عليه يلمس هذا الموضوع 

ساقوم بإرفاق ملف الوظائف التي يقوم بها 

1- تعطيل / تفعيل مفتاح الشفت 

2-ربط ديناميكي / ربط يدوي لــ  الواجهات الاماميه (النماذج) مع الواجهات الخلفيه (الجداول)

3-اخفاء جميع كائنات الاكسس  الواجهات الاماميه (النماذج) مع عدم القدره ع استيرادها من ملف اكسس اخر 

4-اخفاء جميع كائنات الاكسس من الواجهات الخلفيه (الجداول) مع عدم القدره ع استيرادها من ملف اكسس اخر

يرجي الافاده بعد التجربه 

خاص اوفسينا.rar

 

[Foksh]

جزاك الله خيراً أخي الكريم على مجهودك 

 

هدية مقبولة منك  

[الحلبي]

12 ساعات مضت, محمود حموده said:

يرجي الافاده بعد التجربه 

والله جميل جدا افكار جميلة جزاك الله كل خير وجعله فى ميزان الحسنات

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

وان شاء الله لنا لقاء فى دور شطرنج بينى وبينك من اوائل اهتمامتى وهوايتى المفضلة

بارك الله فيك

[محمود حموده]

باارك الله فيكم ونفع بكم 

هههههه انا ما لعبت شطرنج من زمان اكيد هتكسب 

شرح توضيحي لـــ اليه العمل 

 

تم تعديل نوفمبر 8 بواسطه محمود حموده

[ابوخليل]

شكرا استاذ محمود 

عمل احترافي مختصر  وشرح ولا اروع

وهدية مقبولة .. بارك الله فيك

[الحلبي]

في 8‏/11‏/2024 at 15:19, محمود حموده said:

شرح توضيحي لـــ اليه العمل 

الاستاذ/ @محمود حموده

لا انا عايز اعرف كيف تم اخفاء الجداول بحيث لا تقدر تقوم باستيرادها فى قاعدة بيانات جديد

اذا سمحت انا لم افهمها من الفيديو المقدم من حضرتك 

جزاك الله كل خير

[Foksh]

23 دقائق مضت, الحلبي said:

الاستاذ/ @محمود حموده

لا انا عايز اعرف كيف تم اخفاء الجداول بحيث لا تقدر تقوم باستيرادها فى قاعدة بيانات جديد

اذا سمحت انا لم افهمها من الفيديو المقدم من حضرتك 

جزاك الله كل خير

اقرأ هذا الموضوع  هنا 

[Moosak]

شكرا لك أخي @محمود حموده 🙂 

 

وهدية مقبولة 🌹🌷

[محمود حموده]

وفيك بارك اخي ابوخليل تسليم اخي Moosak  

هما ديما الحماعه اللي بيلعبو شطرنج كدا تجلهم يمين يجيكم شمال تجلهم من الشمال يجو من اليمين ههههههه حاضر اخي الحلبي هظبطلك شرح للعمليه بس شويه كدا 

[الحلبي]

43 دقائق مضت, محمود حموده said:

هما ديما الحماعه اللي بيلعبو شطرنج

هو عشان انا سألت عن اخفاء الجداول اكون جيت يمين او شمال اعتبر سؤالى مالم يكن

15 ساعات مضت, Foksh said:

اقرأ هذا الموضوع 

استاذى ومعلمى فؤش الموضوع اللى حضرتك اشرت الية الحوار فيه حوار كبير وبه الافادة ولكن اين المرفق التمام الذى اعتمد عليه

ياريت حضرتك ترفق لى المثال الذى يفغل المطلوب

[Foksh]

37 دقائق مضت, الحلبي said:

ياريت حضرتك ترفق لى المثال

استأنس بمشاركة معلمنا القدير @ابوخليل من هنا 👍 .

 

ومن هنا مشاركة المهندس @ابو جودي 💡 .

تم تعديل نوفمبر 10 بواسطه Foksh

[محمود حموده]

اخي الحلبي والله انا اسف ما قصدت اغلط عليك والله بضحك معاك بكرر اسفي يا غالي لو حد يعرف يحذف كلامي اللي اساء ليك احذفوه 

 

[Foksh]

1 ساعه مضت, محمود حموده said:

اخي الحلبي والله انا اسف ما قصدت اغلط عليك والله بضحك معاك بكرر اسفي يا غالي لو حد يعرف يحذف كلامي اللي اساء ليك احذفوه 

 

من نفس المشاركة ، اضغط على النقاط الثلاث اللي في يسار المشاركة ، واختار تعديل لو حبيت تعدل مشاركتك ( طبعاً هذا له وقت محدد لهذه الميزة ) 👍

[الحلبي]

3 ساعات مضت, محمود حموده said:

والله انا اسف ما قصدت اغلط عليك

الاستاذ/ محمود 

لاداعى للاسف احنا اخوات واسفك فوق راسى ومقبول ان شاء الله 

والله احرجتنى بادبك واخلاقك العالية وانا لست زعلان 

حبيبى الاستاذ / محمود 

ماتنساش تحضير الفيديو الذى اخبرتنى به

 

استاذى / فؤش لم اصل الى اى شئى 

لا داعى لازعاجك جزاك الله خير

[gamal gamal]

سلمت يداك يا غالى

وهل يمكن استخدامه فقط

مع قاعدة بيانات غير مقسمة ...

[Moosak]

في 9‏/11‏/2024 at 19:12, الحلبي said:

عايز اعرف كيف تم اخفاء الجداول بحيث لا تقدر تقوم باستيرادها فى قاعدة بيانات جديد

أستاذنا العزيز @الحلبي .. باختصار حسب برنامج الأستاذ العزيز @محمود حموده 🙂 

 

هذا الكود الذي تم استخدامه لإخفاء جميع العناصر :

Option Compare Database
Option Explicit
Dim TD As TableDef, QD As QueryDef, FD As AccessObject, RD As AccessObject, MD As AccessObject, MacroD As AccessObject

' إخفاء جميع الكائنات في قاعدة بيانات محددة
Sub HideAllObjects(Optional dbPath As String = "")
    Dim db As DAO.Database
    Dim isSourceDb As Boolean
    
    On Error Resume Next

    ' إذا لم يُحدد dbPath، سيتم العمل على قاعدة البيانات الحالية
    If dbPath = "" Then
        Set db = CurrentDb
        isSourceDb = False
    Else
        Set db = DBEngine.Workspaces(0).OpenDatabase(dbPath)
        isSourceDb = True
    End If
    
    ' إخفاء الجداول
    For Each TD In db.TableDefs
        If Left(TD.Name, 4) <> "MSys" Then
            If Len(TD.Connect) > 0 Then
                ' الجدول مرتبط بقاعدة بيانات أخرى
                Application.SetHiddenAttribute acTable, TD.Name, True
            Else
                ' الجدول محلي
                TD.Attributes = TD.Attributes Or dbHiddenObject
            End If
        End If
    Next TD
    
    ' إخفاء الاستعلامات
    For Each QD In db.QueryDefs
        If Not (QD.Name Like "~*") Then
            Application.SetHiddenAttribute acQuery, QD.Name, True
        End If
    Next QD

    ' إخفاء النماذج
    For Each FD In CurrentProject.AllForms
        Application.SetHiddenAttribute acForm, FD.Name, True
    Next FD

    ' إخفاء التقارير
    For Each RD In CurrentProject.AllReports
        Application.SetHiddenAttribute acReport, RD.Name, True
    Next RD

    ' إخفاء وحدات الماكرو
    For Each MacroD In CurrentProject.AllMacros
        Application.SetHiddenAttribute acMacro, MacroD.Name, True
    Next MacroD

    ' إخفاء الوحدات النمطية
    For Each MD In CurrentProject.AllModules
        Application.SetHiddenAttribute acModule, MD.Name, True
    Next MD

    ' إخفاء الكائنات المخفية
    Application.SetOption "Show Hidden Objects", False

    ' إغلاق قاعدة البيانات المصدر إذا تم فتحها
    If isSourceDb Then db.Close
End Sub

 

 

وهذا كود إظهارها مجددا :

' إظهار جميع الكائنات في قاعدة بيانات محددة
Sub ShowAllObjects(Optional dbPath As String = "")
    Dim db As DAO.Database
    Dim isSourceDb As Boolean
    
    On Error Resume Next

    ' إذا لم يُحدد dbPath، سيتم العمل على قاعدة البيانات الحالية
    If dbPath = "" Then
        Set db = CurrentDb
        isSourceDb = False
    Else
        Set db = DBEngine.Workspaces(0).OpenDatabase(dbPath)
        isSourceDb = True
    End If

    ' إظهار الجداول
    For Each TD In db.TableDefs
        If Left(TD.Name, 4) <> "MSys" Then
            If Len(TD.Connect) > 0 Then
                ' الجدول مرتبط بقاعدة بيانات أخرى
                Application.SetHiddenAttribute acTable, TD.Name, False
            Else
                ' الجدول محلي
                TD.Attributes = TD.Attributes And Not dbHiddenObject
            End If
        End If
    Next TD
    
    ' إظهار الاستعلامات
    For Each QD In db.QueryDefs
        If Not (QD.Name Like "~*") Then
            Application.SetHiddenAttribute acQuery, QD.Name, False
        End If
    Next QD

    ' إظهار النماذج
    For Each FD In CurrentProject.AllForms
        Application.SetHiddenAttribute acForm, FD.Name, False
    Next FD

    ' إظهار التقارير
    For Each RD In CurrentProject.AllReports
        Application.SetHiddenAttribute acReport, RD.Name, False
    Next RD

    ' إظهار وحدات الماكرو
    For Each MacroD In CurrentProject.AllMacros
        Application.SetHiddenAttribute acMacro, MacroD.Name, False
    Next MacroD

    ' إظهار الوحدات النمطية
    For Each MD In CurrentProject.AllModules
        Application.SetHiddenAttribute acModule, MD.Name, False
    Next MD

    ' إظهار الكائنات المخفية
    Application.SetOption "Show Hidden Objects", True

    ' إغلاق قاعدة البيانات المصدر إذا تم فتحها
    If isSourceDb Then db.Close
End Sub

 

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

Call  HideAllObjects(dbPath)
Call  ShowAllObjects(dbPath)

 

[الحلبي]

3 ساعات مضت, Moosak said:

والكود يصلح للقاعدة الحالية أو لأي قاعدة أخرى

استاذنا الغالى ومعلمنا / الاستاذ موسى

اشعر بانى قربت من الحل ـ طب شوف حضرتك المثال المرفق وحاول تطبيق الاكواد عليه 

انا اريد عند عمل قاعدة بيانات جديدة  لا يمكنها  استيراد جداول قاعدة البيانات الاولى و تخفى جميع الجداول ان امكن

والحقيقة ان شيخنا الجليل ابو خليل ـ واستاذنا / فؤش قد قاموا بمساعدتى كثيرا فى هذا الموضوع ولكن الطريقة المستخدمة تجعل برنامجى يفتح ببطئ شديد

جزاك الله خيرا وجعله فى ميزان الحسنات

اخفاء الجداول وعدم استيرادها.accdb

[Moosak]

30 دقائق مضت, الحلبي said:

شوف حضرتك المثال المرفق وحاول تطبيق الاكواد عليه

تفضل عمي @الحلبي 🙂 

اخفاء الجداول وعدم استيرادها.accdb

[الحلبي]

منذ ساعه, Moosak said:

تفضل عمي

الله الله الله عليك استاذى ومعلمى القدير  الله يفتح عليك ويزيدك من علمه

هذا هو المطلوب ومرادى ولكن توجد ملحوظة صغيرة هو لا يخفى النماذج لماذا ؟

وهذا بالنسبة لى غير مهم ـ المهم انه يخفى الجداول ويعمل على عدم استيرادها ان امكن اخفاء النماذج كان افضل ولكن غير هام

الله يبارك لك ويجعلك زخرا لنا ويرحم والديك ويبارك فى اولادك واهلك ـ ويجعلك من اهل الجنة ان شاء الله

[Moosak]

3 ساعات مضت, الحلبي said:

لا يخفى النماذج لماذا ؟

العفو أستاذنا .. 🙂🌹 ..
وسبب عدم إخفاء النموذج هو أنه مفتوح أثناء تشغيل الكود والأصل أنه يعمل للنماذج والتقارير المغلقة .. ولفعل ذلك هناك أكواد أخرى تقوم بهذا الأمر.. 👌

[الحلبي]

منذ ساعه, Moosak said:

سبب عدم إخفاء النموذج هو أنه مفتوح أثناء تشغيل الكود

اشكرك استاذى ومعلمى / الاستاذ موسى

واكتفى باختفاء الجداول وجزاك كل خير وجعلك خير عونا لنا

[Zooro1]

ممكن اذا سمحتوا لو ينفع كمان ان تضيفوا داخل  الكود  انه يخفي ويمنع حد يعمل استيراد للجداول عن طريق اكسل، لأن اكسل بيعمل لها استيراد

فهل يوجد طريقة

[الحلبي]

4 ساعات مضت, Zooro1 said:

فهل يوجد طريقة

سؤال وجيه جدا وهام

انا فتحت اكسل واستورد جدول منها وكل ما ادخل سجل جديد فى اكسس يظهر التحديث فى اكسل- وكاننا لم نفعل شئ فى منع استيراد الجداول

فعلا سؤال هام الذى ذكره الاستاذ @Zooro1

[Foksh]

8 ساعات مضت, الحلبي said:

سؤال وجيه جدا وهام

انا فتحت اكسل واستورد جدول منها وكل ما ادخل سجل جديد فى اكسس يظهر التحديث فى اكسل- وكاننا لم نفعل شئ فى منع استيراد الجداول

فعلا سؤال هام الذى ذكره الاستاذ @Zooro1

والله أنا خفت أكمل وأرد بعد آخر رد لي من إني أحبطك أو تحس أني قفلتها بإني أرد عليك أنه ممكن يكون في طريقة للإستيراد حتى لو الجداول غير ظاهرة 

 

بس الحمد لله ماجتش مني 

[الحلبي]

3 ساعات مضت, Foksh said:

الله أنا خفت أكمل وأرد بعد آخر رد لي من إني أحبطك أو تحس أني قفلتها

استاذى الحبيب والعزيز الى قلبى 

لا انا مش معاك فى هذه النظرية لازم حضرتك تتكلم وتقول كل حاجة عشان كلنا نوصل للحل الامثل

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

واعرف جيدا ان طريقة النموذج الوسيط التى عرفناها سويا مع سيخنا واستاذنا ومعلمنا اعطاه الله الصحة والعافية / ابو خليل هى الحل الامثل 

جزاك الله كل خير استاذى فؤش وجعله فى ميزان الحسنات