أبوبسمله

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

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

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

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

جرب التالى >=#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

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

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

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

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

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

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

بارك الله فيك يا أبو آلاء وفقك الله لما يحبه ويرضاه

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

دعنا نرى ونحاول معك اخى الكريم

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

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

بارك الله فيك ونفعنا بعلمك واجهتنى مشكله بعد استخدام الكود وهيا اذا تراجعت عن التسجيل وحبيت اقفل النموذج يعطينى رسالة خطأ بان الحقل خالى حاولت استخدام كود لاختنا ام عهود ولم ينجح معى فاترك اليك هذه المشكله لحلها ودمتم لفعل الخير If IsNull(Forms!FRMBianat.Form!Names) And IsNull(Forms!FRMBianat.Form!Kwmy) Then DoCmd.Close End If

العفو والشكر موصول لاخينا أبو آلاء من بدأ معك الحل بالتوفيق

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