كيف يمكن اجراء التبادل بين الصفحات في النموذج

محدش عنده حل

ماشي ميضرش :wacko: B) B) B) B)

ضع هذا الكود في حدث بعد التحديت للقائمة المنسدلة

Private Sub Branch_AfterUpdate()
Select Case Branch
Case Is = "الافراد"
Me.TabCtl1.pages!الافراد.SetFocus

Case Is = "الشركات"
Me.TabCtl1.pages!الشركات.SetFocus
End Select
End Sub

المثال بعد تعديله

pages.rar

اخي العزيز

الف شكر

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

تمام الله ينور عليك