elmozy525

بس ممكن حضرتك تعمل حقل غير منضم يكون به عدد الابناء وتكون بياناته من جدول الابناء ويوضع بجوار الاسرة الاولى بالرعاية فكرة هذا الحقل ومكانه (الاسرة الاولى بالرعاية) رائعة وممتازه زادك الله علما ورفع قدرك

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

حضرتك مسحت كل الاستعلامات عدا اثنين 3 تقرير rpt_Count احصاء حسب الافراد و حسب الابناء بياناتهم واحده وبياخدو من حقل واحد 4 نموذج المستفيدين رجع خطأ كتابة خطأ فى حقل اجمالى الدخل عند اضافة حقل جديد وكنت قد عالجته قبل ذلك

أبشر اخى الكريم فان الاجر على قدر المشقة انا شايف ان حضرتك تعبت كثيرا ولن اغير اى اشى ان شاء الله سازيد البيانات واجرب وارد على حضرتك بعد المراجعة السريعة التقارير تعمل بكفائة عالية بس هناك شيئين 1 تقرير الاولى بالرعاية الحالة الاجتماعية رقم وليست نص 2 تقرير RPT_methodByType 4ادخل قيمة معلمة الاسم 3 تقرير rpt_Count احصاء حسب الافراد و حسب الابناء بياناتهم واحده وبياخدو من حقل واحد 4 نموذج المستفيدين رجع خطأ كتابة خطأ فى حقل اجمالى الدخل عند اضافة حقل جديد وكنت قد عالجته قبل ذلك ساجرب واكتب لك هنا ما يقابلنى حتى لا اغير شي ساضيف فقط كود مربعات التحرير

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

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

انا قلت لحضرتك انى عملت الحقل منضم علشان يظهر فى التقارير لما سألت حضرتك هو منضم افضل ام غير منضم

الحمد لله توصلت الى الكود الصحيح Private Sub ComboBox_NotInList(NewData As String, Response As Integer) Dim ctl As Control Dim strSQL As String Set ctl = Me!ComboBox If MsgBox(" الاسم المدخل" & " / " & _ Me.ComboBox.Text & " / ليس ضمن القائمة هل تود إضافته ", _ vbOKCancel, "بيانات") = vbOK Then Response = acDataErrAdded strSQL = "INSERT INTO tbl(list) VALUES('" strSQL = strSQL & NewData & "');" CurrentDb.Execute strSQL MsgBox "تمت الاضافة ", , "اضافة جديدة" Else Response = acDataErrContinue ctl.Undo End If End Sub

الحمد الله بفضل الله تعالى ثم بفضل توجيهات حضرتك وتعبك وخبرتك تم الانتهاء من البرنامج سارفع لحضرتك الاصدار الاخير لانهائة وتحزيمة فاضل ثلاث ملاحظات ساتركها لحضرتك لمحاولاتى الكثير ة فيها 1 - تقرير RPT_methodByType يظهر من نموذج frm_chooseMethodType المشكلة التاريخ لا يظهر يكتب خطأ 2 تقرير rpt_Count مع ان البيانات مظبوطة الا انه يظهر خطأ 3 حقل اجمالى الدخل واجمالى المصرفات فى نموذج المستفيدين كنت عاوزهم يتحدثو بمجرد الكتابة فى الحقول الخاصة بهم من غير الضغط على السابق او اللاحق انا كنت عملت كود me.req فى حقل Cash4 Cash3 Cash1 Cash1 بعد التحديث بس وجدته بيرجع كل شوية للاسم الاول مكان هذه الحقول نموذج frm_Familys بينات الزوج total_payment Cash1 Cash2 حقل بيانات الابناء Cash3 المالية Cash4 بينات الزوج total_massarif payOut1 payOut2 حقل بيانات الابناء payOut3 payOut4 الاصدار النهائى بالنسبة لى + فولدر الشعارات الشعارات.rar اخى الفاضل ابو خليل والله لا أجد كلاما أعبر به عن شكرى وامتنانى لحضرتك على تواضعك وذوقك الرفيع وتعاونك واخلاصك لوجه الله تعالى أسأل الله ان يرفع قدرك وان يصلح حالك وبالك وان يبارك لك فى اهلك ومالك الجمعية13.rar

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

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

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

اخى الفاضل حبيت احط كود لو ان القيمة غير موجودة فى مربع الكمبوبكس يعطرسالة للسماح بكتابتها ولكن يعطنى خطأ Dim strMsg As String strMsg = "هل تريد إضافة " & NewData & " إلى القائمة؟" If MsgBox(strMsg, vbQuestion + vbYesNo) = vbYes Then Response = acDataErrAdded DoCmd.RunCommand acCmdSaveRecord Else Response = acDataErrContinue End If

معلش تحملنى كنت عاوز اسأل حضرتك سؤال اي هى صلاحيات المدير غير اضافة مستخدم جديد حتى اسم هذا المستخدم لا يظهر عنده لان عند المدير لا يهر الا اسم المدير

الكلمة النهائية لحضرتك فانت صاحب الخبرة ورأيك مقدم الجمعية 11.rar

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

تم التعديل وتوحيد الاشياء ممكن توضيح انا عملت النموذج منضم للتجربة

نموذج المستفيدين frm_Familys total_payment يظهر فى مثلا تقرير rpt_Type_Osra RPT_FamilyData RPT_almostfedin هذا تم معالتجته

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

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

ملئ البيانات سهلة بس لان البرنامج بيرفع على الموقع الجدول اللى عندى به 200 اسم الى الان بجميع بيانتهم ولكن مينفعش ارفع هذه البيانات تمام سيتم التعديل ان شاء الله

تم مراجعة النماذج والتقارير وتعديل ظهور البيانات ولكن يبقى فى كل التقارير مشكة عدم ظهور بياناتاجمالى الدخل الجمعية 8.rar

التقرير بيفتح بون اخطاء بس اصبح فارغ لا يوجد به بيانات ولما رجعت للنموذج وجدت البيانات موجوده

وهذا مثال على هذا الخطا فهذا التقرير به خطئين RPT_methodByType الدعم حب النوع 1 خانة التاريخ لا تتعرف على التاريخ مع انى تاكدت من مصدر البيانات وغيرت الحقول اكثر من مرة 2 ظهور الارقام بدل البيانات وهى منتشرة

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