Forms :: Controls With Data Not Locking Or Disabled
Jun 20, 2014
I've got some forms that I've set to lock controls based on an added tag. I have a loop that goes through the entire form and disables (controlname.enabled = false) or locks (controlname.locked =true) all the controls with that tag.
This appears to work fine when the form is on a blank record but when an existing record is opened, the controls that have data in them are no longer locked or disabled (empty controls are still locked). Is there an explanation for this behavior? I don't want to disable the entire form because there are controls that I want the user to be able to always access. I started by just disabling them, then when I noticed the problem I tried locking them instead but it happens with both. Is there another property I can try that will really lock them if they have data in them or not?
So I am creating a Complaint Tracking Database with Access 2013. In my 'complaint entry form' I have added to ability to "Open" and "Close" the complaint. While the complaint is open the user is able to enter/edit data in the complaint (new or old). When the complaint is "Closed" (done so with a button on the form that prompts the user to enter a date of their choice) the user should not be able to enter/edit data in the given complaint. In my original thinking, I placed checks on various events (on load, after update, on click) that checked to see if the current complaint had a date in the "Close date" field.
If the close date field was null then that meant that the complaint was open and the the controls would NOT be locked. If the close date field was NOT null (i.e. a date was present) then the complaint was closed and the main form fields were locked but the data was still viewable and unless they "re-opened" the complaint they could not change the data.
Now, in the complaint entry form, I have a subform that acts as a action tracker that is used by the user to keep track of the actions taken on the complaint (i.e. they requested documentation from such and such on this date..etc). My problem through all of this is upon closing the complaint and locking the main form controls, my subforms data just vanishes! At first I figured the problem might be with the linking of master and child fields, so I made sure that I left the ID in the main form unlocked when I loop through my controls during the locking process. This did not solve my problem. Code below:
Private Sub Form_Load() Dim ctl As Control If Not IsNull(Me.close_date) Then Me.FormHeader.Visible = True Me.btnClosed.Enabled = False Me.btnOpen.Enabled = True For Each ctl In Me.Controls
What's the best way to lock down form controls after the user has entered data into them? I will have a button that reads "Save Record" that will make it so the records cannot be accidentally (or intentionally) changed after the button is clicked.
I'm using a mousemove event to display help text for controls in my form.This works well, but I'd like to display help text when the control is disabled as well (to explain to the user why it's disabled).is there any way to fire a mousemove event when hovering over a disabled control?
I want to set the On Click Event of a button to unlock the current control a user is on. I know the code to set the property of a named control, but I don't want a button for every control I want to unlock. Is there a 'Me' option for controls?
Table name :TblMain Field 1 : Bkg_Number (text) field 2 : Container no (text) Field 3 : Size (text) Field 4 : Weight (number)
Table Name : TblBooking Field 1 : Bkg_NUmber(text) Field 2 : Customer (text) field 3 : Vessel (text) Field 4 : Voyage (text) field 5 : Ttlcntrs (number)
First feeding data in the Tblbooking and creating a booking number. In the same time enters Total containers (ttlcntrs) for the booking. Then, importing some data to Tblmain by using Excel. Booking number is one of the columns importing. My question is, if number of records in the excel file, exceeds the number of total containers (Ttlcntrs) defined in the Booking table, error msg should be given and stop the import process.
I don't know, I have noticed that the SETVALUE argument is not openly available in the lookup tables when setting a macro. (But that aside) I have set my drives c: and d: as trusted, and also thicked the sub folder option.
I have a button on my form which locks (and disables) some fields. by locking and disabling fields, I am able to change the back color of the fields to a "grayed out" look to warn the user that they cannot change the contents of the field.
some of the fields that I have disabled are in fact option buttons and check boxes which have no back color to change, keep this in mind!
So i have a macro that changes ALL of the fields to disabled and locked, as well as their background color.
This causes an error with the check boxes and option boxes so to bipass them I have got the clause "On Error Resume Next" so that my macro continues to complete and finish locking the rest of the form.
With this "On Error Resume Next", If the code reaches a field which has been changed, another error occurs due to a field being changed which blocks the rest of the code from working however why it wont change regardless of the issue, I dont care if the content was saved to a record or not, I just want to put the fields into disabled and locked.
Is there a way I can remove this "You Can't Lock A control while it has unsaved changes" error to ignore that there has been changes? Where the changes just dont matter?
Im working in MS Access 2007.I have 3 combo boxes on a form. My goal is simple I would like the 2nd and 3rd comboboxes to be locked unless the user has already chosen selected an item from the 1rst combo box. The code im trying to get working now is in a On_Current event so that when the first combo box has nothing selected, combo box 2 and 3 are locked.
This is my code where combo box 1 = areabox2 combo box 2 = devbox2 combo box 3 = entitybox2
[code]...
The issue is that the entitybox2 and devbox2 do not lock!
I'm using Access 2003.I'm trying to create a command for a form that will allow editing or lock all fields, so that records are protected from accidental edits.AllowEdits in the form is set to False by default.I've used the below code to allow a user to unlock the form:
Private Sub cmdEditRecord_Click() If Me.AllowEdits = False Then Me.AllowEdits = True Else Me.AllowEdits = True End If End Sub
And this works without issue.However, I want to create a second button to lock the form again.
Private Sub cmdLockRecord_Click() If Me.AllowEdits = True Then Me.AllowEdits = False Else Me.AllowEdits = False End If End Sub
Seems logical that I should just be able to reverse the true/false but this does nothing!I've also tried the below code:
Private Sub cmdEditRecord_Click() Me.AllowEdits = Not (Me.AllowEdits) End Sub
To toggle between editing/locked, with the same results - ie, can switch to editing, but can't then turn it off.
i have a data access page, which as a querry in it.
When i set dataentry true, none of the recrods are visible.
but, when i set dataentry false all the records are visible, here i have to change a value (ex; change a value in drop down ) which should get saved into the data base,
Hi all. I apologise if this has been a thread in the past but I couldn't find it.
What I have on my form is a dropdown which pulls data from a table (the table being durations of time in words, ie: One and a half days, Three days, etc.,) and I have just added a column that has the same durations in numerical form (ie: 1.50, 3.00, etc.,). When the user is entering job data and selecting how long the job will take, the 'words' will be selected in the dropdown list and appear on the form and, subsequently be used on job sheets. What I need is numerical value to go into a Text Box next to the dropdown and this is proving difficult for me to work out how it can be done.
Is there a way to lock the row source fields in the properties menu as currently it keeps creating exceptions (WHERE) onto the end of the SQL this is subsequently causing me major issues in the view of the form/datasheet as fields keep appearing as blank when there is actually values stored within the table.
I have a listbox with a record in it for every record that is entered on another form. To add a new record, you press the button Add New which I made. That takes you to another form, you can enter a new record and close that form.
I then want the listbox to requery and show the new record. I have tried requering the listbox on close of the other form, I have also tried doing it on the original form's Got Focus event. None of this works.
I have a form with several controls. Among them are 3 in particular:
Vendor Price - Unit cost with no tax Unit Price - Vendor Price w/tax Old Price
What I am trying to accomplish is a way to track what previous costs were by having the Old Cost control populate with the Unit Price controls value when there is a change to either VP or UP either due to new cost or new tax rates.I found a bit of code online but was not able to get it to work for me...probably because I haven't a clue of how to structure it for my needs.
locking entry of data in a form. Attached is the database in which my question lies.
The user first interacts with Table 1, which then leads to the opening of the Personal form (as per the user's wishes). What I would like to do is:
1: To give the user the authority to enter data in those cases where the fields in the Personal form is empty (in the case of the Names). The user should not be able to change any data if these fields are not empty.
2: To give the user the ability to change the Amount (If this figure is Zero) and not to change anything if this amount is not Zero.
I want to use a tab form where the user can click add, search, and edit records all from 3 tabs. The problem is I only want to be able to add data on one form, edit data on another, and just read only on the search. This seems to cause a dilemma, how can I specifiy them to add, edit, and read only on one form using tabs?
I am making a database that will be used by multiple people on a network, and they have different resoloutions on their own computers. when the database is loaded on their respective computers, the form controls are all off.
On the computer i designed them on, the forms fit perfectly on screen, as do the controls, i would like to know if there is some vba code i could incorporate into the form open event, or module code that i can use in order to dynamically re-seize the forms and all of the controls to suit different resoloutions?
I have a main form, 2 sub forms, and 2 text-boxes on the main form. I have a search box now for the first subform. Works perfectly. Once the users filtered based on name, I want them to be able to select that filtered record which would filter another subform.
Right? ok.
My first attempt was to assign the ID that was selected to a textbox on the main form, then automatically requery the second subform based on that value. I used this way on my search box. I'm sure there is a way to go directly from clicking the value to requerying the second subform, but i don't know it.
That being said even the indirect first attempt isn't working. It all has to do with the ".", "!", and ordering of this stuff. It has to do something with Parent child, but beyond that I'm at a loss.
I did find this very useful site [URL] ...... It shows what code you can use depending on where you are and what you're doing. Even with that as a resource, i'm still at a loss.
I have a report that tracks scores for our employees. From the report, you can click a button to add a new score in a form or edit an existing score(frmscoretracker). On this form there are two subforms, in a tabbed control to track additional information about the score; what areas were marked down(Trends), and was it a failing score(AutoFail).
When this form opens I have it programmed to only show the subform if there is data in it. The goal being, if I am adding a new score and there is no existing trends or Autofails for this new record, neither subforms will show - I will add an after update even to show either trends or autofail depending on the score recorded. Also, if someone chooses to edit the score, whatever subform with data, will show as well.
When someone clicks to add a new score, opening this main form to a new record, both of the tabs show. However, if the form opens to an existing record, the appropriate tab shows. Here is the code
Code:
Private Sub Form_Open(Cancel As Integer) 'If the subform has a record, the tab is visible, if not, the tab is not visible If Me.frmtrends.Form.Recordset.RecordCount > 0 Or IsNull(Me.Trends) Then Me.Trends.Visible = True Me.TabCtl33.Visible = True Else Me.Trends.Visible = False End If
[code]...
Both tabs are set as not visible in the default settings. Is there something in this code that is triggering then to be visible when there is no record in the main form?
I've been puzzling over this one for a few days. I've done a few searches on here to borrow some code - but the fact is I don't understand how to implement the suggestions. I'm hoping somone can help.
Basically, I have a form for editing the database, however, there are a number of reasons for opening this form - so at the moment I have several copies of the same form all with very minor changes. In order to streamline the way I've done this, I'd rather have controls always call up the same Form - but state in their code whether or not certain controls on the editing form are visible or not...
:mad: :eek: :mad: :eek: :confused:
It's all gone rather Pete Tong here. And I must admit I'm button bashing the code a bit now. Basically, when a button is pressed, I want it to load the form "frmEditJob". Depending on what I want visible, the Tags "N, M and V" will activate and deactivate certain controls on "frmEditJob".
With me? :confused:
Any help is appreciated!
Cheers.
Private Sub EditJob_Click() On Error GoTo Err_EditJob_Click
Dim stDocName As String Dim stLinkCriteria As String
If IsNull(Me![IDEntry]) Then strMsg = "You need to enter a Valid ID number in the box provided." strTitle = "ID Number Error" intStyle = vbOKOnly MsgBox strMsg, intStyle, strTitle Exit Sub End If
I'm new to Access and am having trouble designing a database that houses application details.
All applications have a list of unique wrap id's but have different tables housing different details for these wraps.
I have a main table which is for data entry and lets me input whether or not a piece of software is Vista compatible (yes/no) etc.
I also have a field in this table showing which analyst is responsible for researching compatiblity of an application.
I have another table with different regions i.e. london, manchester etc that has the region/city listed as the field heading and then contains a list of wraps used in that city under the relevant field.
My main entry form is linked to the main data entry table that holds specifics for an app, name, vista compatible etc. This form is used for data entry. I want to add a subform on this form which shows a list of all applications, in table format, but I want a drop down list so I can select an analyst name / region so that analysts can update details for a specific area assigned to them. In the table I want all of the records based on this criteria to be displayed.
I guess I need to make a filter button on my subform but do not know how to do this. I put in a button control for apply filter by form but then dont know what to do.
I'm new to access and don't know much VB - e.g. the only thing I can do in VB is a make a message box that says hello world on the screen.
Any help is sincerely appreciated. Apologies for the Essay.
I have a subroutine which cycles through all controls on a form, and for controls with applicable tags, either enables or disables the control.
The routine accepts a form as the parameter (frm), and is called from a button on the form itself.
Despite trying frm.repaint in the generic routine, and, me.repaint from the calling form, the controls do not seem to repaint until the mouse moves over them. A command button, for example, will be grey-ed out, despite being enabled, but will un-grey when the mouse goes over it.
I have a main form, lets call it FrmMain. In addition, I have a subform on FrmMain that has a tab control on it (frmSubform). What I would like to do is on form load, reference the tab control that is on the subform, loop through the controls/textboxes, lock them and change their backcolor. The code I am attempting is listed below, however, I am getting a "type mismatch error" highlighting this line:
PHP Code:
Set Frm = Forms!frmConsultingMain!FrmConsultingFeeData
Below is my code:
PHP Code:
Dim ctl As ControlDim Frm As FormSet Frm = Forms!frmmain!FrmSubformFor Each ctl In Frm.Controls If (TypeName(ctl) = "Textbox" Or (TypeName(ctl) = "combobox") Or (TypeName(ctl) = "listbox")) Then ctl.Value = Null ctl.BackColor = vbYellow ctl.Locked = True End IfNext ctl
I had never seen this before as I have recently moved from 2003 to 2010. When I create a from using the wizard sometimes the controls are grouped (inside a dashed square) which does not allow me to modify its size and/or position independently.
