[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

 wizards/source/access2base/DoCmd.xba |    5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

New commits:
commit bfbde8b4181907dd2ffdf02057dbe050a606b514
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Thu Nov 10 11:24:40 2016 +0100

    Access2Base - Comments review
    
    Change-Id: If7fb37a3656b55f7820698a59b8f1d8d8b14d594

diff --git a/wizards/source/access2base/DoCmd.xba b/wizards/source/access2base/DoCmd.xba
index d13bce6..fd64239 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() _