تحديث عن طريق زر

[اسلام يونس]

DoCmd.SearchForRecord , "", acFirst, "[ID] = " & Str(Nz(Screen.ActiveControl, 0))

الكود يعمل فقط بعد تحديث الليست بوكس

اريد ان يعمل عن طريق الليست بوكست وزر

 

[ابو جودي]

ممكن المرفق

[اسلام يونس]

تم ارفاق الملف شكرا ليك

1.mdb

[اسلام يونس]

ارجو المساعدة

[ابو جودي]

لنفترض اسم الكائن الذى يعمل معه الكود هو   ....x

و ..... هى الحدث الذ ى يعمل من خلاله الكود

وتريد ان يعمل الكود نفسه على زر امر اكتب اللمر التالى   ....call x 

 

المرفق لا يعمل وبصراحة انا مافهمت منه شئ