jjafferr

Dim dbs As Database, tdf As TableDef

اختصار لـ

Dim dbs As DAO.Database, tdf As DAO.TableDef

يعني الكود معتمد على DAO Library

لهذا السبب يجب ان يكون مختارا.

وثانيا ، انت لما تعمل البرنامج اصلا ، تكون مضبط جميع الامور فلن تحدث لك هذه المشكلة!!

المشكلة ظهرت لديك لأنك استورت برنامج اظهار الجداول المخفية الى برنامج الاخ ابوخليل (ولم يكن الكود في برنامجه اصلا) ، لذا ، مع استيرادك للكود ، يجب ان "تستورد"/تضبط الامور الاحرى معه.

ولكنك لو استوردت كائنات برنامج الاخ ابوخليل لبرنامجك ، لما كان في حاجة لتغيير الكود 

جعفر

بس الخطوة التالية (بالنسبة لي مب اليوم ، فانا مرهق وعندي كم شغلة احاول اخلصها   )

هي ان نجعل البرنامج:

1. نعمل فيه زر لكي يختار اي قاعدة بيانات نختارها ،

2. ان نخفي الجداول لهذه القاعدة ، يعني بالرموت كنترول   ، وبالطريقة هذه ، لا نجعل المفتاح مع القفل 

واذا تكرم احد الشباب بهذه المهمة (طبعا يمكن اخفاء بقية الكائنات ايضا) ، اكون شاكرا له مقدما ، فهذا عمل نتشارك فيه 

جعفر

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

فى السطر 

Dim dbs As Database, tdf As TableDef

قمت بازاله هذا السطر من الكود من مرفق الاستاذ جعفر وعمل جيدا وقمت باظها الملفات 

وها المرفق بعد الاظهار

لا الله يخليك ، لا تلغي اي شئ من الكود 

اللي لازم تعمله:

في شاشة الكود

Tools

References

واختار من القائمة Miscosoft DAO 3.xx Object Library

وراح يشتغل الكود 

جعفر

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

عندما حاولت ذلك عجز عن اظهارها ولكن هو أكد معلوماتى فى اسماء الجداول 

 

tbl1

tbl11         واعتقد ان هذا هو الجدول المرتبط 

ولكن لم استطع اظهار الجدولين 

 

تم اظهارهم بنجاح 

جعفر

السلام عليكم

لدى ملف اكسيس به مشروع فيجوال بيسك محمى بباسورد

حاولت محاولات عديدة لفك الحماية لان به اكواد مهمة جدا لكن منجحتش معايا ولا محاولة

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

أخي الكريم

اذا كان الكود محمي ، فصاحب الكود لديه كلمة السر لفتح الكود ،

إلا اذا كنت انت صاحب الكود ونسيت كلمة السر 

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

جعفر

أخي ابو الآء 

برنامجك لا يخفي الجداول المرتبطة 

ولكنك جعلتني افتش ملفاتي القديمة ، ووجدت الحل 

جعفر

Show_Hide_Tables.zip

أخي ابوخليل

على الاكسس 2010 اللي عندي ، ما ظهرت لي اسماء اي جداول:

جعفر

وعليكم السلام أخي أبوخليل

ولي الشرف ان تمر علينا هنا 

الكود اللي وضعته انت ، هو بدلا عن (اضغط على اسم الجدول بالفأرة اليمين ، خصائص ، ثم تختار إخفي) ،

وطبعا يمكن للمستخدم ان يظهر جميع جداول النظام ، وبالتالي سترى الجداول التي اخفيتها بالكود اعلاه.

اما الكود الذي وضعه الاخ أسير الشروق ، فلا يمكن إظهار الجداول إلا بكود آخر ، فإظهار جداول النظام لن يُظهر هذه الجداول 

جعفر

أخي عبدالعزيز

رجاء التجربة ، واذا كان هو اللي تريده ، اخبرني حتى اعمل عليه تعديل اخير وهو:

بدل ان نجلب هذا الكم الهائل من البيانات (21690 سجل) الى النموذج ومن ثم تصفيته من النموذج ، فالافضل انه نصفيه من الاستعلام ونوصل الى النموذج الكم المطلوب فقط 

مع بعض الايضاحات عن كيفية تم العمل 

جعفر

14.1.البرنامج المميز.mdb.zip

وعليكم السلام أخي

الآن اشتغل على موضوعك ان شاء الله 

جعفر

اخي الكريم / جزاكم الله خيرا وزادكم علما

أولا : هذا هو المطلوب ولكن توجد مشكلة فقط عند اختيار لا في الرسالة الثانية ارجو الانتباه لذلك

ثانيا : للأسف لم استطع تطبيق ما فعلته في القاعدة الخاصة بي 

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

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

عفوا أخي ، من انت؟

جعفر

السلام عليكم أخي

بعد البحث عن هذا الموضوع ، اتضح انه لا يمكن اخفاء الجداول المرتبطة بهذه الطريقة ، وهذا الرابط الاجنبي يعطي ظل اكثر على الموضوع 

