jjafferr

يا رجال ، وانا حاط لي لوحة في توقيعي تقول : خلينا نستفيد من افكارك 🙂 جعفر

السلام عليكم 🙂 الخطأ يقول ان الكائن tbl_dece لا يوجد في النموذج Data member not found) : . اذا تلاحظ اسم حاوية النموذج الفرعي في النموذج ، اسمها يطابق الاسم في الكود ، فلم تحصل على خطأ هنا : . ولكن اسم حاوية النموذج الفرعي في النموذج ، اسمها لا يطابق الاسم في الكود ، لذا فالاسم الموجود في الكود غير موجود في النموذج اصلا : . وهذه طريقة اخرى للتأكد بأن الكائن المذكور في الكود لا يوجد في النموذج : فعندك خيارين للحل: 2. يا انك تُبقي الكود كما هو ، وتغيّر اسم حاوية النموذج الفرعي الى : . 2. او انك تُبقي على اسم حاوية النموذج الفرعي كما هي ، وعليه يتغيّر الكود الى : . ولاحظت انه عندك نفس الكائن بعدة مسميات ، فانت تلخبط نفسك ، وستكون المشكلة اكبر في المستقبل لما تريد عمل اي تعديل !! اعطيه نفس اسم النموذج ، والسلام : . ونصيحة اخرى ، وهي تنسيق الكود ، فلما يكون الكود كله يبدأ من اول السطر ، فلا تعرف بداية ونهاية كل مجموعة ، بينما لما يكون منسّق هكذا ، فمن السهل معرفة البداية والنهاية بمجرد النظر في الكود ، ولا داعي لقراءة الكود لمعرفة بدايته ونهايته ، هكذا : Private Sub Form_Load() If DCount("*", "Tbl_bb", "م") < 1 Then Me![addnew].Enabled = True Me.Next.Enabled = False Me.previous.Enabled = False Me.dlet.Enabled = False Me![cmdcols].Enabled = True Me![Edit].Enabled = False Me![sav].Enabled = False Me![traghh].Enabled = False AllowAdditions = True AllowEdits = False AllowDeletions = False Me.tbl_promotion.Form.AllowEdits = False Me.tbl_promotion.Form.AllowDeletions = False Me.tbl_promotion.Form.AllowAdditions = False Me.tbl_Retr.Form.AllowEdits = False Me.tbl_Retr.Form.AllowDeletions = False Me.tbl_Retr.Form.AllowAdditions = False Me.tbl_dece.Form.AllowEdits = False Me.tbl_dece.Form.AllowDeletions = False Me.tbl_dece.Form.AllowAdditions = False End If End Sub جعفر

وعلشان يكتمل الموضوع ، ومن ارشيفي ، ولا اعرف من عمل هذه البرامج ، اليك مرفقين: 1. تحديد عدد السجلات في التقرير ، 2. تحديد عدد السجلات في النموذج المستمر ، جعفر عدد السجلات للنموذج المستمر v.2.mdb تحديد عدد السجلات في التقرير.mdb

لا تهتم ببقية الكود ، فقط اهتم بكود قسم التفصيل 🙂 وعلى العموم ، الكود فقط لإعادة الترقيم !! والطريقة تعتمد على اللعب يدويا بارتفاع هامش راس التقرير وذيله ، حتى لا يكون مجال لطباعة سجلات اكثر من طلبك ، والمهم في رلحصول على النتيجة الصحيحة ، هو ان تستعمل معاينة الطباعة Print Preview ، وليس معاينة التقرير Report Preview . نعم هناك طريقة لتحدد عدد السجلات ، وبدون اللعب براس وذيل التقرير ، ويكون عن طريق اضافة فاصل Page Break ، وتجعله مخفي ، الى ان يصل عندك رقم التسلسل (حقل انت تقوم بعمله في التقرير ، حيث مصدره =1 ، وممكن ان يكون مخفي) الى الرقم 20 (او جميع الارقام التي تقبل القسمة على 20 وبدون باقي) ، حينها تجعل الفاصل Page Break مرئي ، كما في المثال المرفق : او جعفر

وعليكم السلام 🙂 تفضل مثال : جعفر

انا قلت: طيب طريقة ثانية للتحقق من طلبك ، جرب : . جعفر

