If IsNull(.组合_性别) = False And IsNull(.组合_年级) = False Then
Select Case .组合_性别 & .组合_年级
Case "男大一"
MsgBox "进入大一男生界面"
DoCmd.OpenForm "大一男生界面"
Case "男大二"
MsgBox "进入大二男生界面"
DoCmd.OpenForm "大二男生界面"
Case "女大二"
MsgBox "进入大二女生界面"
DoCmd.OpenForm "大二女生界面"
End Select