نجوم المشاركات

الاخوة و الاخوات ... الزملاء و الاحبة منذ 2015 ثبت الاخ الفاضل ابو خليل موضوعا مهما لابي البراء عن توجيهات نابعة من خبرة ودراسة للاخوة الفضلاء قرأها أقل من 3000 مرة كل رواد المنتدى وطلاب العلم فيه و المارون و العابرون و من فتح المشاركة ولم يقرأ منها مهماً و ان قلّب سطورها . إخوتي و اخواتي الفضلاء لا اريد ان تعتبر مشاركتي هذه تنظيراً ، لذا سابتعد عن الاطالة و أقصر القول ... البحث عصب و شريان و باب منير من ادوات طالب العلم جلّ المتجولين في المنتديات ... كجالس على شاطئ ينتظر المدّ ليقذف اليه خير البحر ... و هو جالس يراوح مكانه في قلب البحر ... لهذه المنتديات ... درر قضى فيها المتطوعون و الدارسون و طلاب العلم ليلهم ونهارهم و نور عيونهم و خمائل اذهانهم ، فجعلوها بين ايديكم ، تحويها صدفات و اضحات غير مخفيات و لا مكتنزات لا تدرك ، بل وضحوها و طرحوها و فسروها ، و وضعوها بين ايديكم ... و ما عليكم الا بذل قليل جهد ... بالبحث ... و اعذروني لطرح الموضوع ... و لكنه و الله من أخ لكم مشفق محب يرجو لكم الخير و الفائدة و أخشى ان يكون تكرار فتح المواضيع المتشابهة المكررة منفرا للسائل و المجيب و الله من وراء القصد ...

السلام عليكم شكرا أخي مرشد على المساعدة كان المفروض اعمل الشرح للكود ، علشان يكون واضح عمله ، واللي منه اخوي مرشد فهم بيت القصيد ، واستعمله: 'مؤقتا احفظ هذا المتغير في الذاكرة Dim Ky As Integer 'كلما نضغط على اي زر ، اريد حفظه مؤقتا للحدث التالي Ky = KeyCode 'اذا الصنف فارغ ، والزر الذي تم الضغط عليه هو 'Enter او TAB 'فقم بالكود التالي If Len(Me.Rajmsanf & "") = 0 And (Ky = 13 Or Ky = 9) Then 'احذف معلومات آخر زر تم الضغط عليه Ky = 0 . جعفر

وعليكم السلام استخدمت هذا الكود على حدث "بعد تحديث" للحقل ايام الحضور: Option Compare Database Option Explicit Private Sub todys_add_AfterUpdate() 'Me.New_Date = DateAdd("d", [Number of Days] - 1, DateSerial(Year(Date), Month(Date), 1)) 'اذا ايام الحضور = صفر ، فلا تكتب شيء في التاريخ If Me.todys_add = 0 Then Me.[التاريخ] = "" Else 'وإلا ، فقم بحساب التاريخ Me.[التاريخ] = DateAdd("d", Me.todys_add - 1, DateSerial(Year(Me.Parent.[من تاريخ]), Month(Me.Parent.[من تاريخ]), 1)) End If 'اذا كان ناتج التاريخ اكبر من "الى تاريخ" ، فتجاهله واكتب الى تاريخ If Me.[التاريخ] > Me.Parent.[الى تاريخ] Then 'Me.[التاريخ] = DateSerial(Year(Me.Parent.[الى تاريخ]), Month(Me.Parent.[الى تاريخ]) + 1, 0) Me.[التاريخ] = Me.Parent.[الى تاريخ] End If End Sub واستخدمت اعدادت الحقل لأمنع ادخال الايام الغير صحيحة . جعفر 802.zip

السلام عليكم جميعاً اخواني الأعزاء كما هو واضح من العنوان، فإن لكل منا طريقته الخاصة لحماية برامجه من القرصنة أو العبث.. ومن ضمن تلك الطرق التي أعتقد أنها ستكون من ضمن أقوى الطرق إن شاء الله هي طريقة أسميتها: (ملف المفتاح) الخاصة بي، لا أدري قد يكون أحدا ما قد توصل إليها ويستخدمها مثلي، ولتعم الفائدة، وحتى يتم مناقشتها وتطويرها.. أطرح الفكرة عليكم.. راجياً تفاعلكم وإثرائكم للموضوع. بعد الإنتهاء من بناء برنامجكم نفذ الخطوات التالية: 1- عمل كلمة مرور لملف البرنامج مع مراعاة أن تكون معقدة وطويلة، مع ضرورة إضافة حرفي: chr(13) و chr(10) التي يستحيل إدخالها من الكيبورد، ولكن كيف يمكن إضافة هذين الحرفين؟ يمكن إضافة هذين الحرفين باستخدام الكود التالي: افتح ملف جديد، واعمل نموذج جديد، وزر جديد، وفي حدث (عند النقر) اكتب هذا الكود: Dim DB , pwOld, pwNew, pathDB pathDB = "C:\MeSystem.accdb" pwOld = "" pwNew = Chr(13) & "Xjhdk@u$jl25ي" & Chr(13) & Chr(10) Set DB = OpenDatabase(pathDB, True, False, ";pwd=" & pwOld) DB.NewPassword pwOld, pwNew DB.Close وغير ما يلزم تغييره من مسار الملف و كلمة المرور المرغوبة لديك ويبقى! كيف يمكن فتحه الملف مع وجود كلمة مرور معقدة.. الحل في الخطوة التالية. 2- كون ملف جديد (ملف المفتاح) وأنشئ نموذج جديد وفي حدث عند الفتح اكتب كود فتح ملف النظام التالي: Dim App As Access.Application, strPath As String Set App = New Access.Application strPath = Application.CurrentProject.Path & "\ MeSystem.accdb " With App .DoCmd.RunCommand acCmdAppMinimize .OpenCurrentDatabase strPath, , Chr(13) & "Xjhdk@u$jl25ي" & Chr(13) & Chr(10) ' .DoCmd.OpenForm "Form", , , , , acWindowNormal'نموذج البداية ' .DoCmd.Maximize ' .Visible = True End With Set App = Nothing DoCmd.Quit وجعل هذا النموذج نموذج البداية (أي يعمل عند بدء تشغيل ملف المفتاح)، كما بمكنك إضافة كود إخفاء واجهة الاكسس قبل تنفيذ الكود السابق إن أردت أن لا يظهر عند التشغيل. 3- احمي الوحدات النمطية لملف المفتاح بكلمة مرور. 4- احفظ ملف المفتاح في نفس مجلد البرنامج بامتداد ".accde أو .mde" بحسب اصدار الاكسس الذي تعمل عليه. مرفق لكم مثال مفتوح ملف المفتاح.rar

