ابو عبدلله قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 بسم الله في المرفق جدول الطلاب وجدول درجاتهم ولكن عند اضافات الدرجات لكل طالب على حدى فإن رقم المادة يتابع بالتزايد لكل الطلاب فهل هناك طريقة نجعل فيها أرقام مواد كل طالب على حدى تبدأ من الواحد وتتابع بالتزايد مع احترامي وتقديري للجميع students.rar
jjafferr قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 ما شاء الله عليك أخي رضا ، من وينك لك الوقت لكل هذه البرامج تفضل جعفر 316.students.accdb.zip 1
ابو عبدلله قام بنشر ديسمبر 25, 2015 الكاتب قام بنشر ديسمبر 25, 2015 17 دقائق مضت, jjafferr said: ما شاء الله عليك أخي رضا ، من وينك لك الوقت لكل هذه البرامج تفضل بسم الله ماشاء الله عليك أستاذنا جعفر على هذه السرعة والبديهة زادك الله علماً وفضلاً مع احترامي وتقديري
jjafferr قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 آسف ، الكود وضعته في الحدث الخطأ الكود الصحيح الآن على حدث بعد التحديث من اسم المادة (يعني لما تدخل مادة جديدة ، وبعد ان تخرج من حقل اسم المادة ، يعطيك الرقم): Private Sub المادة_AfterUpdate() On Error GoTo err_المادة_AfterUpdate If Me.NewRecord = True Then Me.[رقم المادة] = Nz(DMax("[رقم المادة]", "الدرجة", "[رقم الطالب]=" & Me.[رقم الطالب]), 0) + 1 End If Exit Sub err_المادة_AfterUpdate: If Err.Number = 3075 Then 'No Subject Number Exit Sub Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub جعفر 316.students.accdb.zip
ابو عبدلله قام بنشر ديسمبر 25, 2015 الكاتب قام بنشر ديسمبر 25, 2015 8 دقائق مضت, jjafferr said: آسف ، الكود وضعته في الحدث الخطأ بسم الله بارك الله بك أخي الكريم جعفر ولا داعي للتأسف على العكس تماماً فانا من يجب عليه الاعتذار لأني أطلتُ عليك بأسئلتي فلقد طيقت وكل شي على ما يرام سؤلي الأخير عند الحذف من المواد للتعديل مثلاً تضيع الارقام ؟؟ مع احترامي وتقديري
jjafferr قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 هل انت تستخدم البرنامج الجديد او النسخة السابقة مع تعديل الكود؟ رجاء استخدم البرنامج الجديد. جعفر
ابو عبدلله قام بنشر ديسمبر 25, 2015 الكاتب قام بنشر ديسمبر 25, 2015 5 دقائق مضت, jjafferr said: هل انت تستخدم البرنامج الجديد او النسخة السابقة مع تعديل الكود؟ بسم الله استخدمت النسخة الجديدة أخي جعفر ؟؟
jjafferr قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 ما ادري ، يمكن بالغلط تركت لك النسخة القديمة جرب هذه النسخة لوسمحت جعفر 316.students.accdb.zip
ابو عبدلله قام بنشر ديسمبر 25, 2015 الكاتب قام بنشر ديسمبر 25, 2015 22 دقائق مضت, jjafferr said: ما ادري ، يمكن بالغلط تركت لك النسخة القديمة بسم الله أخي جعفر الملف تمام وكله شغال ولكن سؤالي كان عندما نريد حذف مادة او مواد من مواد طالب ما مرقمين بزيادة واحد واحد فإن ارقام المواد التي تم حذفها تبقى محجوزة مثلاً طالب ما لديه 4 مواد مرقمين 1 / 2 / 3 / 4 تم ولامر ما حذف مادة رقم 2 فإن ترقيم مواده يبقى 1 / 3 / 4 ؟؟؟؟؟ بارك الله بك على تحملي مع احترامي و تقديري
jjafferr قام بنشر ديسمبر 25, 2015 قام بنشر ديسمبر 25, 2015 13 دقائق مضت, mf_rida said: فإن ارقام المواد التي تم حذفها تبقى محجوزة مثلاً طالب ما لديه 4 مواد مرقمين 1 / 2 / 3 / 4 تم ولامر ما حذف مادة رقم 2 فإن ترقيم مواده يبقى 1 / 3 / 4 ؟؟؟؟؟ هذا الوصف واضح ، بينما الوصف السابق لم يكن تفضل نقوم بإعادة ترقيم [رقم المادة] كلما حدث حذف ، هكذا: Private Sub Form_AfterDelConfirm(Status As Integer) Dim rst As DAO.Recordset Set rst = Me.RecordsetClone rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 1 To RC rst.Edit rst![رقم المادة] = i rst.Update rst.MoveNext Next i End Sub جعفر 316.students.accdb.zip 4
ابو عبدلله قام بنشر ديسمبر 25, 2015 الكاتب قام بنشر ديسمبر 25, 2015 3 دقائق مضت, jjafferr said: هذا الوصف واضح ، بينما الوصف السابق لم يكن تفضل بسم الله وبارك الله لنا بك علم \\ تواضع // كرم ربنا لا يحرمنا منك مع احترامي ودعائي لك بكل خير
ابو عبدلله قام بنشر ديسمبر 31, 2015 الكاتب قام بنشر ديسمبر 31, 2015 (معدل) في ٢٦/١٢/٢٠١٥ at 16:34, jjafferr said: حياك الله بسم الله والف تحية لك استاذي جعفر بعد تجريب البرنامج ظهرت معي مشكلة ؟؟ عند كتابة مادة وضغط زر enter تختفي الكتابة المدخلة ولا ينتقل إلى سجل جديد ولكن عند كتابة المادة والانتقال بمؤشر الماوس يقوم بحفظ الكتابة المدخلة واعطاء رقم للمادة ؟؟ عند حذف مواد الطالب جميعها يعطي رسالة خطأ أرجو التوضيح عند فضاتك مع تقديري و احترامي تم تعديل ديسمبر 31, 2015 بواسطه mf_rida
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.