http://www.utteraccess.com/forum/index.php?s=a6e80171c5960e148b04279d22dfa28f&showtopic=1526084&st=20

جعفر

في هذا الرابط الاخ رمهان يشرح معنى الكود:

http://www.officena.net/ib/index.php?showtopic=56917

من مفهوم آخر:

استبدل هذا السطر

If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 Then

بهذا

If Left(tdf.name, 4) <> "msys" Then

واستبدل

If Left(tdf.name, 4) <> "msys" And tdf.Attributes <> 1073741824 _
    And tdf.Attributes = 1 Then

بهذا

If Left(tdf.name, 4) <> "msys" Then

جعفر

حأقترح حاجة ، بس انت وحظك 

بدل السطر

And tdf.Attributes = 1 Then

اكتب

And tdf.Attributes = 1 or tdf.Attributes = 6 Then

جعفر

عمل ممتاز 

جعفر

تسلم الايادى استاذى الكبير 

     

رووعه

بس ياريت اذار للتحكم فى الصوره وتغييرها وحفها ضمن الكود

حياك الله أخي ابولآء

انا انسان بسيط واحب البساطة ، المسألة جدا سهلة ، خلي الصورة بالحجم المطلوب ، وبالاسم المطلوب ، وكله عال العال ، وبدون أكسس 

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

لهذا ، انا استخدم الاداة الصح ، للعمل الصح ، وفي الكثير من الاحيان ، هذه الاداة لا تكون برنامج الاكسس 

جميل جدا عاشت ايدك اخ جعفر

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

المهم انها ضبطت .. تسلم

أخي ابو حجون 

نعم ممكن عمل هذا ، ولكنك لم تطلبه ، وانا نفذت بجلدي من الشغل الزائد 

لكن ، لا انصح بهذه الطريقة ، إلا اذا كانت جميع الصور بالحجم الصحيح 

جعفر

اخي عبدالعزيز

لوسمحت تعطيني مثال ، بالكسل او بالصور ، ولكن اريد مثال للمطلوب 

جعفر

وعليكم السلام اخي 

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

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

وتعطي كل صورة رقم الطالب 

في المثال ، خلي مجلد الصور وقاعدة البيانات في نفس المجلد (ما يهم وين يكون هالمجلد) ، وشغل البرنامج 

هذا هو الكود اللي يجلب الصور ، المرتبطة بكائن الصور في النموذج:

Private Sub Form_Current()
On Error GoTo err_Form_Current

    Me.Student_Img.Picture = Application.CurrentProject.Path & "\Studnet_Images\" & Me.na & ".jpg"
    
Exit Sub
err_Form_Current:

    If Err.Number = 2220 Then
        'image not found
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

جعفر

15.School.zip

هلا والله بالمحسن 

تفضل الله يطول عمرك 

1. النموذج: عملت خانتين: Copy_From و Copy_To ، وزر للنسخ:

والكود خلف الزر:

Private Sub cmd_Copy_Click()

    Set rs = Me.Recordset.Clone
    This_ID = Me.ID
    rs.FindFirst "[ID] = " & Me.Copy_From
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
    
    DoCmd.OpenQuery "qry_Update_a_Record"
    
    'return to the previous ID
    rs.FindFirst "[ID] = " & This_ID
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
       
End Sub

ونشوف النموذج والاستعلام:

جعفر

تعديل:

أنا اعتذر ، كان في مشكلة ، وتم إصلاحه الآن 

12.db1.mdb.zip

وعليكم السلام اخي 

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

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

جعفر

حيا الله أخي محسن :-)

شو صار في التجربة؟

جعفر

تفضل 

إضغط على زر الاستعراض ، تطلع لك نافذة اختيار المجلد اللي فيه قواعد بياناتك ،

ثم اضغط على استيراد ، فيقوم باستيراد بيانات الجدول data_kids  من جميع هذه الملفات التي بصيغة mdb و accdb 

وقاعدة البيانات اللي ما يلاقي فيها الجدول ، ما يعبرها 

وهذا الكود اللي يقوم بعملية الاستيراد:

Private Sub cmd_import_Click()
On Error GoTo err_cmd_import_Click

    'loop through the listbox items
    For i = 0 To Me.lst_Files.ListCount - 1
        
        'import the data to the table
        sqAdd = "INSERT INTO data_kids"
        'sqAdd = sqAdd & " IN '" & Application.CurrentProject.Path & "'"
        sqAdd = sqAdd & " select * From data_kids"
        sqAdd = sqAdd & " IN '" & Me.lst_Files.ItemData(i) & "'"
        'Debug.Print sqAdd

        'execute the append SQL
        DoCmd.RunSQL sqAdd
        
    Next i
   
    MsgBox "Done"
    
Exit Sub
err_cmd_import_Click:

    If Err.Number = 3078 Then
        'table not found in the mdb
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

جعفر

10.1.Import_Table_Data.mdb.zip

أخي محسن

انزلت برنامجك ، فلم اجد فيه جدول data_kids !!

كيف اعرف اسماء الحقول؟

انا طلبته منك ليساعدني لحل الموضوع!!

جعفر