وعليكم السلام
تفضل اخي الكريم
Private Sub enter_Click()
If Me.fram1.Value = 2 Then
DoCmd.OpenForm "f_option1one", acNormal
ElseIf Me.fram1.Value = 3 Then
DoCmd.OpenForm "f_option1two", acNormal
ElseIf Me.fram1.Value = 5 Then
DoCmd.OpenForm "f_option2three", acNormal
ElseIf Me.fram1.Value = 6 Then
DoCmd.OpenForm "f_option2four", acNormal
ElseIf Me.fram2.Value = 7 Then
DoCmd.OpenForm "f_option3", acNormal
ElseIf Me.fram2.Value = 8 Then
DoCmd.OpenForm "f_option4", acNormal
ElseIf Me.fram2.Value = 9 Then
DoCmd.OpenForm "f_option5", acNormal
End If
Me.fram2 = 0
End Sub
عسى ان يكون هذا المطلوب
بالتوفيق