وعليكم السلام تفضل Private Sub A_AfterUpdate() Me.B = Nz(DMax("[B]", "tabl", "[A]=" & Me.A), 0) + 1 End Sub جعفر

مثال بسيط يوضح احدى الطرق لرصد درجات مادة حسب الصف مع بعض اللمسات على نموذج الادخال اتمنى تجدوا الفائدة ادخال درجات مادة وفصل.rar

شهادة شكر وتقدير اتقدم بخالص الشكر والتقدير والعرفان الى الاخ العزيز جعفر اشهد انك عبقري الله يبارك في عمرك واولادك واهلك ومالك ويزيدك علم ومعرفه ياااارب

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

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

اخي جعفر انت المعلم ومنكم نستفيد ربي يحفظك

تسلم ايدك أخوي أبو آدم اجزت واوفيت ، وهذا رابط أخوي ابو خليل جعفر

السلام عليكم استاذي ابو ياسين الله يعطيك العافيه نعم هو المطلوب والاستاذ@jjafferr ابو الجعافر ربنا يعطيه الصحه استاذنا وحبيبنا دوما وهو في المواقف الصعيبه الله لا يحرمنا من لمساته و اسميه بعالم الاكسس صراحه مع شهاده شكر تقدير رغم اني عانيت من هذا الموضوع قبل فتره ولم نوصل لحل فجزاه الله خير الجزاء باذن الله نصير زي استاذنا جعفر والعيب منا كمبتدي عندما لا استطيع اوصل السوال بطريقه علميه الف تحيه للاستاذ جعر والف تحيه اليك استاذ ابو ياسين الله يجزيكم كل خير

اتمنا يكون المطلوب والحل هو تبع الاخ جعفر فقط انا سويت في حدث عند الخروج من الادراج ky=0 3211.rar

الحمدلله

اتفضل اليك هذا

وضعت معادلتي صفيف في الخليتين C16 D16 أما الأرقام في الخليتين E16 F16 لم أعرف كيف تم حسابها ؟ الرجاء الشرح اكثر تفضل جرب المرفق حساب العملاء.rar

السلام عليكم ورحمة الله بفضل الله تم حل المشكلة بطريقتي والصورة فيها طريقة الحل اتمنى أن يكون طريقتي صحيحة ختاما الشكر والتقدير لهذا المنتدى الرائع و كذلك للاستاذ الفاضل ( جعفر ) و الاستاذ الفاضل Shivan Rekany أرجو منكم إذا كان طريقتي غير علمية أن تصححو الحل ولكم جزيل الشكر

طيب نفترض اسم الحقل هو iTotal ، وفي اعداداته اجعل مصدره كما هو في الاستعلام ، ثم ضع هذا الكود في حدث "الحالي" للنموذج ، me.iTotal=IIf(IsError([Text16]);0;[Text16]) جعفر

وعليكم السلام قصدك رسالة خطأ في النموذج/التقرير ، وكما قال اخي رمهان ، استعمل =IIf(IsError([Text16]);0;[Text16]) جعفر

وعليكم السلام تفضل (هذا للنسخ واللصق) ، ولكنه للأسف بسبب العربية ، فان الحقول تلخبطت: IIf([النهاية]>[البداية],[النهاية]-[البداية],([النهاية]+1)-[البداية]) . وهنا الصورة الصحيحة: . وتم تعديل الاستعلام كذلك في المرفق جعفر 800.1.حساب فترات الوقت.accdb.zip

عند انشار رسالة جديد او رد ، اضغط options request a read receivpt اشعار بالوصول اي التسليم على صندوق بريد المستلم request a delivery receipt اشعار بقيام المستلم بالقراءة و لكن يمكن للطرف الاخر تجاهل ارسال الاشعار