أبوبسمله

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

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

ان شاء الله يساعدك احد الاخوه ممن لديهم اوفيس 2007 او اعلى فانتظر بارك الله فيك

شكرا لك اخى سليم ولك اخى ابو آلاء المزيد مما تنتظره فهى امثله قد شاركنا بها احبائنا واخواتنا واخواتنا للاستفاده منها نسال الله العلى العظيم الاجر والثواب على ما قدموه فى سبيل توصيل هذه المعلومات لنا جزاهم الله عنا خير الجزاء اليكم مكتبة التواريخ مجمعه من قبل اخ كريم فى منتدى الفريق العربى للبرمجه (اللذى هو متوقف حاليا عن العمل ولا أعلم السبب ) وان شاء الله يرجع للعمل مره اخرى بتوفيق من الله سبحانه وتعالى تمنياتى للجميع بالتوفيق من الله لما يحبه ويرضاه حجم الملف كبير نسبيا للحجم الموجد بالموقع فقمت برفعه على الايميل فمعذرة للرابط الخارجى ونتفهم ان الحجم الصغير للمحافظة على الموقع جزاهم الله كل خير القائمين على الموقع وعلى كل المواقع العربيه لافادة المسلمين https://drive.google.com/file/d/0B4CrAebbG9uOUXliNGdqMlh5V0U/view?usp=sharing

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

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

ياريت وصلات التحميل يا اخوانى

للاسف معنديش اوفيس 2007 حول الملف لـ 2003 حتى نتمكن او احد الاخوه من مساعدتك بالتوفيق

اتفضل اخى ان شاء الله يكون ما طلبت بالتوفيق dates1.rar

نعم يمكن اخى أبو آلاء سأجرب أن أطبقها وأضعها لك يمكن تطبيقها بالداله weekday

حقل الباقى من الرصيد الموجود فى الاستعلام ضعه مكان حقل الرصيد بالنموذج اللذى يظهر الرصيد 30 هذا على ما فهمت من كلامك والله اعلم بالتوفيق

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

السلام عليكم ورحمة الله وبركاته اخوتى واحبتى فى الله ارجو ان تتقبلو هذا الشرح البسيط من مبتدء يحاول التعلم وسطكم وجزاكم الله خيرا اساتذتى ومعلمينى الكرام حيث وانا اقوم بتطبيق برنامج لى احتجت لمعرفة اول يوم فى كل شهر وتثبيته فى حقل غير منضم لمقارنته مع تاريخ الجهاز لالحاق سجلات فى اول يوم فى الشهر فقط والحمد لله توصلت لها بعد عدة محاولات لمعرفة اول يوم فى الشهر الحالى نضع الكود التالى فى مصدر عنصر التحكم للحقل على ان يكون هناك حقل للتاريخ =DateSerial(Year(Date());Month(Date());1) لمعرفة اول يوم فى العام الجديد =DateSerial(Year(Date());12;31+1) لمعرفة اول يوم فى العام الحالى قد نحتاجها مثلا للاحاق رصيد الاجازات المتبقى من العام الفائت للعام الحالى =DateSerial(Year(Date());1;1) ياريت اكون عرفت اوضح واوصل المعلومه بشكل صحيح ومرفق مثال لزيدة الايضاح وفقكم الله لما يحبه ويرضاه dates.rar

اعمل استعلام وحدد به ما تريد فى المعايير ثم قم بانشاء التقرير اللذى تريده على هذا الاستعلام بالتوفيق

لا يوجد مرفقات

مرحب بعودتك اخى نارت أبو آدم حمدالله على السلام

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

جرب التالى >=#1/2010# And <=[forms]![Formxxx]![xxxdate] ان شاء الله يظبط

اتفضل اخى student_up.rar

جرب التعديل الاتى >=1/1/2010 And <=[forms]![Formxxx]![xxxdate] انشاء الله يظبط معاك

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

ثوانى

جربته وحياتك عاندى قبل ما ارفعه

اتفضل اخى ابو ادم Private Sub zer1_Click() Beep If MsgBox("??? ?E? E???? C???CE" & vbCrLf & _ "?? C?E ?E??I ?? E???? C???? .", _ vbMsgBoxRtlReading + vbMsgBoxRight + vbExclamation + vbYesNo, _ "E???? C???CE") = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "INSERT INTO TPstoudntE ( id, RakamKomy, ForeName, Father, Grandfathername, FamilyName, csles, alsaf, elqyed, ELEDARH, elohafza, school, dyana, activ1, activ2, Mother_name, elryada, Phone_number_Father, jopfathr, School_fees, email, el7alat5asa, mol7zat_a5saey, ahoayat, o5ra, mo7awal_in, mo7awal_in2, othredarh, othrsvhool, almo7afza, detalta7wyl, photo, datalaltak, 7alahsa7yaa, DISEASE, Blood_virtue, Specials_disease, address, eqyd_dat, ÍÞá1 ) " & vbCrLf & _ "SELECT TPstoudnt.id, TPstoudnt.RakamKomy, TPstoudnt.ForeName, TPstoudnt.Father, TPstoudnt.Grandfathername, TPstoudnt.FamilyName, TPstoudnt.csles, TPstoudnt.alsaf, TPstoudnt.elqyed, TPstoudnt.ELEDARH, TPstoudnt.elohafza, TPstoudnt.school, TPstoudnt.dyana, TPstoudnt.activ1, TPstoudnt.activ2, TPstoudnt.Mother_name, TPstoudnt.elryada, TPstoudnt.Phone_number_Father, TPstoudnt.jopfathr, TPstoudnt.School_fees, TPstoudnt.email, TPstoudnt.el7alat5asa, TPstoudnt.mol7zat_a5saey, TPstoudnt.ahoayat, TPstoudnt.o5ra, TPstoudnt.mo7awal_in, TPstoudnt.mo7awal_in2, TPstoudnt.othredarh, TPstoudnt.othrsvhool, TPstoudnt.almo7afza, TPstoudnt.detalta7wyl, TPstoudnt.photo, TPstoudnt.datalaltak, TPstoudnt.[7alahsa7yaa], TPstoudnt.DISEASE, TPstoudnt.Blood_virtue, TPstoudnt.Specials_disease, TPstoudnt.address, TPstoudnt.eqyd_dat, TPstoudnt.ÍÞá1 " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));" DoCmd.RunSQL "DELETE TPstoudnt.*, TPstoudnt.alsaf " & vbCrLf & _ "FROM TPstoudnt " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=6));" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 6 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=5))" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 5 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=4))" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 4 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=3))" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 3 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=2))" DoCmd.RunSQL "UPDATE TPstoudnt SET TPstoudnt.alsaf = 2 " & vbCrLf & _ "WHERE (((TPstoudnt.alsaf)=1))" DoCmd.SetWarnings True MsgBox "E?" End If

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