إدراج قيمة من مربع قائمة

[محمد عبد الله ٢]

السلام عليكم و رحمة الله و بركاته

تحياتي لكم أساتذتي الكرام 

المطلوب ..

عند النقر على قيمة داخل مربع القائمة يتم إضافة القيمة الى الجدول my_q  و مسح القيمة من القائمة 

 

test.accdb

تم تعديل يناير 4, 2021 بواسطه محمد عبد الله ٢

[محمد عبد الله ٢]

للرفع

[ابو البشر]

تفضل .....

Me.an = Me.القائمة27.Column(1)
Me.an1 = Me.القائمة27.Column(2)
Me.an2 = Me.القائمة27.Column(3)
Dim db As DAO.Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("my_q")
             rs.AddNew
             rs!a = Me.القائمة27.Column(1)
             rs!b = Me.القائمة27.Column(2)
             rs!c = Me.القائمة27.Column(3)
             rs!h = Me.المعرف
             rs.Update
             rs.Close
       Set rs = Nothing
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE w.q, w.w, w.e  FROM w  WHERE (((w.q)=[forms]![my_z]![an]) AND ((w.w)=[forms]![my_z]![an1]) AND ((w.e)=[forms]![my_z]![an2]));"
DoCmd.SetWarnings True
     MsgBox "تم اضافة البيانات", vbInformation
DoCmd.Requery

استخدمنا هذا الكود ....

 

test (12).accdb

[محمد عبد الله ٢]

بارك الله بك أستاذي الكريم , تم المطلوب