Hi,
I have the following code attached to several subforms.
Private Sub viewCommStratBtn_Click()
On Error GoTo Err_viewCommStratBtn_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ITSCommStratsFrm"
stLinkCriteria = "[ITSCommStratsID]=" & Me![ITSCommStratsID]
Me.Refresh
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_viewCommStratBtn_Click:
Exit Sub
Err_viewCommStratBtn_Click:
MsgBox Err.Description
Resume Exit_viewCommStratBtn_Click
End Sub
"Me.Refresh" gives me the following compiling error:
"Method or data member not found"
Note that the code works.
Thanks.
Cheers,
John
I have the following code attached to several subforms.
Private Sub viewCommStratBtn_Click()
On Error GoTo Err_viewCommStratBtn_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ITSCommStratsFrm"
stLinkCriteria = "[ITSCommStratsID]=" & Me![ITSCommStratsID]
Me.Refresh
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_viewCommStratBtn_Click:
Exit Sub
Err_viewCommStratBtn_Click:
MsgBox Err.Description
Resume Exit_viewCommStratBtn_Click
End Sub
"Me.Refresh" gives me the following compiling error:
"Method or data member not found"
Note that the code works.
Thanks.
Cheers,
John