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

[ebrahim1400]

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

اريد عند الضغط على زر botton1 يتم حذف عنصر او اسم من قائمة مربع تحرير وسرد وكذلك عند الضغط على زر botton2 يتم اضافة عنصر او اسم في قائمة مربع تحرير وسرد وذلك عن طريق الكود إن أمكن وذلك من اجل الفائدة ومن اجل يستفيد كل من في المنتدى 

وجزاكم الله الف خير 

Database9.rar

[رمهان]

مرحبا اخ ابراهيم

هل تريد الاحتفاظ بالتغيرات ( الحذف او الاضافة ) حتى عند غلق النموذج واعادة فتحه ؟ ام تريد التغيرات اثناء عمل النموذج فقط وعند الاغلاق وفتحه مرة اخرى ترجع البيانات بالقائمة كما كانت اي تعود القائمة الاساسية ؟

 

بالتوفيق

[ebrahim1400]

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

شكرا اخي رمهان على الرد 

والله يجعلها في موازين حسناتك وانا ثقلت عليك كثير 

نعم اخي رمهان اريد الأحتفاظ بها حتى عند الإغلاق وإعادة الفتح 

ولك مني اجمل تحية ..

[ebrahim1400]

ارجوا يا اخوان من لديه معلومة عن ذلك يفيدنا بارك الله فيكم

[رمهان]

معليش على التاخر اولا ! لانشغالي جدا ! والتاسف الاخر على نقص الفهم  للسؤال  :

بعد قراء السؤال مرة اخرى لدي استفسارين :

1. لديك السرد ma1  به عناصر ! تريد ان تحدد العنصر ثم حذف ! تمام ! هل الحذف فقط من قائمة ma1 !

جرب هذا الامر :

Private Sub botton1_Click()
ma1.RemoveItem ma1.Value: ma1 = ""
End Sub

ام هناك طلب اكثر !

2. بالنسبة للاضافة :  ماهو مصدر الاضافة ؟ هل رسالة تظهر inputbox  ام ياخذ الاضافة حسب النص المختار من ma3 !

حسب الفهم الاخير جرب :

Private Sub botton2_Click()
ma1.AddItem ma3.Value
End Sub

وعذرا قد يكون هذا الاسبوع منشغل قليلا !

[ebrahim1400]

اخي رمهان يا أمير جزاك الله الف خير 

بالنسبة للأضافة لقد اضافت حقل بإسم ma5 وزر botton3 اخر لإظهار رسالة inputbox  يعطيني اضافة عنصر في ma3

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

 

 

Database9.rar

[رمهان]

جرب الاكواد التالية :

Private Sub botton3_Click()
ma3.AddItem InputBox("ادخل نصاً ")
End Sub

 

Private Sub botton2_Click()
ma3.AddItem ma5
End Sub

تحياتي

[ebrahim1400]

يا شيخ والله انك أمير وموسوعة في الأكسس 

ما شاء الله تبارك الله فيك والله يجزيك ويجزي والديك الجنة . 

لكن عندي طلب . هل تسمح لي  اناديك بـ ( أمــــــ الأكسس يـــــــــر ) ولا لا ؟؟

الشيء الثاني :

كيف يتم حفظ التعديل او العمل في حال تم ( الحذف , والأضافة ) في مربع التحرير والسرد  وجزاك الله الف خير .

[رمهان]

كلك ذوق اخ ابراهيم ومشكور على كلامك الطيب

وكذا راح تخلينا نتفلسف حبتين !

سؤالك كان به تريك بسيط !

فهل ياترى الحل التالي يعدينا التريك ويكون مرضي لك ام لا ؟ :

جرب التالي:

Private Sub botton3_Click()
On Error GoTo 10
ma3.AddItem InputBox("ادخل نصاً ")
ma3.SetFocus
DoCmd.RunCommand acCmdEditListItems
10: DoCmd.Save
End Sub

Private Sub botton2_Click()
On Error GoTo 10
ma3.AddItem ma5
ma3.SetFocus
DoCmd.RunCommand acCmdEditListItems
10: DoCmd.Save
End Sub

بالتوفيق

[ebrahim1400]

يا شيخ إنت مدرسة والله 

كثر خير الف .

وانت معلم ومنك نتعلم ..... نستكت وإنت موجود ما نرضى ......... نتكلم ؟؟؟ 

وانا تلميذك ....

 

[رمهان]