I have a continuous form that has several buttons, i am hiding them depending on which buttons they press before hand.
Is there a way to hide the spaces left by the invisible buttons using vba? or is there a simpler way?
I'm currently building a database in Access 2013. I've used Access many years ago, and not really in anger since maybe 2003, so I've been re-learning quite a lot. Here's an overview of my scenario, and issue:
The main purpose of my database is to allow engineers to log various bits of information when building, servicing and testing manufactured products for offshore exploration. Because some of the engineering team aren't so great with data entry etc, I've decided that, rather than deleting data, I'm going to use a 'deleted' flag: user clicks what he considers to be a delete button, but in reality an update query will simply update the flag and, because the form is built on a query which includes a 'where deleted = 0' filter, it'll no longer be shown. This will allow us more control over the data and will also allow me to check that everything is running okay.
My main forms include a number of subforms, including one which includes a second tier of nested form: Pin Maps for (electrical) Connectors.
What I need to achieve is fairly straightforward: as the user navigates around the form, I'd like a 'delete' button which is specific to that subform to become visible and for any other 'delete' buttons to become hidden. Once tested, the buttons would be 'stacked' in the same position at the top of the main form, so the user just thinks they're deleting the relevant record in the sub, or main, form.
I want to use buttons on a form to change the sort order on a continuous form. In the buttons click event I am using a public function (named Sort_1) to change the sort order. The first element of the event call is the name of a generic query (named Sort_1_Query1) and the query field to sort (LAST_NAME OR FRIST_NAME, depending on the button.)This is the Click Statement.
=Sort_1("Sort_1_Query1","LAST_NAME")
This is the Public Function
Public Function Sort_1(SortName As String, FieldName1 As String)
DoCmd.ApplyFilter SortName, FieldName1 & "between 'A' and 'Z'"
End Function
I think the problem is in the use of quotation marks or trying to pass the query field name to the Do Command or the use of an ampersand.
I need to disable or hide the restore, minimize and close window buttons found in the top right hand corner of a form.
I navigation buttons that controls open, close etc already set up.
I am trying to make a button on a form visible and invisible dependant on the contents of a field in my form, any ideas?
View 3 Replies View RelatedI am trying to find a way to hide the close button on the ribbon. My 2007 and 2010 users keep closing the database by the "x" and it's driving me nuts. I have an exit on the switchboard. I tried to disable navigation and ribbons under options and it hides everything except the x. I tried the code:
Code:
Docmd.Showtoolbar "Ribbon", acToolbarNo
In the startup form. Still doesn't give me what I want.
I would like to have 3 buttons on a form. When clicking Button1, Button2 and Button3 should be shown and Button1 hidden. When clicking Button3, Button2 and Button3 should be hidden and Button1 shown.
How can I do this when it is not possible to manage the object being clicked? I tried the following which did not work because of managing an object clicked is not allowed.
Code:
Private Sub Button1_Click()
Button1.Visible = False
Button2.Visible = True
Button3.Visible = True
[code]....
I have a form that displays its records in a Contiuous Form. The controls on the form are: txtRecID, txtStudID, cboTrimester, cboType, fld Comment, and blnReqConf.
My issue is that I need the blnReqConf (Request Conference) checkbox and label controls to only show on the reocrds when/if the cboTrimester = "Tri-2" and the cboType = "Parent" or "Teacher" are selected or displayed.
I have written:
If cboTrimester = "Tri-2" And (cboType.Column(1) = "Teacher" Or cboType.Column(1) = "Parent") Then
blnReqConf.Visible = True
lblReqConf.Visible = True
Else
blnReqConf.Visible = False
lblReqConf.Visible = False
End If
The problem is that the controls display on all records throughout the form. How do I make it so that the controls are hidden on some records in the continous form and are shown on others based on the criteria? Is it possible?
Is it possible to hide or show a combo in certain records in a continuous form. i.e if certain certain conditions are met.
At present I have if Check1 = true then Combo1.Visible = true
The trouble is it then displays the combo in all records.
I do not like the look of combo boxes on continuous forms. I think that they really take away from an aesthetic I am trying to create. However, I really like their functionality.
What I would like to do is have a text box for the field when the control does not have focus, but switch it to a combobox when it does. Now, this is pretty easy to do - however, it ends up switching all of the text boxes on the continuous form to a combo box and back. I only want to switch the currently selected record.
Does anyone know if this is possible, or have any ideas as to how to accomplish this?
I want to show or hide a box on a continuous form. If there is a date in the ShopOut field i want the label to show up , if not then it will not appear.
I am trying
If IsNull(Me!ShopOut) Then
Me.StillinShop.Visible = True
Else
Me.StillinShop.Visible = False
End If
however, it shows the box whether there is a date in ShopOut on not. Is it possible to do this in a continous form or do i need somekind of me.record#.ShopOut or something.
Hi folks,
I've got two control buttons ('OK' and 'Cancel') on several forms. They work on the forms in Single Form view, but not on the one form that is in Continuous Form view. I couldn't find any mention of this behavior on this forum, but on another forum somebody mentioned that Continuous Form view makes control buttons do odd things. Any ideas on how to handle this?
Here's the code:
Private Sub OK_Click()
On Error GoTo Err_OK_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Me.Visible = False
Exit_OK_Click:
Exit Sub
Err_OK_Click:
MsgBox Err.Description
Resume Exit_OK_Click
End Sub
Private Sub Cancel_Click()
DoCmd.Close acForm, "Glossary"
End Sub
I have a continuous subform recording the information of various wireless products for an employee embedded in an employee main form. Please see screen shot enclosed.
There is a check box "BYOD/Personal" on the subform. I want to hide a number fields when this check box on independent record is checked. However, if I use the following codes, the changes apply to all records under that employee.
Private Sub BYOD/Personal_AfterUpdate()
If BYOD/Personal.Value = True then
Me.Provider.Enabled = False
Me.XXX.Enabled = False....etc.
Else
Me.Provider.Enabled = True
Me.XXX.Enabled = True....etc.
End If
End Sub
How can I just disable those fields on the subform of a specific record when the BYOD/Personal field for that record is checked?
Hi,
I can hide buttons on a form but what I want is to hide/ show it when one of the fields has a specific value.
Cheers
Gordon
I have a database that it has 2 forms. Form 1 shows list of received letters Form 2 shows list of send letters Now database has been splitted and back end is on the shared drive and front end there is on each computer and myself and other users have read/write access to the shared drive and me and other users can see all the records. .Now I would like to add something like a check box field to the forms. When I tick the check box for each record other users cannot see that record on the form.
View 1 Replies View RelatedI have a dashboard that opens with my main form and it contains many textboxes with Dcounts, Dlookups and Dsums in it. I am hoping that I can put these textboxes on a separate form that is hidden unless a command button is clicked to make it visible.
I know how to do this, but my question is whether or not all of those queries will run whether or not the form is visible. Obviously if the Dsums etc.. are going to run anyway, then I won't bother.
Is there a better way to do this?
I have a main form that has 2 subforms. I have a field on both forms that I have marked as "Visible="No". Both are text box controls and I have made sure that both the label and the text box itself are marked "Visible="No". In the first subform, it works correctly, while on the second one, it still displays.
View 2 Replies View RelatedI've placed an unbound text control in the header of a Split Form. I also placed a label in header of a split form.But, neither is visible until I select a row on the split form datasheet.The Visible property is set to yes and the fore color is white and the background is transparent.
View 6 Replies View RelatedI'm trying to alter the look of my menu Menu Image.JPG. Depending on the User's Permission setting from the Table PermissionTable.JPG.
If they do not have permission for a company then, i want it to be hidden from the menu?
I would like to hide/unhide the navigation pane completely by using two buttons (pop the hood & close the hood) in a form. At this moment I used the following code:
Private Sub Command77_Click()
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Sub
Private Sub Command78_Click()
DoCmd.SelectObject acTable, , True
End Sub
This however makes my form shut down and not my navigation pane.
I have a continuous form. Is it possible to hide a particular field in one record only. Where I put in front of each record checkbox, which is hidden for example field (age).
View 1 Replies View RelatedHow do I make a column invisible in my subform when the main form loads?
View 3 Replies View Relatedi have the following code that hides 5 buttons depending if the user has permission which works fine.im trying to incorporate an IF statement if there is only 1 of the buttons visible then to automatically click the button. but if there is more than 1 do noting?
Code:
Private Sub Form_Open(Cancel As Integer)
Dim rsO As DAO.Recordset
Set rsO = CurrentDb.OpenRecordset("SELECT tblUserPermission.UserFK, tblUserPermission.CompanyFK, tblUserPermission.Permission " & _
"FROM tblUserPermission INNER JOIN tblUser ON tblUserPermission.UserFK = tblUser.UserPK " & _
"WHERE Username = '" & Me.txtName.Value & "'")
[code]...
i want to put my name on the left corner in the form how can i do it
View 1 Replies View RelatedI'm trying to get some labels and eventually text boxes to become visible on an input of a qty in a text box, but I can't get my syntax right.Here's what I have so far.
Private Sub More_qty_AfterUpdate()
Dim count As Integer
Dim pumplbl As String
For count = 1 To [More qty].Value
pumplbl = "pumplbl" & count
pumplbl.Visible = True
Next count
End Sub
I have a bound continuous tabular form,However, based on data content in one field of a record, I want a checkbox in the same record enabled, so the user can check it if necessary. I have created a record set using the form as shown below, and I am looping through each record. To show that my code is referring to the field with required data content, I display it as a message box and it works, yet my checkbox does not enable.
I have the code in the form_load event, however, for testing purposes I have it behind a button.If I am seeing this properly, the code behind the button enables the checkbox for ALL records once the criteria in the required field is true, and based on the last record, which has no data content, it disables the checkbox in ALL records. I also have the PK ID for each record hidden in the form. Can I utilize that to target the checkbox of each individual record??
Form Detail
-Form does not allow additions or deletions. Edits allowed
-All fields are disabled and locked
-I only want the check box to unlock if data is found in the "RequiredField" as referred to below. I have also tried if not isNull(requiredfield.value) then -enable checkbox, which yields the same results
Here is my code
Code:
Dim rstMyForm As DAO.Recordset
Set rstMyForm = Forms!MyForm.Form.Recordset
rstMyForm.MoveFirst
Do While Not rstMyForm.EOF
If Not RequiredField.Value = "" Then
[code]...