Private Sub Command1_Click()
Dim stOpenArgs as String
Dim stDocName as String
Dim stLinkCriteria as String
stOpenArgs = "0" [COLOR=green] 'for Tab1 [/color]
stDocName = "subFormName" [COLOR=green] 'name of subform [/color]
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , stOpenArgs
End Sub
Private Sub Command2_Click()
Dim stOpenArgs as String
Dim stDocName as String
Dim stLinkCriteria as String
stOpenArgs = "1" [COLOR=green] 'for Tab2 [/color]
stDocName = "subFormName" [COLOR=green]'name of subform[/color]
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , stOpenArgs
End Sub