jjafferr

وعليكم السلام أخي حسسين في الواقع كنت ناوي اعمل برنامج فيه شوية اعمال اضافية ، بس عطني بعض الوقت ، وان شاء الله سيكون البرنامج مميز جعفر

أخي عبدالعزيز يمكنك ان تناديني باسمي جعفر في الواقع لم اتوقع ان يأخذ هذا التعديل الوقت الطويل مني ، إلا اني عملت على ضبطه لآخر درجة ، فان الله يحب اذا عمل احدكم عملا ان يتقنه هذه صورة البرنامج: الكائنات التي تشير اليها الاسهم هي كائنات جديده ويعتمد عليها البرنامج والرجاء ان تعمل حسب تسلسل الارقام ، يعني السنة ، فالمدرسة ، ... في الواقع ، البرنامج به بعض التحف الفنية ، والتي اود لو انك تغوص فيها ، فالفائدة منها كبيرة 1. كيف اخذت البيانات لجميع الحقول المطلوبة في الاستعلام qry_Data_All_New ، 2. النموذج الان لا يصفي بياناته من النموذج ، وانما من الاستعلام qry_Data_Entry ، وطريقة التصفية تعطي مرونة في ان الاختيار في النموذج ، تم اختياره ام لا ، 3. مربعات السرد التالي يتم تصفيته حسب الذي قبله ، مما لا يجعلك تختار شئ غير موجود. جعفر 14.2.البرنامج المميز.mdb.zip

Dim dbs As Database, tdf As TableDef اختصار لـ Dim dbs As DAO.Database, tdf As DAO.TableDef يعني الكود معتمد على DAO Library لهذا السبب يجب ان يكون مختارا. وثانيا ، انت لما تعمل البرنامج اصلا ، تكون مضبط جميع الامور فلن تحدث لك هذه المشكلة!! المشكلة ظهرت لديك لأنك استورت برنامج اظهار الجداول المخفية الى برنامج الاخ ابوخليل (ولم يكن الكود في برنامجه اصلا) ، لذا ، مع استيرادك للكود ، يجب ان "تستورد"/تضبط الامور الاحرى معه. ولكنك لو استوردت كائنات برنامج الاخ ابوخليل لبرنامجك ، لما كان في حاجة لتغيير الكود جعفر

بس الخطوة التالية (بالنسبة لي مب اليوم ، فانا مرهق وعندي كم شغلة احاول اخلصها ) هي ان نجعل البرنامج: 1. نعمل فيه زر لكي يختار اي قاعدة بيانات نختارها ، 2. ان نخفي الجداول لهذه القاعدة ، يعني بالرموت كنترول ، وبالطريقة هذه ، لا نجعل المفتاح مع القفل واذا تكرم احد الشباب بهذه المهمة (طبعا يمكن اخفاء بقية الكائنات ايضا) ، اكون شاكرا له مقدما ، فهذا عمل نتشارك فيه جعفر

لا الله يخليك ، لا تلغي اي شئ من الكود اللي لازم تعمله: في شاشة الكود 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

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

حيا الله أخي محسن :-) شو صار في التجربة؟ جعفر