wizards/source/access2base/DoCmd.xba | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-)
New commits: commit bfbde8b4181907dd2ffdf02057dbe050a606b514 Author: Jean-Pierre Ledure <[email protected]> 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() _ _______________________________________________ Libreoffice-commits mailing list [email protected] https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
