Elsayed Bn Gemy

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

فقط اكتب رقم السجل المراد تعديله ثم اضغط بحث سيجلب لك بيانات السجل عدل فيهما كيفما تشاء ثم اضغط تعديل وانتهى الامر

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

اخى الكريم شرح الاكواد كود الاضافة 'اضافه سجل جيد للجدول If MsgBox("هل تريد اضافه السجل" & vbCrLf & "", vbYesNo, " اضافة") = vbYes Then Dim Rs As DAO.Recordset 'اسم الجدول Set Rs = CurrentDb.OpenRecordset("الموظفون") 'اضافه البيانات من مربعات النص للحقول في الجدول Rs.AddNew Rs!رقم_السجل = رقم_السجل Rs!الاسم = الاسم Rs!إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة = إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة Rs!عدد_الايام_المستحقة_لهذا_العام = عدد_الايام_المستحقة_لهذا_العام Rs!ألأيام_المطلوبة_لهذا_العام = ألأيام_المطلوبة_لهذا_العام Rs!الرصيد_المتبقي_لهاذا_العام = الرصيد_المتبقي_لهاذا_العام Rs!إجمالي_رصيد_الاجاذات = إجمالي_رصيد_الاجاذات Rs!عدد_أيام_العارضة_لهذا_العام = عدد_أيام_العارضة_لهذا_العام Rs!عدد_الايام_المطلوب = عدد_الايام_المطلوب Rs!باقي_أيام_العارضة = باقي_أيام_العارضة Rs.Update End If Set Rs = Nothing كود البحث 'جلب سجل من الجدول Dim Rs As DAO.Recordset Dim Rs_search As String 'الرقم يجب وضعه If IsNull(رقم_السجل) = True Then MsgBox "ادخل رقم السجل " Exit Sub End If 'اسم الجدول Set Rs = CurrentDb.OpenRecordset("الموظفون", dbOpenDynaset) 'البحث بالرقم المدخل في مربع النص Rs_search = "[id] =" & ID Rs.FindFirst (Rs_search) If Rs.NoMatch Then MsgBox "لا يوجد سجل" Cancel = True Else Rs.Edit 'مربعات النص تساوي القيم من الجدول رقم_السجل = Rs!رقم_السجل الاسم = Rs!الاسم إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة = Rs!إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة عدد_الايام_المستحقة_لهذا_العام = Rs!عدد_الايام_المستحقة_لهذا_العام ألأيام_المطلوبة_لهذا_العام = Rs!ألأيام_المطلوبة_لهذا_العام الرصيد_المتبقي_لهاذا_العام = Rs!الرصيد_المتبقي_لهاذا_العام إجمالي_رصيد_الاجاذات = Rs!إجمالي_رصيد_الاجاذات عدد_أيام_العارضة_لهذا_العام = Rs!عدد_أيام_العارضة_لهذا_العام عدد_الايام_المطلوب = Rs!عدد_الايام_المطلوب باقي_أيام_العارضة = Rs!باقي_أيام_العارضة End If Rs.Close Set Rs = Nothing كود التعديل 'تعديل سجل موجود في الجدول If MsgBox("هل تريد تعديل السجل" & vbCrLf & "", vbYesNo, " تعديل") = vbYes Then Dim Rs As DAO.Recordset 'اسم الجدول Set Rs = CurrentDb.OpenRecordset("الموظفون") 'البحث عن رقم السجل المعدل Rs.MoveFirst Do Until Rs.EOF 'اذا وجد السجل If Rs!ID = ID Then 'تحريره Rs.Edit Rs!رقم_السجل = رقم_السجل Rs!الاسم = الاسم Rs!إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة = إجمالي_رصيد_الاجاذات_الاعتيادية_المرحلة Rs!عدد_الايام_المستحقة_لهذا_العام = عدد_الايام_المستحقة_لهذا_العام Rs!ألأيام_المطلوبة_لهذا_العام = ألأيام_المطلوبة_لهذا_العام Rs!الرصيد_المتبقي_لهاذا_العام = الرصيد_المتبقي_لهاذا_العام Rs!إجمالي_رصيد_الاجاذات = إجمالي_رصيد_الاجاذات Rs!عدد_أيام_العارضة_لهذا_العام = عدد_أيام_العارضة_لهذا_العام Rs!عدد_الايام_المطلوب = عدد_الايام_المطلوب Rs!باقي_أيام_العارضة = باقي_أيام_العارضة Rs.Update End If Rs.MoveNext Loop End If Set Rs = Nothing شكل المرفق النهائى المرفق اتمنى ان ينال اعجابكم ADD-EDIT-SEARCH-ByDAO.rar

ان شاء الله جارى العمل عليها فصبر جميل

تلامذتك يا كبير

السلام عليكم اخى الكريم مشاركة مع اساتذتى الافاضل ما رايك باستعمال لغة DAO بعيد عن مشاكل الاستعلامات ومربعات النصوص المنضمة ومشاكل النماذج انن شئت اكمل لك المرفق

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

اخى الكريم فضلا انتظر جارى تجهيز مرفقك اعتذر عن التاخير لظروف عملى

ارفق مثالا للتطبيق عليه ان شاء الله .. اخى الكريم هناك استعلامات للالحاق لما لا تتعامل معها اسهل

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

حيا الله اخى جعفر .. السيد . مارد سابقا

اخى الكريم هل تقوم بنقلها برمجيا ام عن طريق النسخ واللصق

اقصى ما يمكن ان اصل اليه اخى الكريم ستجد نموذج يسمى تقسط المدفوعات ابحث عن الفاتورة وقم بتسديد الاقساط New Microsoft Access قاعدة بيانات (2).rar

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

اخى الكريم لم افهم غير طلب اجمالى الفاتورة اذا كنت تريد تقسيط المدفوعات فيمكنك عمل جدول للمدفوعات وربطه بجدول الفواتير New Microsoft Access قاعدة بيانات (2).rar

ارفق مثالا اخى الكريم

استخدم دوال الاستدعاء

لا نستغنى عنكم ابدا افضالكم علينا لا تحصى وجاحد من ينكرها نغيب ونرجع لكن لا نترككم ابدا وبارك الله فى اخى محمد صهيب من نصحنى بتغيير الاسم

استبدل السطر البرمجى السابق بالسطر التالى ( الدالة NZ ) تقوم بتجاهل الفرغات وتحويلها الى اى متغير تكتبه وفى هذه الحالة المتغير صفر Me.totalN = Val(Nz(number1, 0)) + Val(Nz(number2, 0))

افتح الاستعلام فى طريقة عرض التصميم وفى حقل التاريخ اتبع الاتى

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

اخى الكريم هل هذا ما تريد نقل بيانات من خلية الي خلية اخري.rar

اخى القريم فى حدث بعد التحديث لمربع النص number2 ضع هذا الكود وسيتم تجاهل الحروف وجمع الارقام فقط ولكن بعد التحديث لمربع النص الثانى Me.totalN = Val(number1) + Val(number2)

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