Exclude Certain Forms

Ben Horne · March 13th, 2004, 01:19 AM

Hi all,

I was wondering, is it possible to exclude certain forms that you don't want the user to edit? The reason I'm asking this is because I am developing a new Access database that will eventually have a switchboard as well as a dialog box from which to select a form to edit the records of and I don't want the switchboard or any dialog boxes to appear as forms that can be edited.

Thanks in advance,

Ben Horne
Madison Area Technical College student
-------------------------
http://community.webshots.com/user/valerian114

Go there. I have a lot of awesome photos that I rendered myself

"A Person Who Claims To Be A Flash Junkie Isn't Really A Flash Junkie Unless He Can Prove It"

Braxis · March 14th, 2004, 07:50 AM

Ben

The simplest way to accomplish this is to adapt your naming convention. Give the editable forms your standard prefix (i.e. 'frm') and use something like 'sysfrm' for those that cannot be changed. It'll then be simple to exclude these forms when creating the switchboard and filling your dialog boxes.

Brian Skelton
Braxis Computer Services Ltd.

Ben Horne · March 14th, 2004, 04:52 PM

Brian,

Thanks for this, I'll try this out.

Quote:

quote:Originally posted by Braxis
Ben

The simplest way to accomplish this is to adapt your naming convention. Give the editable forms your standard prefix (i.e. 'frm') and use something like 'sysfrm' for those that cannot be changed. It'll then be simple to exclude these forms when creating the switchboard and filling your dialog boxes.

Brian Skelton
Braxis Computer Services Ltd.

Ben Horne
Madison Area Technical College student
-------------------------
http://community.webshots.com/user/valerian114

Go there. I have a lot of awesome photos that I rendered myself

"A Person Who Claims To Be A Flash Junkie Isn't Really A Flash Junkie Unless He Can Prove It"

Ben Horne · March 14th, 2004, 05:12 PM

Brian,

I can't get the darn thing to work. I've got the form named as sysfrm_GameSelector. Is this what's causing the problem? Do I have to keep the name at sysfrm. Also, since this a forms dialog box, I used an SQL Statement to retrieve the form names from the MSysObjects table. Should I go into the MSysObjects table and edit the form names there?

Quote:

quote:Originally posted by Flash Junkie
Brian,

Thanks for this, I'll try this out.

Quote:

quote:Originally posted by Braxis
Ben

The simplest way to accomplish this is to adapt your naming convention. Give the editable forms your standard prefix (i.e. 'frm') and use something like 'sysfrm' for those that cannot be changed. It'll then be simple to exclude these forms when creating the switchboard and filling your dialog boxes.

Brian Skelton
Braxis Computer Services Ltd.

Ben Horne
Madison Area Technical College student
-------------------------
http://community.webshots.com/user/valerian114

Go there. I have a lot of awesome photos that I rendered myself

"A Person Who Claims To Be A Flash Junkie Isn't Really A Flash Junkie Unless He Can Prove It"

mmcdonal · March 15th, 2004, 12:23 PM

Hi,

You can put buttons to all the forms that you don't want your users to edit on a seperate form, then attach this code to the button to the second form from the "switchboard" to password protect it. I am asking if there is anyone who can make the password show up as **** in the input box on another thread.

Change the word "password" to your own password. Also, supply the accurate form names. My "frmNewForm" would be your second "switchboard" form.

'Attached to On Click event of button to Open Form

Dim strPasswd

strPasswd = InputBox("Enter Password", "Restricted Form")

'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.

If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If

'If correct password is entered open Employees form
'If incorrect password entered give message and exit sub

If strPasswd = "password" Then
DoCmd.OpenForm "frmNewForm", acNormal

Else
MsgBox "Sorry, you do not have access to this form", vbOKOnly, "Important Information"
Exit Sub
End If

Mike.
P.S. You're not really using the Access Switchboard are you? Make your own form and set it as the start up form. Be sure to hide the database window.

mmcdonal

Braxis · March 15th, 2004, 01:04 PM

Ben

Could you post your SQL statement?

Thanks

Brian Skelton
Braxis Computer Services Ltd.

Ben Horne · March 15th, 2004, 02:31 PM

Brian,

This is how I have the SQL Statement for the forms dialog box

SELECT [Name] FROM MSysObjects WHERE [Type]=-32768 And Left([Name],1)<>"~" ORDER BY [Name];

Quote:

quote:Originally posted by Braxis
Ben

Could you post your SQL statement?

Thanks

Brian Skelton
Braxis Computer Services Ltd.

Ben Horne
Madison Area Technical College student
-------------------------
http://community.webshots.com/user/valerian114

Go there. I have a lot of awesome photos that I rendered myself

"A Person Who Claims To Be A Flash Junkie Isn't Really A Flash Junkie Unless He Can Prove It"

Ben Horne · March 15th, 2004, 02:33 PM

Mike,

I am using the Access Switchboard. I could create my own form but I just don't have the time or the patience to do it.

Quote:

quote:Originally posted by mmcdonal
Hi,

You can put buttons to all the forms that you don't want your users to edit on a seperate form, then attach this code to the button to the second form from the "switchboard" to password protect it. I am asking if there is anyone who can make the password show up as **** in the input box on another thread.

Change the word "password" to your own password. Also, supply the accurate form names. My "frmNewForm" would be your second "switchboard" form.

'Attached to On Click event of button to Open Form

Dim strPasswd

strPasswd = InputBox("Enter Password", "Restricted Form")

'Check to see if there is any entry made to input box, or if
'cancel button is pressed. If no entry made then exit sub.

If strPasswd = "" Or strPasswd = Empty Then
MsgBox "No Input Provided", vbInformation, "Required Data"
Exit Sub
End If

'If correct password is entered open Employees form
'If incorrect password entered give message and exit sub

If strPasswd = "password" Then
DoCmd.OpenForm "frmNewForm", acNormal

Else
MsgBox "Sorry, you do not have access to this form", vbOKOnly, "Important Information"
Exit Sub
End If

Mike.
P.S. You're not really using the Access Switchboard are you? Make your own form and set it as the start up form. Be sure to hide the database window.

mmcdonal

Ben Horne
Madison Area Technical College student
-------------------------
http://community.webshots.com/user/valerian114

Go there. I have a lot of awesome photos that I rendered myself

"A Person Who Claims To Be A Flash Junkie Isn't Really A Flash Junkie Unless He Can Prove It"

Braxis · March 15th, 2004, 03:50 PM

OK

Change the statement to:

Code:

SELECT [Name] FROM MSysObjects WHERE [Type]=-32768 And NOT(Left([Name],1)="~" OR Left([Name],6)="systbl") ORDER BY [Name];

Brian Skelton
Braxis Computer Services Ltd.

Ben Horne · March 15th, 2004, 06:35 PM

Brian,

I copied your changes to the forms dialog box but it's not working, the forms I don't want to show up in the forms dialog box are.

I have a question, for forms you don't want to show up in the forms dialog box, should I use something like "sysfrm_GameSelector"? I'm a bit on the confused side.

Thanks in advance,

Quote:

quote:Originally posted by Braxis
OK

Change the statement to:

Code:

SELECT [Name] FROM MSysObjects WHERE [Type]=-32768 And NOT(Left([Name],1)="~" OR Left([Name],6)="systbl") ORDER BY [Name];

Brian Skelton
Braxis Computer Services Ltd.

Ben Horne
Madison Area Technical College student
-------------------------
http://community.webshots.com/user/valerian114

Go there. I have a lot of awesome photos that I rendered myself

"A Person Who Claims To Be A Flash Junkie Isn't Really A Flash Junkie Unless He Can Prove It"