إضافة البيانات من نموذج

[عفرنس]

عند إضافة البيانات من النموذج تظهر في جدول Tasjil أرقام . 

TAQWEA.rar

تم تعديل ديسمبر 3, 2019 بواسطه emam1424

[أبوبسمله]

اخى الفاضل

عدل الكود ليصبح كالتالى

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

ان شاء الله يظبط معك

تقبل تحياتى

طبتم واهتديتم

[محمد أبوعبدالله]

تفضل اخي الكريم

TAQWEA_2.rar

تحياتي

[عفرنس]

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 تنزيلات

تحياتي

تم المطلوب

 شكر الله لك أستاذي العزيز

[عفرنس]

أرغب في إضافة رسالة تأكيد الحذف مع هذا الكود 

 

 

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

[محمد أبوعبدالله]

    If MsgBox("هل تريد حذف الطالب", vbYesNo, " تأكيد حذف") = vbNo Then
    
        Else
        
            strSQL = "DELETE [student].* FROM [student];"
            DoCmd.SetWarnings False
            DoCmd.RunSQL strSQL
            DoCmd.SetWarnings True
    
    End If

 

[عفرنس]

2 ساعات مضت, محمد ابوعبد الله said:

    If MsgBox("هل تريد حذف الطالب", vbYesNo, " تأكيد حذف") = vbNo Then
    
        Else
        
            strSQL = "DELETE [student].* FROM [student];"
            DoCmd.SetWarnings False
            DoCmd.RunSQL strSQL
            DoCmd.SetWarnings True
    
    End If

 

ربي يسعدك تم المطلوب بنجاح 

[أبوبسمله]

الحمدلله اللذى بنعمته تتم الصالحات

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

وجزاه الله خيرا اخى محمد على متابعته لنا

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

طبتم واهتديتم

[عفرنس]

9 دقائق مضت, أحمد الفلاحجى said:

الحمدلله اللذى بنعمته تتم الصالحات

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

وجزاه الله خيرا اخى محمد على متابعته لنا

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

طبتم واهتديتم

وإياك أخي الكريم ..

حقيقة وجدت هذا المنتدى جامعة فيها سعة الصدر وكريم الأخلاق ، ونفع الكل دون أي تذمر .. 

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

فجزى الله خيرا كل من أعان أخاه ( والله في عون العبد ما كان العبد في عون أخيه ) دمتم سالمين .. 

[أبوبسمله]

7 دقائق مضت, emam1424 said:

وإياك أخي الكريم ..

حقيقة وجدت هذا المنتدى جامعة فيها سعة الصدر وكريم الأخلاق ، ونفع الكل دون أي تذمر .. 

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

فجزى الله خيرا كل من أعان أخاه ( والله في عون العبد ما كان العبد في عون أخيه ) دمتم سالمين .. 

كلنا اخوه فالله وربنا يديم الحب فالله

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

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

طبتم واهتديتم

تم تعديل ديسمبر 4, 2019 بواسطه أحمد الفلاحجى