عفرنس قام بنشر ديسمبر 3, 2019 مشاركة قام بنشر ديسمبر 3, 2019 (معدل) عند إضافة البيانات من النموذج تظهر في جدول Tasjil أرقام . TAQWEA.rar تم تعديل ديسمبر 3, 2019 بواسطه emam1424 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 3, 2019 مشاركة قام بنشر ديسمبر 3, 2019 اخى الفاضل عدل الكود ليصبح كالتالى Private Sub Command2_Click() 'Me.Tasjil.SetFocus 'DoCmd.GoToRecord , , acNewRec Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Tasjil.*FROM Tasjil;") Rs.AddNew Rs("StuName") = Me.ZStuName.Column(1) Rs("Teacher") = Me.ZTeacher.Column(1) Rs("Sub") = Me.ZSub.Column(1) Rs("Hessah") = Me.ZHessah.Column(1) Rs.Update Rs.Close Me.XStuName.Requery Me.Requery End Sub ان شاء الله يظبط معك تقبل تحياتى طبتم واهتديتم 1 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر ديسمبر 3, 2019 مشاركة قام بنشر ديسمبر 3, 2019 تفضل اخي الكريم TAQWEA_2.rar تحياتي 2 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر ديسمبر 4, 2019 الكاتب مشاركة قام بنشر ديسمبر 4, 2019 4 ساعات مضت, أحمد الفلاحجى said: اخى الفاضل عدل الكود ليصبح كالتالى Private Sub Command2_Click() 'Me.Tasjil.SetFocus 'DoCmd.GoToRecord , , acNewRec Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Tasjil.*FROM Tasjil;") Rs.AddNew Rs("StuName") = Me.ZStuName.Column(1) Rs("Teacher") = Me.ZTeacher.Column(1) Rs("Sub") = Me.ZSub.Column(1) Rs("Hessah") = Me.ZHessah.Column(1) Rs.Update Rs.Close Me.XStuName.Requery Me.Requery End Sub ان شاء الله يظبط معك تقبل تحياتى طبتم واهتديتم رائع .. تم المطلب شكر الله لك 5 ساعات مضت, محمد ابوعبد الله said: تفضل اخي الكريم TAQWEA_2.rar 30.44 kB · 2 تنزيلات تحياتي تم المطلوب شكر الله لك أستاذي العزيز 1 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر ديسمبر 4, 2019 الكاتب مشاركة قام بنشر ديسمبر 4, 2019 (معدل) أرغب في إضافة رسالة تأكيد الحذف مع هذا الكود Private Sub Command3_Click() Dim strSQL As String strSQL = "DELETE [student].* FROM [student];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End Sub تم تعديل ديسمبر 4, 2019 بواسطه emam1424 رابط هذا التعليق شارك More sharing options...
محمد أبوعبدالله قام بنشر ديسمبر 4, 2019 مشاركة قام بنشر ديسمبر 4, 2019 If MsgBox("هل تريد حذف الطالب", vbYesNo, " تأكيد حذف") = vbNo Then Else strSQL = "DELETE [student].* FROM [student];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If 2 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر ديسمبر 4, 2019 الكاتب مشاركة قام بنشر ديسمبر 4, 2019 2 ساعات مضت, محمد ابوعبد الله said: If MsgBox("هل تريد حذف الطالب", vbYesNo, " تأكيد حذف") = vbNo Then Else strSQL = "DELETE [student].* FROM [student];" DoCmd.SetWarnings False DoCmd.RunSQL strSQL DoCmd.SetWarnings True End If ربي يسعدك تم المطلوب بنجاح 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 4, 2019 مشاركة قام بنشر ديسمبر 4, 2019 الحمدلله اللذى بنعمته تتم الصالحات العفو اخى وجزاك الله خيرا والشكر لله سبحانه وتعالى وجزاه الله خيرا اخى محمد على متابعته لنا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم 1 رابط هذا التعليق شارك More sharing options...
عفرنس قام بنشر ديسمبر 4, 2019 الكاتب مشاركة قام بنشر ديسمبر 4, 2019 9 دقائق مضت, أحمد الفلاحجى said: الحمدلله اللذى بنعمته تتم الصالحات العفو اخى وجزاك الله خيرا والشكر لله سبحانه وتعالى وجزاه الله خيرا اخى محمد على متابعته لنا تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق طبتم واهتديتم وإياك أخي الكريم .. حقيقة وجدت هذا المنتدى جامعة فيها سعة الصدر وكريم الأخلاق ، ونفع الكل دون أي تذمر .. وفي الحقيقة أنا لست مبرمجا ولا أعرف في البرمجة إلا اسمها لكنها تأتيني أفكار لعمل برامج معينة أحتاجها في عملي كمعلم .. فأعمل على إنشاء جداول واستعلامات ونماذج وتقارير فإذا ما وصلت إلى عمل كود معين وقفت واتجهت إلى هذا المنتدى الرائع لأطرح مشكلتي فتنهال علي الحلول والإجابات . فجزى الله خيرا كل من أعان أخاه ( والله في عون العبد ما كان العبد في عون أخيه ) دمتم سالمين .. 1 رابط هذا التعليق شارك More sharing options...
أبوبسمله قام بنشر ديسمبر 4, 2019 مشاركة قام بنشر ديسمبر 4, 2019 (معدل) 7 دقائق مضت, emam1424 said: وإياك أخي الكريم .. حقيقة وجدت هذا المنتدى جامعة فيها سعة الصدر وكريم الأخلاق ، ونفع الكل دون أي تذمر .. وفي الحقيقة أنا لست مبرمجا ولا أعرف في البرمجة إلا اسمها لكنها تأتيني أفكار لعمل برامج معينة أحتاجها في عملي كمعلم .. فأعمل على إنشاء جداول واستعلامات ونماذج وتقارير فإذا ما وصلت إلى عمل كود معين وقفت واتجهت إلى هذا المنتدى الرائع لأطرح مشكلتي فتنهال علي الحلول والإجابات . فجزى الله خيرا كل من أعان أخاه ( والله في عون العبد ما كان العبد في عون أخيه ) دمتم سالمين .. كلنا اخوه فالله وربنا يديم الحب فالله نتعلم من بعضنا البعض واخوتنا واساتذتنا الافاضل لا يبخلون علينا بعلمهم بفضل الله ونسال الله لهم ان يكون فى ميزان حسناتهم وان يجزيهم كل خير تقبل تحياتى استاذ امام وبالتوفيق وان شاء الله هتتعلم وتفيد اخوتك بما تعلمته باذن الله طبتم واهتديتم تم تعديل ديسمبر 4, 2019 بواسطه أحمد الفلاحجى 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان