Ggtcf

What's the 'present simple' form of the word "нашла́" in 3rd person singular female?

How to draw dashed arc of a circle behind pyramid?

Which classes are needed to have access to every spell in the PHB?

Signed and unsigned numbers

Can I use a violin G string for D?

Shifting between bemols (flats) and diesis (sharps)in the key signature

how to modify custom status text color in UI component grid magento 2?

Can one live in the U.S. and not use a credit card?

Why is there an extra space when I type "ls" in the Desktop directory?

For which categories of spectra is there an explicit description of the fibrant objects via lifting properties?

What materials can be used to make a humanoid skin warm?

After `ssh` without `-X` to a machine, is it possible to change `$DISPLAY` to make it work like `ssh -X`?

Did Amazon pay $0 in taxes last year?

How do we create new idioms and use them in a novel?

Recommendation letter by significant other if you worked with them professionally?

Rationale to prefer local variables over instance variables?

Is a piano played in the same way as a harmonium?

What can I do if someone tampers with my SSH public key?

What problems would a superhuman have whose skin is constantly hot?

How can I manipulate the output of Information?

Doubts in understanding some concepts of potential energy

Why do phishing e-mails use faked e-mail addresses instead of the real one?

How do spaceships determine each other's mass in space?

Why couldn't the separatists legally leave the Republic?

Access VBA exit a called sub and skip the rest of the sub

0

I have a sub CreaNewT as below to create a new table. In CreatNewT I call a public sub ChecTabl to check if this table exists already.

Sub CreaNewT()

Dim ...
Dim ...

Call ChecTabl("TableName")
...

In ChecTabl I have

Dim TS As TableDefs
Dim T As TableDef

Set TS = CurrentDb.TableDefs

For Each T In TS
 If T.Name = Str_Tabl Then
 MsgBox "This table already exists. Please choose another table name.", vbOKOnly
 Exit Sub
 End If
Next

I wrote Exit Sub because I would like to exit ChecTabl and the sub that calls it if this table already exists. However, it only stops executing ChecTabl and continues with the rest of CreaNewT. How I can code so that it stops executing ChecTabl and the sub that calls it? Thanks

vba exit

share|improve this question

asked Mar 7 at 5:17

davidzxc574davidzxc574

679

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Make ChecTabl a function and return False if the table already exists.
  
  – Tim Williams
  Mar 7 at 5:30
  

  
  
  
  

add a comment | 

0

I have a sub CreaNewT as below to create a new table. In CreatNewT I call a public sub ChecTabl to check if this table exists already.

Sub CreaNewT()

Dim ...
Dim ...

Call ChecTabl("TableName")
...

In ChecTabl I have

Dim TS As TableDefs
Dim T As TableDef

Set TS = CurrentDb.TableDefs

For Each T In TS
 If T.Name = Str_Tabl Then
 MsgBox "This table already exists. Please choose another table name.", vbOKOnly
 Exit Sub
 End If
Next

I wrote Exit Sub because I would like to exit ChecTabl and the sub that calls it if this table already exists. However, it only stops executing ChecTabl and continues with the rest of CreaNewT. How I can code so that it stops executing ChecTabl and the sub that calls it? Thanks

vba exit

share|improve this question

asked Mar 7 at 5:17

davidzxc574davidzxc574

679

• 
  
  
  

  
  1
  

  
  
  
  
  
  

  
  
  Make ChecTabl a function and return False if the table already exists.
  
  – Tim Williams
  Mar 7 at 5:30
  

  
  
  
  

add a comment | 

I have a sub CreaNewT as below to create a new table. In CreatNewT I call a public sub ChecTabl to check if this table exists already.

Sub CreaNewT()

Dim ...
Dim ...

Call ChecTabl("TableName")
...

In ChecTabl I have

Dim TS As TableDefs
Dim T As TableDef

Set TS = CurrentDb.TableDefs

For Each T In TS
 If T.Name = Str_Tabl Then
 MsgBox "This table already exists. Please choose another table name.", vbOKOnly
 Exit Sub
 End If
Next

I wrote Exit Sub because I would like to exit ChecTabl and the sub that calls it if this table already exists. However, it only stops executing ChecTabl and continues with the rest of CreaNewT. How I can code so that it stops executing ChecTabl and the sub that calls it? Thanks

vba exit

share|improve this question

asked Mar 7 at 5:17

davidzxc574davidzxc574

679

Sub CreaNewT()

Dim ...
Dim ...

Call ChecTabl("TableName")
...

Dim TS As TableDefs
Dim T As TableDef

Set TS = CurrentDb.TableDefs

For Each T In TS
 If T.Name = Str_Tabl Then
 MsgBox "This table already exists. Please choose another table name.", vbOKOnly
 Exit Sub
 End If
Next

share|improve this question

asked Mar 7 at 5:17

davidzxc574davidzxc574

679

share|improve this question

asked Mar 7 at 5:17

davidzxc574davidzxc574

