diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2016-11-10 11:24:40 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2016-11-10 11:24:40 +0100 |
| commit | bfbde8b4181907dd2ffdf02057dbe050a606b514 (patch) | |
| tree | 9bb2a4f68f0b7cac3659e557a146a460fce9cbf4 /wizards | |
| parent | 6f180d095e4c24564cd1b3fed28b4a8a523ca777 (diff) | |
Access2Base - Comments review
Change-Id: If7fb37a3656b55f7820698a59b8f1d8d8b14d594
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() _ |