[AccessD] Protecting a subform with password

Jim DeMarco and Jim Lawrence,
thank's for your help

Be well
kostas

----- Original Message ----- 
From: "Jim Lawrence (AccessD)" <accessd at shaw.ca>
To: "Access Developers discussion and problem solving" 
<accessd at databaseadvisors.com>
Sent: Tuesday, September 07, 2004 8:46 PM
Subject: RE: [AccessD] Protecting a subform with password


> Hi Kostas:
>
> It is not possible to hide the line of code in an uncompiled DB, (MDB). 
> You
> can compile the DB is compiled into a MDE file and therefore blocking
> viewing access to all the source.
>
> HTH
> Jim
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Kostas
> Konstantinidis
> Sent: Tuesday, September 07, 2004 6:25 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Protecting a subform with password
>
>
> Hi group,
> thank's all for your response to my question
> I tried the follown (which seems to work) and was wondering if it could be
> possible and how to hide the line "Level0Pass = "123""
> making it unreadable e.g. instead of 123 to appear ***
> thank you
> kostas
>
> Private Sub Command0_Click()
> Dim Green As Boolean, Level0Pass As String, stDocName As String,
> stLinkCriteria As String
> Level0Pass = "123"
> Green = False
> If Pass = Level0Pass Then
>    Green = True
> End If
> If Green Then
>   stDocName = "MT_entoli"
>   stLinkCriteria = "[AM]=" & [Forms]![MT_basic_char]![AM]
>   DoCmd.OpenForm stDocName, , , stLinkCriteria
>   DoCmd.Close acForm, "P_Form"
> Else
>   DoCmd.Close
> End If
> End Sub
>
>
> --
> _______________________________________________
> 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
>
>