1cdf0e10cSrcweir<?xml version="1.0" encoding="UTF-8"?>
2cdf0e10cSrcweir
3cdf0e10cSrcweir
4*82a1df74SAndrew Rist<!--***********************************************************
5*82a1df74SAndrew Rist *
6*82a1df74SAndrew Rist * Licensed to the Apache Software Foundation (ASF) under one
7*82a1df74SAndrew Rist * or more contributor license agreements.  See the NOTICE file
8*82a1df74SAndrew Rist * distributed with this work for additional information
9*82a1df74SAndrew Rist * regarding copyright ownership.  The ASF licenses this file
10*82a1df74SAndrew Rist * to you under the Apache License, Version 2.0 (the
11*82a1df74SAndrew Rist * "License"); you may not use this file except in compliance
12*82a1df74SAndrew Rist * with the License.  You may obtain a copy of the License at
13*82a1df74SAndrew Rist *
14*82a1df74SAndrew Rist *   http://www.apache.org/licenses/LICENSE-2.0
15*82a1df74SAndrew Rist *
16*82a1df74SAndrew Rist * Unless required by applicable law or agreed to in writing,
17*82a1df74SAndrew Rist * software distributed under the License is distributed on an
18*82a1df74SAndrew Rist * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
19*82a1df74SAndrew Rist * KIND, either express or implied.  See the License for the
20*82a1df74SAndrew Rist * specific language governing permissions and limitations
21*82a1df74SAndrew Rist * under the License.
22*82a1df74SAndrew Rist *
23*82a1df74SAndrew Rist ***********************************************************-->
24*82a1df74SAndrew Rist
25*82a1df74SAndrew Rist
26cdf0e10cSrcweir
27cdf0e10cSrcweir<helpdocument version="1.0">
28cdf0e10cSrcweir<meta>
29cdf0e10cSrcweir<topic id="textsbasicshared03050500xml" indexer="include" status="PUBLISH">
30cdf0e10cSrcweir<title id="tit" xml-lang="en-US">On Error GoTo ... Resume Statement [Runtime]</title>
31cdf0e10cSrcweir<filename>/text/sbasic/shared/03050500.xhp</filename>
32cdf0e10cSrcweir</topic>
33cdf0e10cSrcweir</meta>
34cdf0e10cSrcweir<body>
35cdf0e10cSrcweir<section id="onerrorgotoresume">
36cdf0e10cSrcweir<bookmark xml-lang="en-US" branch="index" id="bm_id3146795"><bookmark_value>Resume Next parameter</bookmark_value>
37cdf0e10cSrcweir<bookmark_value>On Error GoTo ... Resume statement</bookmark_value>
38cdf0e10cSrcweir</bookmark>
39cdf0e10cSrcweir<paragraph role="heading" id="hd_id3146795" xml-lang="en-US" level="1" l10n="U" oldref="1"><link href="text/sbasic/shared/03050500.xhp" name="On Error GoTo ... Resume Statement [Runtime]">On Error GoTo ... Resume Statement [Runtime]</link></paragraph>
40cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3150358" xml-lang="en-US" l10n="U" oldref="2">Enables an error-handling routine after an error occurs, or resumes program execution.</paragraph>
41cdf0e10cSrcweir</section>
42cdf0e10cSrcweir<paragraph role="heading" id="hd_id3151212" xml-lang="en-US" level="2" l10n="U" oldref="3">Syntax:</paragraph>
43cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3145173" xml-lang="en-US" l10n="U" oldref="4">On {[Local] Error GoTo Labelname | GoTo 0 | Resume Next}</paragraph>
44cdf0e10cSrcweir<paragraph role="heading" id="hd_id3154125" xml-lang="en-US" level="2" l10n="U" oldref="5">Parameters:</paragraph>
45cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3150869" xml-lang="en-US" l10n="U" oldref="7"><emph>GoTo Labelname:</emph> If an error occurs, enables the error-handling routine that starts at the line "Labelname".</paragraph>
46cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3150439" xml-lang="en-US" l10n="U" oldref="8"><emph>Resume Next:</emph> If an error occurs, program execution continues with the statement that follows the statement in which the error occurred.</paragraph>
47cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149482" xml-lang="en-US" l10n="U" oldref="9"><emph>GoTo 0:</emph> Disables the error handler in the current procedure.</paragraph>
48cdf0e10cSrcweir
49cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149483" xml-lang="en-US" l10n="U" oldref="9"><emph>Local:</emph> "On error" is global in scope, and remains active until canceled by another "On error" statement. "On Local error" is local to the routine which invokes it. Local error handling overrides any previous global setting. When the invoking routine exits, the local error handling is canceled automatically, and any previous global setting is restored.</paragraph>
50cdf0e10cSrcweir
51cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3148619" xml-lang="en-US" l10n="CGH" oldref="10">The On Error GoTo statement is used to react to errors that occur in a macro.<comment>ufi: see i112231: The statement must be inserted at the start of a procedure (in a local error-handling routine) or at the start of a module.</comment></paragraph>
52cdf0e10cSrcweir<paragraph role="heading" id="hd_id3146985" xml-lang="en-US" level="2" l10n="U" oldref="11">Example:</paragraph>
53cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3152460" xml-lang="en-US" l10n="U" oldref="42">Sub ExampleReset</paragraph>
54cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3163712" xml-lang="en-US" l10n="U" oldref="43">On Error Goto ErrorHandler</paragraph>
55cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3146119" xml-lang="en-US" l10n="U" oldref="44">Dim iNumber As Integer</paragraph>
56cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3145749" xml-lang="en-US" l10n="U" oldref="45">Dim iCount As Integer</paragraph>
57cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153091" xml-lang="en-US" l10n="U" oldref="46">Dim sLine As String</paragraph>
58cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3148576" xml-lang="en-US" l10n="U" oldref="47">Dim aFile As String</paragraph>
59cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3147348" xml-lang="en-US" l10n="U" oldref="48">aFile = "c:\data.txt"</paragraph>
60cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3154944" xml-lang="en-US" l10n="U" oldref="50">iNumber = Freefile</paragraph>
61cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153158" xml-lang="en-US" l10n="U" oldref="51">Open aFile For Output As #iNumber</paragraph>
62cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153876" xml-lang="en-US" l10n="U" oldref="52">Print #iNumber, "This is a line of text"</paragraph>
63cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149581" xml-lang="en-US" l10n="U" oldref="53">Close #iNumber</paragraph>
64cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3155602" xml-lang="en-US" l10n="U" oldref="55">iNumber = Freefile</paragraph>
65cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153415" xml-lang="en-US" l10n="U" oldref="56">Open aFile For Input As iNumber</paragraph>
66cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3146970" xml-lang="en-US" l10n="U" oldref="57">For iCount = 1 to 5</paragraph>
67cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153707" xml-lang="en-US" l10n="U" oldref="58">Line Input #iNumber, sLine</paragraph>
68cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3156276" xml-lang="en-US" l10n="U" oldref="59">If sLine &lt;&gt;"" then</paragraph>
69cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3148993" xml-lang="en-US" l10n="U" oldref="60">rem</paragraph>
70cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3153764" xml-lang="en-US" l10n="U" oldref="61">end if</paragraph>
71cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3154754" xml-lang="en-US" l10n="U" oldref="62">Next iCount</paragraph>
72cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3159264" xml-lang="en-US" l10n="U" oldref="63">Close #iNumber</paragraph>
73cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3150042" xml-lang="en-US" l10n="U" oldref="64">Exit Sub</paragraph>
74cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3151251" xml-lang="en-US" l10n="U" oldref="65">ErrorHandler:</paragraph>
75cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149106" xml-lang="en-US" l10n="U" oldref="66">Reset</paragraph>
76cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3146916" xml-lang="en-US" l10n="U" oldref="67">MsgBox "All files will be closed",0,"Error"</paragraph>
77cdf0e10cSrcweir<paragraph role="paragraph" id="par_id3149568" xml-lang="en-US" l10n="U" oldref="68">End Sub</paragraph>
78cdf0e10cSrcweir</body>
79cdf0e10cSrcweir</helpdocument>
80