أبوبسمله

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

ثوانى

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

اتفضل اخى ابو ادم 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

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

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

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

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

بعد بحث وعناء فى تركيب الداله والحمد لله تمت بفضل الله احببت ان اضع مثال للفائده للمبتدئين امثالى بالتوفيق للجميع SNum.rar

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

اخى سلمان لك وحشه ياغالى وفقك الله راجع الرابط التالى وفيه ستجد ارسال نسخة احتياطيه للايميل وهو من انتاج اخواننا بالمنتدى بارك الله فيهم وعساهم بخير http://www.officena.net/ib/index.php?showtopic=41784&p=237918

بارك الله فيك اخى ابو آدم وطال عمرك وبشرك بالخير واراحك من الهم والغم كما تريح السائلين وفقكم الله وكل اخوانى واخواتى اللذين احببتهم هنا وهناك عن ظهر الغيب لا يعلمهم الا الله سبحانه

ارفق المثال بصيغة 2003 ليتسنى للجميع بالمشاركه بالتوفيق