وعليكم السلام 🙂 للتجربة ، احذف المعادلة من مصدر بيانات الحقل key ، وضعها في الكود ، ثم لتجربة عمل البرنامج ، اعطي قيمة الحقل Serial للحقل key كما هو في الكود التالي ، وهنا ستحصل على النتيجة الصحيحة 🙂 Private Sub Form_Load() SerialNumber = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber 'Me.KEY = ([SerialNumber] - 28170) * 2 Me.KEY = "-3121277418" If Me.Serial = Me.KEY Then DoCmd.Close DoCmd.OpenForm "password" Else MsgBox "يجـب عليـك تفعيـل البرنـامـج بطريقـة صحيحــة" End If End Sub جعفر

للأسف الشديد ، انت ما تعمقت في قراءة الموضوع !! صاحب الموضوع استبدل ملفات التجربة/النهائية بصيغة accde ، استبدلها بملفين بصيغة accdb حتى يرى الاعضاء الاكواد ، وهذا ما رأيته انت !! انا عملت تعديل في الرابط اعلاه ، واعدت عمل الملفات/المرفقات ، وكتبت ملاحظة وطريقة استعمال الملفات ، فرجاء زيارة الموضوع مرة اخرى ، وقراءته بتمعن ، وانزال المرفقات الجديدة ، وتجربتها 🙂 جعفر

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

السلام عليكم 🙂 لا توجد طريقة لطلبك في الاكسس. هناك طريقة اخرى للحماية: جعفر

🙂

وعليكم السلام 🙂 كنت شاطر يوم من الايام ، وعملت هذا : والتكملة على قائمتي ، ان شاء الله يوم من الايام اعملها 🙂 جعفر

اذن اجعل مقاسات التقرير 3*4 سم 🙂 اخي أمير: اولا: انت محاسب ، وكونك تعمل برامج ، ولو طلبت منك حساب تكلفة عمل برنامج في Scaled Agile SAFe فهل بإمكانك عمله ؟ جوابك سيكون عام ، ولكن لو دخلت بتفاصيله ، فقد تقول هذا غير تخصصي ، مع انك محاسب 🙂 نحن الاعضاء في المنتدى عندنا نقاط قوة ونقاط ضعف ، فانا على سبيل المثال اتحاشى اسئلة أمان الاكسس ، وإخفاء خلفيته ، بينما ارد على الاسئلة البرمجية وطرق تسريع عمل البرنامج 🙂 ثانيا: ليس كل من يدخل في المنتدى هو عضو فعّال ، واليك هذه الصورة للمتواجدين في المنتدى حاليا (هذه مجرد صفحة واحدة ) ، ومعظمهم زوار يقرأون مافي المنتدى ، ومن ضمن المواضيع التي يقرأونها هو مواضيعك طبعا : . جعفر

اخوي @ابو رسول ، انت مررت على الموضوع عدة مرات ، فهل عندك استفسار ؟ جعفر

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

وعليكم السلام 🙂 هذا الكود سيغير اسماء الملفات في المسار ImagePath ، من الاسم القديم student_code الى الاسم الجديد seating_no : Dim rst As DAO.Recordset Dim OldFile As String, NewFile As String Set rst = CurrentDb.OpenRecordset("Select * From student") rst.MoveFirst Do Until rst.EOF OldFile = rst!ImagePath & "\" & rst!student_code & ".jpg" NewFile = rst!ImagePath & "\" & rst!seating_no & ".jpg" Name OldFile As NewFile rst.MoveNext Loop rst.Close: Set rst = Nothing MsgBox "Done" جعفر

اخي ابوالحسن 🙂 حياك الله 🙂 ورجاء لا تنسى قوانين المنتدى ، وكما اخبرتك سابقا ، سؤال لكل موضوع ، وليس برنامج لكل موضوع 🙂

لي الشرف 🙂 وحياك الله 🙂 جعفر

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

