محمد عبد الله ٢ قام بنشر يناير 4, 2021 مشاركة قام بنشر يناير 4, 2021 (معدل) السلام عليكم و رحمة الله و بركاته تحياتي لكم أساتذتي الكرام المطلوب .. عند النقر على قيمة داخل مربع القائمة يتم إضافة القيمة الى الجدول my_q و مسح القيمة من القائمة test.accdb تم تعديل يناير 4, 2021 بواسطه محمد عبد الله ٢ رابط هذا التعليق شارك More sharing options...
محمد عبد الله ٢ قام بنشر يناير 4, 2021 الكاتب مشاركة قام بنشر يناير 4, 2021 للرفع رابط هذا التعليق شارك More sharing options...
أفضل إجابة ابو البشر قام بنشر يناير 4, 2021 أفضل إجابة مشاركة قام بنشر يناير 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 1 رابط هذا التعليق شارك More sharing options...
محمد عبد الله ٢ قام بنشر يناير 4, 2021 الكاتب مشاركة قام بنشر يناير 4, 2021 بارك الله بك أستاذي الكريم , تم المطلوب رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان