Hide buttons when form is open in read only mode

[AdilSaumtally]

I have a form that I have opened from a button to open in "acFormReadOnly" and i want to hide certain buttons on the form. Is this possible?

[TheSmileyCoder]

In your forms load event you could have code such as this to achieve what you want:

If Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions Then
        Me.btnEdit.Enabled = True
    Else
        Me.btnEdit.Enabled = False
End If

[AdilSaumtally]

thanks a bunch but is there a way to make it more sofisticated (excuse the spelling). for e.g. is it possible to use "Case" for this?

[TheSmileyCoder]

You need to provide more details on what your thinking. Of course you can use a CASE statement but you dont give any information as to what your selection criteria should be.

[AdilSaumtally]

what information do i need to state? All i am trying to do is to disable some buttons when i open the form in read only mode

[AdilSaumtally]

is there any way to convert this intom case?

[TheSmileyCoder]

Sorry, but I really have no clue where you want to go with so little information to go on. Which parts of the allready given code does not meet your requirements?

EDIT: Modified code below. I had accidentally chosen .Enabled instead of .Visible. Fixed it:

If Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions Then
        Me.btnEdit.Visible= True
    Else
        Me.btnEdit.Visible= False
End If

[AdilSaumtally]

this is my code now:

Private Sub Form_Load()
 
'if form is NOT opened in read only mode...'
If Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions Then
    'allow 'new sale' button'
    Me.cmdNewSale.Enabled = True
Else
    'if not, disable 'new sale' button'
    Me.cmdNewSale.Enabled = False
End If
 
'if form is NOT opened in read only mode...'
If Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions Then
    'allow 'add customer' button'
    Me.cmdAddCust.Enabled = True
Else
    'if not, disable 'add customer' button'
    Me.cmdAddCust.Enabled = False
End If
 
'if form is NOT opened in read only mode...'
If Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions Then
    'allow 'Last navigation' button'
    Me.cmdLast.Visible = False
Else
    'if not, disable 'last navigation' button'
    Me.cmdLast.Visible = True
End If
 
'if form is NOT opened in read only mode...'
If Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions Then
    'allow 'previous' button'
    Me.cmdPrev.Visible = False
Else
    'if not, disable 'previous' button'
    Me.cmdPrev.Visible = True
End If
 
'if form is NOT opened in read only mode...'
If Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions Then
    'allow 'next' button'
    Me.cmdNext.Visible = False
Else
    'if not, disable 'previous' button'
    Me.cmdNext.Visible = True
End If
 
'if form is NOT opened in read only mode...'
If Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions Then
    'allow 'First' button'
    Me.cmdFirst.Visible = False
Else
    'if not, disable 'First' button'
    Me.cmdFirst.Visible = True
End If
 
End Sub
 

I was wondering how I can make this into Case instead of if and else.

for example

select case "when form is in add mode"
 
case me.cmdNewSale.Enabled = True
     me.cmdLast.Visble = False
 

and so on?

[NeoPa]

Be very careful with big and clumsy code. Especially be careful of comments within it. Your comments don't match the code and are therefore causing more problems in comprehension than they help with. Also, consider simplifying your code which is much clumsier than necessary :

Private Sub Form_Load()
Dim blnEnabled As Boolean
 
'if form is NOT opened in read only mode...
blnEnabled = (Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions)
 
'allow if NOT opened in read only mode
Me.cmdNewSale.Enabled = blnEnabled
Me.cmdAddCust.Enabled = blnEnabled
 
'allow if IS opened in read only mode
Me.cmdLast.Visible = Not blnEnabled
Me.cmdPrev.Visible = Not blnEnabled
Me.cmdNext.Visible = Not blnEnabled
Me.cmdFirst.Visible = Not blnEnabled
 
End Sub

NB. Comment lines do not require a closing quote (').

Lastly, consider your logic here. Why disable navigation buttons just because the form has not been opened in read only mode?

[TheSmileyCoder]

As I see it, SELECT CASE is something you use when you have multiple possible scenarios. In your case, from you have told us thus far, you have 2 options. Read only, and Not Read Only. Thats why I see little sense in using a SELECT CASE.


Regarding your pseudo code:

select case "when form is in add mode"

There is also no "simply" identifier as to when a form is in read only mode, or add mode. To some extent it depends on your definitions. For example, to some people Read Only means they cannot edit old records but they can add new ones, while to others it means they cannot do anything but read.

True read only (the second case I described) would be:

Me.AllowAdditions=false
Me.AllowEdits=false
Me.AllowDeletions=false

Personally I have for each of my forms a LockForm procedure which takes a single boolean argument,to either lock/unlock the form. This procedure gets called in the forms load event, and the forms current event, as well as the forms afterUpdate event. (and on click of the edit button).

[AdilSaumtally]

this is what i have so far but i cant seem to get it to work:

Private Sub Form_Load()
 
Dim readonly As AcFormOpenDataMode
Dim add As AcFormOpenDataMode
Dim edit As AcFormOpenDataMode
 
Select Case opentype
    Case "readonly"
        readonly = acFormReadOnly
            Me.cmdNewSale.Enabled = False
            Me.cmdAddCust.Enabled = False
            Me.cmdFirst.Visible = True
            Me.cmdPrev.Visible = True
            Me.cmdNext.Visible = True
            Me.cmdLast.Visible = True
    Case "add"
        add = acFormAdd
            Me.cmdNewSale.Enabled = True
            Me.cmdAddCust.Enabled = True
            Me.cmdFirst.Visible = False
            Me.cmdPrev.Visible = False
            Me.cmdNext.Visible = False
            Me.cmdLast.Visible = False
    Case "edit"
        edit = acFormEdit
            Me.cmdNewSale.Enabled = False
            Me.cmdAddCust.Enabled = False
            Me.cmdFirst.Visible = True
            Me.cmdPrev.Visible = True
            Me.cmdNext.Visible = True
            Me.cmdLast.Visible = True
    End Select
 
End Sub
 

[NeoPa]

Your code shows no signs of being influenced by any of the many posts added to help you.

If you won't respond to what's been posted what do you expect to happen? That's a bit like asking a doctor for help but deciding not to take the medicine. Your choice of course, but best not complain to the same doctor that you're still unwell ;-)

[AdilSaumtally]

ive got it to this now:

Private Sub Form_Load()
 
Dim blnEnabled As Boolean
Dim blnDisabled As Boolean
 
 
'if form is NOT opened in read only mode...
blnEnabled = (Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions)
 
blnDisable = (Not Me.AllowAdditions Or Not Me.AllowEdits Or Not Me.AllowDeletions)
 
Select Case blnEnabled
    Case AddEditDelete
        'allow if NOT opened in read only mode
        Me.cmdNewSale.Enabled = blnEnabled
        Me.cmdAddCust.Enabled = blnEnabled
        Me.cmdLast.Visible = blnDisabled
        Me.cmdPrev.Visible = blnDisabled
        Me.cmdNext.Visible = blnDisabled
        Me.cmdFirst.Visible = blnDisabled
    Case readonly
        Me.cmdNewSale.Enabled = blnDisabled
        Me.cmdAddCust.Enabled = blndisbled
        Me.cmdLast.Visible = blnEnabled
        Me.cmdPrev.Visible = blnEnabled
        Me.cmdNext.Visible = blnEnabled
        Me.cmdFirst.Visible = blnEnabled
 
End Select
 
End Sub
 

[AdilSaumtally]

I have finally worked out the code
thank you TheSmileyCode and NeoPa for all of your help.
Would not have been able to do this code without your help

if you wanted to see the code here it is:
(not sure whether the comments are correct but to me it makes sense)

'when form is loaded'
Private Sub Form_Load()
 
Dim blnEnabled As Boolean
Dim blnDisabled As Boolean
 
'blnEnabled is when form is opened with capabilities to add, edit and delete records'
blnEnabled = (Me.AllowAdditions Or Me.AllowEdits Or Me.AllowDeletions)
 
'blnDisable is when form is opened in read only mode'
blnDisable = (Not Me.AllowAdditions Or Not Me.AllowEdits Or Not Me.AllowDeletions)
 
Select Case blnDisable
    'when form is opened in add/edit mode'
    Case AddEditDelete
        'enable new sale button'
        Me.cmdNewSale.Enabled = blnEnabled
        'enable add customer button'
        Me.cmdAddCust.Enabled = blnEnabled
    'if form is not opened in add/edit mode'
    Case Else
        'use blnEnable to disable  new sale button'
        Me.cmdNewSale.Enabled = blnEnabled
        'use blnEnable to disable  add customer button'
        Me.cmdAddCust.Enabled = blnEnabled
        'use blnDisable to enable navigation buttons'
        Me.cmdLast.Visible = blnDisable
        Me.cmdPrev.Visible = blnDisable
        Me.cmdNext.Visible = blnDisable
        Me.cmdFirst.Visible = blnDisable
 
End Select
 
End Sub