Elsayed Bn Gemy

استاذنك اخى رمهان فى المشاركة معك اخى الكريم لم يتسنى لى تنزيل المرفقات لعزرا خارج ارادتى اما بالنسبة لكود الترقيم 'فرضنا متغير من نوع رقم Dim m As Integer 'ثم قلنا بان هذا المتغير يساوى مجموع السجلات مقسوما على 5 'ثم استعملنا دالة من الدوال الرياضية ليعطينى ناتج القسمة عددا صحيحا ثابتا m = Int(DCount("[id]", "tb1") / 5) 'ثم قلنا اذا كان ناتج القسمة اقل من واحد فاجعل مربع نص الترقيم = 1 ' ولن يكون ناتج القسمة اقل من 1الا اذا كان القسمة من 1 الى 5 If [m] < 1 Then Me.id = 1 'ثم اذا قلنا اذا كان ناتج القسمة = 1 فاجعل مربع نص الترقيم = 2 ' ولن يكون ناتج القسمة = 1 الا اذا قسمنا ال 5 على نفسها ElseIf [m] = 1 Then Me.id = 2 'ثم اذا كان ناتج القسمة اكبر من او يساوى 1 ElseIf [m] >= 1 Then 'فاجعل الترقيم يكون حاصل القسمة عددا صحيحا مضافا له 1 ليبدأ الترقيم Me.id = Int(m) + 1 End If وبذلك نكون ايضا حللنا مشكلة حذف سجل ليعيد الترقيم نفسها ذاتيا ويمكنك وضع هذا الكود فى حدث بعد التحديث لمربع نص اخر مثلا تحياتى

اخى الكريم برنامج رائع جداااااااااااااااااا مع العلم انى استمتع بكتابة الكود اكثر من مره حتى لو كان بسيطا فخير ثمار تجنيها مما زرعتها بيديك

اخى الكريم قم باعادة ضغط واصلاح قاعدة البيانات

اخى الكريم تفضل هذا هو الكود Private Sub id_AfterUpdate() 'تعديل سجل موجود بالجدول If MsgBox("هل تريد تعديل السجل الحالى" & vbCrLf & "", vbYesNo, " تعديل") = vbYes Then Dim Rs As DAO.Recordset Dim Rs_search As String 'اسم الجدول Set Rs = CurrentDb.OpenRecordset("table1", dbOpenDynaset) 'البحث بالرقم المدخل فى مربع النص Rs_search = "[id] =" & id Rs.FindFirst (Rs_search) If Rs.NoMatch Then MsgBox "عفوا لا يوجد سجل" Cancel = True Else Set Rs = CurrentDb.OpenRecordset("Table1") 'البحث عن السجل المعدل Rs.MoveFirst Do Until Rs.EOF 'تحريره Rs.Edit Rs!DateOfHoly = Text1 Rs.Update Rs.MoveNext Loop End If End If Set Rs = Nothing End Sub تحياتى

اخى الكريم انظر الى هذا الموضوع فيه ما تريد http://www.officena.net/ib/index.php?showtopic=59126

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

اخى الكريم اادرج مرفقا ولو كمثال ليتسنى للاخوة التعديل عليه عموما هذا هو الكود 'تعديل سجل موجود فى جدول If MsgBox("هل تريد تعديل السجل" & vbCrLf & "", vbYesNo, " تعديل") = vbYes Then Dim Rs As DAO.Recordset 'اسم الجدول Set Rs = CurrentDb.OpenRecordset("Table1") 'البحث عن السجل المعدل Rs.MoveFirst Do Until Rs.EOF 'اذا وجد السجل If Rs!Employ = Employ Then 'تحريره Rs.Edit Rs!DateOfHoly = Text1 Rs.Update End If Rs.MoveNext Loop End If Set Rs = Nothing وهذا مرفق للتوضيح تعديل سجلات.rar

اعتذر لك يا اخى نا لم استطيع تنزيل المرفق نظرا لانى اتابع المنتدى منذ امس من الموبايل لانقطاع النت فى بلدتى عموما يمكنك ادراج حقل اسم العميل فى راس التقرير وسذلك لتفادى تكراره

فى زر فتح التقرير (عند النقر ) ولكن قبل كود فتح التقرير

ما رايك بهذا البحث بحث سريع وبالحرف فقط اكتب اول حرف من كلمة البحث وستجد النموذج يقوم بعملية الفلترة مع كل حرف وتباعا بقية الحروف الى ان تجد المطلوب بعد التعديل.rar

جاري تصميم مرفق بهع نظام للمراسلة بين المستخدمين اتمنى من الله التوفيق وفور الانتهاء منه سافرد له موضوع مخصصا

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

تفضل اخى الكريم واعتذر للتاخير النت فاصل عندى فى البيت من امبارح اضافة السنوات.rar

اخى الكريم اذا كان مصدر بينات التقرير هو النموذج الفرعى فيمكنك وضع هذا الكود فى زر فتح التقرير ولكن قبل حدث الفتح Forms![main form name]![subform control name].Form.Requery مع تغيير اسماء النماذج الرئيسية والفرعية

البركة فيك استاذ مارد وصدقني انا اتعلم من هذه الاستفسارات ! اكون حريص على فهم المشكلة اولا فهي تحاكي التطبيق العملي للاكسس ! تحياتي وهذا ملحوظ جدا منكم تسال اولا ثم تزيد فى الاستفسار ثم تتجه الى التحليل وتقلب الموازين الى ان يظن السائل انه متهم بكثرة سؤالك له وصدقنى اخى الكريم رمهان انا مؤخرا احاولا جاهدا ان انتهج اسلوبكم هذا لانه الافضل على الاطلاق

اخى الكريم توضيح زر تسجيل موظف جديد معمول علشان لو فى موظف اسمه مش موجود فى الجدول يعنى بتسجل منه الموظف اول مره بس والترقيه بتتسجل من الموظف الثانى وابشر طالما الاستاذ رمهان شرفنا بقدومه باذن الله طلبك محلول وجرب المرفق دا كدا اضافة السنوات.rar

تفضل اخى الكريم وبداخل المرفق شرح للاكواد اضافة السنوات.rar

تفضل اخى الكريم log(off-on).rar

اخى الكريم ضع هذا الكود فى نص التحقق من الصحة لمربعات نصوص البرد الاليكترونى فقط للتاكد من صحة الاميل المسجل Is Null OR ((Like "*?@?*.?*") AND (Not Like "*[ ,;]*")) المصدر http://www.pcreview.co.uk/threads/table-design-field-email-address-format-mask.1682491/

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

تفضل اخى الكريم مرفق لتسجيل الدخول والخروج وامكانية تسجيل مستخدم جديد فى البرنامج log(off-on).rar

والله يا اخى ظننت ان تقريرك جاهز فقط تريد ربطه باسم العميل هناك حل مؤقت اا ان تضيف المعايير الخاصة بتاريخ البدء والانتهاء فى الاستعلام الخاص بالتقرير او ان تضيف حقل فى الجدول الخاص بالمدفوعات من نوع -وقت - وتضيف مربه\ع نص خاص به فى النموذج ووعند الطباعة تضيف معيار لاختيار الوقت الذى قمت باضافة فيه هذه الاقساط

شكرا لك وانت طيب

تفضل اخى الكريم عدد الحراس.rar

تفضل اخى الكريم قاعدة البيانات131.rar