jjafferr

وعليكم السلام 🙂 جرب هذا التعديل ، ورجاء تغيير المتغير XXX برقم صحيح : If [mo] = 1 Then Me.موعد1.Visible = Not (موعد1.Visible) Else Me.موعد1.Visible = False End If If [br] <= XXX Then Me.z.Visible = Not (z.Visible) Else Me.z.Visible = False End If جعفر

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

السلام عليكم 🙂 الخطأ يقول ان الكائن 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

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

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