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

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

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

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

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

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

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

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

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

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

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

 

[Foksh]

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

 

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

[الحلبي]

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

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

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

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

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

بارك الله فيك

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

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

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

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

 

تم تعديل الجمعة at 13:20 بواسطه محمود حموده

[ابوخليل]

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

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

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

[الحلبي]

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

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

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

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

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

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

[Foksh]

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

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

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

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

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

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

[Moosak]

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

 

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

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

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

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

[الحلبي]

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

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

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

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

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

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

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

[Foksh]

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

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

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

 

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

تم تعديل الأحد at 08:01 بواسطه 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)