679

asked Mar 7 at 5:17

davidzxc574davidzxc574

679

asked Mar 7 at 5:17

davidzxc574davidzxc574

679

1 Answer
1

active

oldest

votes

0

Thanks Tim, I changed ChecTabl into a boolean function. I can check its returned value and decide whether to exit the sub that calls this function.

Public Function ChecTabl(Str_Tabl As String) As Boolean

 Dim TS As TableDefs
 Dim T As TableDef

 Set TS = CurrentDb.TableDefs

 For Each T In TS
 If T.Name = Str_Tabl Then
 MsgBox "This table already exists. Please choose another table name.", vbOKOnly
 ChecTabl = True
 Exit Function
 End If
 Next

 ChecTabl = False

Exit_Func:
 Set TS = Nothing
 Set T = Nothing

End Function

share|improve this answer

answered Mar 8 at 2:31

davidzxc574davidzxc574

679

add a comment | 

Your Answer

StackExchange.ifUsing("editor", function ()
StackExchange.using("externalEditor", function ()
StackExchange.using("snippets", function ()
StackExchange.snippets.init();
);
);
, "code-snippets");

StackExchange.ready(function()
var channelOptions =
tags: "".split(" "),
id: "1"
;
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function()
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled)
StackExchange.using("snippets", function()
createEditor();
);

else
createEditor();

);

function createEditor()
StackExchange.prepareEditor(
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader:
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
,
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
);



);

draft saved

draft discarded

Sign up or log in

StackExchange.ready(function ()
StackExchange.helpers.onClickDraftSave('#login-link');
);

Sign up using Google

Sign up using Facebook

Sign up using Email and Password

Post as a guest

Name

Email

Required, but never shown

StackExchange.ready(
function ()
StackExchange.openid.initPostLogin('.new-post-login', 'https%3a%2f%2fstackoverflow.com%2fquestions%2f55036558%2faccess-vba-exit-a-called-sub-and-skip-the-rest-of-the-sub%23new-answer', 'question_page');

);

Post as a guest

Name

Email

Required, but never shown

0

Thanks Tim, I changed ChecTabl into a boolean function. I can check its returned value and decide whether to exit the sub that calls this function.

Public Function ChecTabl(Str_Tabl As String) As Boolean

 Dim TS As TableDefs
 Dim T As TableDef

 Set TS = CurrentDb.TableDefs

 For Each T In TS
 If T.Name = Str_Tabl Then
 MsgBox "This table already exists. Please choose another table name.", vbOKOnly
 ChecTabl = True
 Exit Function
 End If
 Next

 ChecTabl = False

Exit_Func:
 Set TS = Nothing
 Set T = Nothing

End Function

share|improve this answer

answered Mar 8 at 2:31

davidzxc574davidzxc574

679

add a comment | 

0

Thanks Tim, I changed ChecTabl into a boolean function. I can check its returned value and decide whether to exit the sub that calls this function.

Public Function ChecTabl(Str_Tabl As String) As Boolean

 Dim TS As TableDefs
 Dim T As TableDef

 Set TS = CurrentDb.TableDefs

 For Each T In TS
 If T.Name = Str_Tabl Then
 MsgBox "This table already exists. Please choose another table name.", vbOKOnly
 ChecTabl = True
 Exit Function
 End If
 Next

 ChecTabl = False

Exit_Func:
 Set TS = Nothing
 Set T = Nothing

End Function

share|improve this answer

answered Mar 8 at 2:31

davidzxc574davidzxc574

679

add a comment | 

Thanks Tim, I changed ChecTabl into a boolean function. I can check its returned value and decide whether to exit the sub that calls this function.

Public Function ChecTabl(Str_Tabl As String) As Boolean

 Dim TS As TableDefs
 Dim T As TableDef

 Set TS = CurrentDb.TableDefs

 For Each T In TS
 If T.Name = Str_Tabl Then
 MsgBox "This table already exists. Please choose another table name.", vbOKOnly
 ChecTabl = True
 Exit Function
 End If
 Next

 ChecTabl = False

Exit_Func:
 Set TS = Nothing
 Set T = Nothing

End Function

share|improve this answer

answered Mar 8 at 2:31

davidzxc574davidzxc574

679

Public Function ChecTabl(Str_Tabl As String) As Boolean

 Dim TS As TableDefs
 Dim T As TableDef

 Set TS = CurrentDb.TableDefs

 For Each T In TS
 If T.Name = Str_Tabl Then
 MsgBox "This table already exists. Please choose another table name.", vbOKOnly
 ChecTabl = True
 Exit Function
 End If
 Next

 ChecTabl = False

Exit_Func:
 Set TS = Nothing
 Set T = Nothing

End Function

share|improve this answer

answered Mar 8 at 2:31

davidzxc574davidzxc574

679

answered Mar 8 at 2:31

davidzxc574davidzxc574

679

answered Mar 8 at 2:31

davidzxc574davidzxc574

679