diff options
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/DoCmd.xba | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba index d13bce69b93e..fd6423963063 100644 --- a/wizards/source/access2base/DoCmd.xba +++ b/wizards/source/access2base/DoCmd.xba @@ -855,7 +855,7 @@ Public Function GoToRecord(Optional ByVal pvObjectType As Variant _ , Optional ByVal pvOffset As Variant _ ) As Boolean -'Move to record indicated by pvRecord in the object designated by pvObjectType (MUST BE acDataForm) +'Move to record indicated by pvRecord/pvOffset in the window designated by pvObjectType and pvObjectName If _ErrorHandler() Then On Local Error Goto Error_Function GoToRecord = False @@ -864,9 +864,6 @@ Const cstThisSub = "GoTorecord" Utils._SetCalledSub(cstThisSub) If IsMissing(pvObjectName) Then pvObjectName = "" If IsMissing(pvObjectType) Then pvObjectType = acActiveDataObject -' If IsMissing(pvObjectType) Then -' If pvObjectName <> "" Then pvObjectType = acDataForm Else pvObjectType = acActiveDataObject -' End If If IsMissing(pvRecord) Then pvRecord = acNext If IsMissing(pvOffset) Then pvOffset = 1 If Not (Utils._CheckArgument(pvObjectType, 1, Utils._AddNumeric() _ |