اذهب الي المحتوي
أوفيسنا

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


إذهب إلى أفضل إجابة Solved by ابو البشر,

الردود الموصى بها

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

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

المطلوب ..

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

 

test.accdb

تم تعديل بواسطه محمد عبد الله ٢
رابط هذا التعليق
شارك

  • أفضل إجابة

تفضل .....

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

  • Like 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information