أخى الفاضل لم أقصد ذلك
لكنى حاولت أن يكون اسم خانة الاختيار " و ليس قيمتها" هو نفسه اسم النموذج المراد فتحه
و إن توصلنا للمطلوب بجملة select case المعتمدة على قيمة خانة الاختيار
أما التقارير فلم تعمل معى مطلقا
مع الشكر
انا كنت عامل كده فعلا فى الاول
والاستاذ رمهان قال ممكن نختزل الكود
دا الكود الاول
Private Sub AllForms_AfterUpdate()
If allforms = 1 Then
FRM.SourceObject = "frm0"
ElseIf allforms = 2 Then
FRM.SourceObject = "frm1"
ElseIf allforms = 3 Then
FRM.SourceObject = "frm2"
ElseIf allforms = 4 Then
FRM.SourceObject = "frm3"
End If
End Sub
وده اختزال الكود زى ما قال الاستاذ رمهان
Private Sub forms_AfterUpdate()
FRM.SourceObject = "frm" & forms
End Sub