حذف عنصر من مربع تحرير وسرد

[abdullhadi999]

السلام عليكم ...

اريد كود حذف عنصر من مربع تحرير وسرد لاني حاولت ويحذفه من قاعدة البيانات ولكن يبقى في الكمبو بوكس . برفقه مثال . وجزاكم الله خيراً .

@أبو آدمDatabase3.accdb

[abdullhadi999]

تبقى كلمة #محذوف#

[أبو آدم]

أخي العزيز

بعد كود الحذف ضع العبارة

Me.Requery

 

[أبو آدم]

ليصبح الكود كاملا

Dim strSQL As String
Dim db As DAO.Database

strSQL = ("DELETE * FROM Tbl_State WHERE [country] = '" & Me.country.Value & "'")

CurrentDb.Execute strSQL
Me.Requery

 

[abdullhadi999]

الله يجزاك الجنة ياغالي . وكل عام وانت بخير وجميع اعضاء هذا المنتدى الرائع