وعليكم السلام استاذ عمر
استخدم الكود التالي وهو واضح لايحتاج لشرح
If Me.mySuform.Form.CurrentView = 1 Then
Me.mySuform.SetFocus
DoCmd.RunCommand acCmdDatasheetView
Exit Sub
End If
If Me.mySuform.Form.CurrentView = 2 Then
Me.mySuform.SetFocus
DoCmd.RunCommand acCmdFormView
Exit Sub
End If
ويمكنك ان تستخدم الكود التالي من داخل النموذج الرئيسي فيتحول المستمر الى datasheet
لكن المشكلة انك يجب ان تغلق النموذج حتى يعود لسيرته الاولى
Me.mySuform.SetFocus
DoCmd.RunCommand acCmdDatasheetView