jjafferr

لا الله يخليك ، لا تلغي اي شئ من الكود اللي لازم تعمله: في شاشة الكود Tools References واختار من القائمة Miscosoft DAO 3.xx Object Library وراح يشتغل الكود جعفر

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

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

أخي ابو الآء برنامجك لا يخفي الجداول المرتبطة ولكنك جعلتني افتش ملفاتي القديمة ، ووجدت الحل جعفر 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 2. عملت استعلام تحديث. ونشوف النموذج والاستعلام: جعفر تعديل: أنا اعتذر ، كان في مشكلة ، وتم إصلاحه الآن 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 !! كيف اعرف اسماء الحقول؟ انا طلبته منك ليساعدني لحل الموضوع!! جعفر

السلام عليكم تفضل أخي هذا البرنامج حل المشكلة: http://www.datanumen.com/access-repair/ جعفر 9.khaled2015_fixed.accdb.zip

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