[AccessD] Error Traps - Question for Colby

Hi Rocky:

There has to be a With statement with the select components or it wouldn't
work. There must be a few lines of code missing. I would suspect that a
variable would be passed without using the return statement. I use to use a
lot of 'types' as they were great for passing a mixed groups of
variables...when only returning a single variable a return statement is just
fine. 

Note: that this is air code

Example:

Option Explicit

Public Type Main_Error_type
    strProcKind as String
    lngProcKind as long
    ...	
End Type

Public Function HandleErrorCode() as string
    Dim Error_type As Main_Error_type

    'GET THE STRING THAT REPRESENTS THE PROCEDURE TYPE
    With Error_type
        Select Case .lngProcKind
        Case vbext_pk_Get
            .strProcKind = "Get"
        Case vbext_pk_Let
            .strProcKind = "Let"
        Case vbext_pk_Set
            .strProcKind = "Set"
        Case vbext_pk_Proc
            If InStr(.strProcDecl, "Sub") = 0 Then
                .strProcKind = "Function"
            Else
                .strProcKind = "Sub"
            End If
        Case Else
        End Select
    End with

    ...

End Function

Jim

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Sunday, May 12, 2013 9:03 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Error Traps - Question for Colby

P.S.  If I comment out all the lines in the Select Case the app compiles OK.

R
 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: May 12, 2013 8:36 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Error Traps - Question for Colby

JC:
 
I'm using your error module builder to put error traps into an app for a
client.  I haven't used it for years but it always worked in the past.  Now
I'm getting a compile error in this new app
 
Compile error variable not defined.  and vbext_pk_Getis highlighted in

 
'GET THE STRING THAT REPRESENTS THE PROCEDURE TYPE
        Select Case .lngProcKind
        Case vbext_pk_Get
            .strProcKind = "Get"
        Case vbext_pk_Let
            .strProcKind = "Let"
        Case vbext_pk_Set
            .strProcKind = "Set"
        Case vbext_pk_Proc
            If InStr(.strProcDecl, "Sub") = 0 Then
                .strProcKind = "Function"
            Else
                .strProcKind = "Sub"
            End If
        Case Else
        End Select

But I can't find any other reference to vbext_pk_Get even in an old app
where the code works and compiles correctly.
 
Do yo know what might be the problem?
 
Thanks and regards,
 
Rocky Smolin
Beach Access Software
858-259-4334
www.bchacc.com <http://www.bchacc.com/> www.e-z-mrp.com
<http://www.e-z-mrp.com/>
Skype: rocky.smolin
 
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com