اريد عمل code في حالة تحقيق شرط

Dim stDocName As String

Dim stLinkCriteria As String

stDocName = "F1"

DoCmd.OpenForm stDocName, , , stLinkCriteria

تكلمة لسؤالي

الكود السابق هو كود لعملية فرز شخص معين في النموذج ، المطلوب عمل هذا الكود عن طريق الماكرو

اخي الطاير

لاادري ولكن اعتقد أن الكود السابق هو لفتح نموذج فقط بدون الفرز

اذا كان لديك مثال ترغب بتعديله أرجوا أن ترفقه وسوف نساعدك بما نستطيع إن شاء الله

اخيك أبو بندر

أخي أبو بندر جزاك الله خير على اهتمامك بي

وانا الحمد لله حاولت مع بعض الزملاء معي في العمل حتى وصلت للكود المطلوب وهو بسيط جداً فقد استغنيت عن الماكرو وكتبت الشرط والفرز بالأكواد

أخوك محمد الطاير