-
Posts
9,814 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
397
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو 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 وراح يشتغل الكود جعفر
-
تم اظهارهم بنجاح جعفر
-
اريد فك حماية مشروع فيجوال بيسك فى ملف اكسيس
jjafferr replied to meslam922's topic in قسم الأكسيس Access
أخي الكريم اذا كان الكود محمي ، فصاحب الكود لديه كلمة السر لفتح الكود ، إلا اذا كنت انت صاحب الكود ونسيت كلمة السر شروط المنتدى لا تسمح بالتعدي على حقوق الملكية الفكرية لصاحب البرنامج. جعفر -
أخي ابو الآء برنامجك لا يخفي الجداول المرتبطة ولكنك جعلتني افتش ملفاتي القديمة ، ووجدت الحل جعفر Show_Hide_Tables.zip
-
-
وعليكم السلام أخي أبوخليل ولي الشرف ان تمر علينا هنا الكود اللي وضعته انت ، هو بدلا عن (اضغط على اسم الجدول بالفأرة اليمين ، خصائص ، ثم تختار إخفي) ، وطبعا يمكن للمستخدم ان يظهر جميع جداول النظام ، وبالتالي سترى الجداول التي اخفيتها بالكود اعلاه. اما الكود الذي وضعه الاخ أسير الشروق ، فلا يمكن إظهار الجداول إلا بكود آخر ، فإظهار جداول النظام لن يُظهر هذه الجداول جعفر
-
أخي عبدالعزيز رجاء التجربة ، واذا كان هو اللي تريده ، اخبرني حتى اعمل عليه تعديل اخير وهو: بدل ان نجلب هذا الكم الهائل من البيانات (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
-
وعليكم السلام اخي بعض الاوقات تكون هناك علاقة بين الجداول ، والعلاقة عبارة عن ربط بحقل من هذا الجدول وحقل من الجدول الاخر ، لذا لا ينصح بحذف هذا الحقل ، لأن الحقول في الجداول الاخرى المرتبطة معه و الكود وارتباط النماذج الرئيسية بالفرعية المعتمدة على هذا الحقل ، ستكون لك مشكلة فيهم جميعا جعفر
-
حيا الله أخي محسن :-) شو صار في التجربة؟ جعفر