أبوبسمله

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

قبل التحميل طبعا ينال إعجابى لدى مكتبة للتواريخ سارفقها لكم يالغالى ولكن أحببت ان اضع اشياء بسيطه احتجت اليها فاحببت ان اشارك اخوتى المبتدئين امثالى اياها لما لها من اهميه فى بعض الامور بالتوفيق اخى سليم ونسال الله لكم الاجر ولكل اساتذتنا ومعلمينا هنا وهناك ومن يساعدون كل طلاب العلم ياريت لو تضع الملف بتسيق 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

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

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

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

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

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