VBA Code to select current form

[shwilsonjr]

I have a command button on my main form that I want to use to set the property of the current form to read only. Not sure of the proper syntax to perform this feature.

 

[John Big Booty]

To make a control Read Only, you can use;

Me.YourControlName.Locked = True

This will still enable the user to click or tab into the control, if you want to prevent this as well use;

Me.YourControlName.Locked = True
Me.YourControlName.Enabled = False

 

[shwilsonjr]

Can I use this in a If...Then sequence to lock the control after it has been clicked? If so can you show the syntax?

 

[John Big Booty]

Yes it can. How will you be deciding whether to lock or not?

You will however need to move the focus to another control prior to Locking or Disabling a control.

 

[shwilsonjr]

Once the Report form is completed the user will click the cmdReportComplete command button to make the form read only. Once that occurs I would like to lock or disable the cmdReportComplete button.

 

[John Big Booty]

So you want to be only able to click that button once for any given record? and then never ever again?

 

[shwilsonjr]

I have a from named frmOpeningForm which has three command buttons as follows:

cmdNew (opens new form)
cmdEditReview (allows users to edit and review the Daily Report that they are completing for their shift. Once completed they will click the cmdReportComlete button at which time I would like to disable that command button.)
cmdView (Which will be used by upper management to view the reports. I would like to set up a login form for this cmd button that will require a user name and password to allow them to see the cmdReportComplete button and be able to edit a report if necessary.)
I hope that I explained the functions that are needed.

 

[John Big Booty]

It's easy enough to Disable your button, the thing you need to consider is when you want to re-enable it. The following will disable your button, simply make it the last event in your Buttons On Click event;

Me.SomeotherControl.SetFocus
Me.YourCommandButton.Locked = True
Me.YourCommandButton.Enabled = False

To re-enable it simply use;

Me.YourCommandButton.Locked = False
Me.YourCommandButton.Enabled = True

 

[shwilsonjr]

Should I use the VBA editor to enter this code for the cmdReportComplete button?

 

[John Big Booty]

Yes, select Event Procedure from the Drop down list and click the ellipsis.

 

[shwilsonjr]

This the code I used for the cmdReortClosed command button and received a compile error “variable not defined”

Option Compare Database
Option Explicit

Sub macReportComplete()
If Form_frmDailyReports.cmdReportComplete = True Then
Form_frmDailyReports.CurrentRecord = NoEdit
End If
If DailyReports.cmdReportComplete = True Then
DailyReports.cmdReportComplete = Locked
End If
End Sub

 

[John Big Booty]

Which line of your code was highlighted when you received the error message?

 

[shwilsonjr]

Form_frmDailyReports.CurrentRecord = NoEdit

"NoEdit" is highlighted in blue, When I click okay the following is highlighted yellow:
Sub macReportComplete()

 

[boblarson]

Form_frmDailyReports.CurrentRecord = NoEdit

"NoEdit" is highlighted in blue, When I click okay the following is highlighted yellow:
Sub macReportComplete()

1. Do NOT use this syntax:
Form_frmDailyReports.cmdReportComplete

You should be using either
Me.cmdReportComplete
(if the code is on the same form as the control you are referring to)

or

Forms!frmDailyReports.cmdReportComplete
if the code is on a different form and needs to refer to a control on a different form.

Using

Form_FormNameHere

can cause problems for you.

 

[shwilsonjr]

This is current code that I have tried. I tried the with the Me., but it didn't work either. I got the variable not defined error with the "NoEdit" highlighted


Option Compare Database
Option Explicit

'------------------------------------------------------------
' EditReview
'
'------------------------------------------------------------


Sub macReportComplete()
If Forms!frmDailyReports.cmdReportComplete = True Then
Forms!frmDailyReports.CurrentRecord = NoEdit
End If
If DailyReports.cmdReportComplete = True Then
Forms!DailyReports.cmdReportComplete = Locked
End If
End Sub