اما اذا اردت عمل تقريرين: 1. اعمل نسخة من الاستعلام qry_rpt_sum_2 ، وسمّيه qry_rpt_sum_3 ، 2. في الاستعلام qry_rpt_sum_2 ، اترك الحقول الاساسية ، من حقل السنة الى حقل Name1 ، واحذف نصف الحقول الباقية (حسب ما تشتهيه نفسك 🙂) ، 3. في الاستعلام qry_rpt_sum_3 ، اترك الحقول الاساسية ، من حقل السنة الى حقل Name1 ، واحذف الحقول التي تم استخدامها في qry_rpt_sum_2 ، 4. التقرير: تقرير سنوي_2 ، ارجع طريقة عرض البيانات في الحقل من عمودية الى عادية : Vertical = No ، واحفظه ، 5. اعمل نسخة من التقرير: تقرير سنوي_2 ، وسمّيه تقرير سنوي_3 ، 6. اجعل الاستعلام qry_rpt_sum_2 مصدر بيانات التقرير: تقرير سنوي_2 ، 7. اجعل الاستعلام qry_rpt_sum_3 مصدر بيانات التقرير: تقرير سنوي_3 ، 8. في زر الطباعة في النموذج (ولا يمكن عمله في التعيين) ، اطبع التقرير الاول ، ثم الثاني ، والسلام 🙂 جعفر

حياك الله اخوي حسين 🙂 لم اعرف اي نموذج/تقرير انظر فيه !! على العموم ، كتابة التاريخ بطريقة المرفق ، انقذتني في الكثير من الحالات ، لأن اعدادات الكمبيوتر العميل تختلف عن كمبيوتري ، وهذه الطريقة تحل المشكلة : جعفر

اشوف الحمدلله استفدت من الشرح 🙂 . انا اقترح التقرير بهذه الطريقة: . اللي مصدر بياناته: . جعفر 1396.2.1.مطابقة موجودات.accdb.zip

تم فصل السؤال اعلاه الى موضوع جديد ، فرجاء متابعة الموضوع هناك 🙂 جعفر

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

الحمدلله 🙂 طريقة التخطيط والتنفيذ : 1. اجعل الحقل/مربع النص كاملا للرقم ، واحذف الهوامش الاضافية لجميع الحقول: . 2. كان واضح ان المطلوب هو ان عرض مربع النص يجب ان يتماشى مع عدد الارقام فيه ، وعرض الارقام بالنسبة للارقام الانجليزية ثابت لجميع الارقام ، وبعد تحليل النتيجة في الصورة ، كعدد ارقام ، وعرض مربع النص : ، اتضح ان كل حرف محتاج الى 145.5 تويب Twip (وحدة قياس الاكسس) ، وبتقنين الرقم وبعد عدة تجارب توصلت الى الرقم 140 ، لذلك ، اذا استعملت خط Font آخر ، او الخط بحجم اكبر/اصغر ، فيجب عليك تغيير هذه القيمة ، بالتجارب 😁 اذن ، عرض كل حقل يحتاج الى معرفة عدد الارقام ف الحقل ضرب 140 ، للحصول على هذا الرقم لكل حقل (هذه معادلتك) ، جعلنا القيمة في المتغير fld_value عليه يصبح عرض كل مربع (وعلشان نعرف عدد الارقام في الحقل ، نستخدم الدالة Len ، ويجب تحويل الرقم الى نص CStr ، للحول على النتيجة الصحيحة للدالة) : . وفي آخر سطر من المعادلات اعلاه ، جمعنا محموع عرض هذه المربعات في المتغير width_Added ، . 3. العرض المتوفر هو width_Avail : عرض التقرير - هامش اليمين لبكرة الطابعة - هامش اليسار لبكرة الطابعة : . 4. اذن في عملنا اعلاه ، عرض جميع مربعات النص يكون صحيح ، ويحتوي على الرقم كاملا فيه ، بالعرض (الضيق) الذي يناسب الرقم ، ولكنه لا علاقة له بالعرض الحقيقي الموجود في التقرير ، لذا ، سنلاحظ انه ترك مسافة فارغة زائدة عن حاجة المربعات ، 5. هنا قمت انت بحساب عدد الحقول التي سيتم عرضها في التقرير ، الحقول التي مجموعها اكبر من صفر ، وفي المتغير fICnt : . 6. المعادلة التالية تقوم باخذ عرض التقرير ، ناقصا مجموع عرص المربعات ، فيعطينا المسافة الفارغة الزائدة عن حاجة المربعات : فنقوم بتوزيعها بالتساوي بعدد الحقول ، فيصبح نصيب كل مربع : . 7. اذن عرض المربع النهائي سيصبح: عرض المربع الحقيقي (رقم#2 اعلاه) + القيمة المضافة / الاضافية (رقم #6 اعلاه) : . . جعفر