Run-time error '5'

[shanesullaway via AccessMonster.com]

I have a function that I am trying to massage a little and keep getting the
error listed in my subject line. "Invalid procedure or argument." I am
listing part of the code below (I think if will be enough to get the problem
across but let me know if I need to show more of it) I am trying to use the
Tag property of controls on my form to communicate a couple pieces of
information to me separated by a ";" Any help will be appreciated. stTag is
where Access points to having a problem.

Code:


Dim ctl As Access.Control
Dim strErrCtlName As String
Dim strErrorMessage As String
Dim lngErrCtlTabIndex As Long
Dim blnNoValue As Boolean

lngErrCtlTabIndex = 99999999 'more than max #controls

For Each ctl In frm.Controls
With ctl
Select Case .ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox
Dim stTag As String
stTag = Left(.Tag, InStr(.Tag, ";") - 1)

TIA,
Shane

 

[John W. Vinson]

I have a function that I am trying to massage a little and keep getting the
error listed in my subject line. "Invalid procedure or argument." I am
listing part of the code below (I think if will be enough to get the problem
across but let me know if I need to show more of it) I am trying to use the
Tag property of controls on my form to communicate a couple pieces of
information to me separated by a ";" Any help will be appreciated. stTag is
where Access points to having a problem.

Code:


Dim ctl As Access.Control
Dim strErrCtlName As String
Dim strErrorMessage As String
Dim lngErrCtlTabIndex As Long
Dim blnNoValue As Boolean

lngErrCtlTabIndex = 99999999 'more than max #controls

For Each ctl In frm.Controls
With ctl
Select Case .ControlType
Case acTextBox, acComboBox, acListBox, acCheckBox
Dim stTag As String
stTag = Left(.Tag, InStr(.Tag, ";") - 1)

TIA,
Shane

You'll get an error like this if Tag is null or does not contain a semicolon.

 

[shanesullaway via AccessMonster.com]

Thanks for your reply Mr. Vinson. Could I go one step further and ask you
for suggestions on how to trap for both of those cases?

Thanks,
Shane

I have a function that I am trying to massage a little and keep getting the
error listed in my subject line. "Invalid procedure or argument." I am

[quoted text clipped - 23 lines]

TIA,
Shane

You'll get an error like this if Tag is null or does not contain a semicolon.

 

[John W. Vinson]

Thanks for your reply Mr. Vinson. Could I go one step further and ask you
for suggestions on how to trap for both of those cases?

Just check first:
IIF(InStr(.tag & "", ";") > 0 Then
stTag = Left(.Tag, InStr(.Tag, ";") - 1)
End If

 

[shanesullaway via AccessMonster.com]

Thank you Mr. Vinson, I will give it a try. I really appreciate your help.

Shane