و عليكم السلام ...
يا اخي حاولت و لم افلح بالماكرو ...
فقط بالكود ...
Private Sub A1_AfterUpdate()
If A1 >= DLookup("[j1]", "q2", " Forms![S1M]![اسم الطالب] = [اسم الطالب]") And A1 <= DLookup("[j11]", "q2", " Forms![S1M]![اسم الطالب] = [اسم الطالب]") Then
DoCmd.OpenForm "worn", acNormal
End If
End Sub