Got a small problem. I got a big Access-form (big of size) but a small computerscreen before me. I am very much used to scroll up and down with my mousewheel.
However, when I open my file and the opening-form pops up I cannot scroll up-and-down the form using my mousewheel.
Is there a VBA-code or whatsoever which can enable the mousewheel???
I tried to find the answer in earlier discussions, but I found only discussions where the topic was about disabling the mousewheel. I want to ENable it.
How can I force the wheel (found on some mouses) to scroll down a page and not cycle through records? I tried to change the Cycle property to Current Record Only, but that still allows going to another new record if users are already entering a new record.
So whenever I scroll through my report it will repaint all of the graphs and other stuff on each scroll event. Its pretty fast, but it still looks pretty bad. My only guess is that there are enough graphs on there that its handling too much data, but its just a guess.
The Return of the dreaded mousewheel! I have used the fab Search option on this topic, but I feel I have some requirements that prohibit me using some of the options available. I need to allow its use for navigation of the mainform, but totally block it on the subforms, but with lots of conditions!
The database in question is NOT mine, and it's already built. If it were one of mine, I'd simply block the darn thing entirely or adopt some of the example databases I found (ghudsons was the kind of data verification I can dig, and a few in A97 format were good too).
I have to cater for workmates that are strangly fussy, rather lazy and totally unappreciative of order. Who would have though enforcing uniform entry of dates from 20 different ways (I counted) to one way, was such a contentious issue? OR, a BAD idea? Sigh.
As a result, I cannot be seen to have done ANYTHING to its function. So, I cannot have: *Any form of "save" each record or blocks or anything like that *Any form of validation boxes or message boxes popping up *No dlls (if possible) *In a nutshell, no extra effort - Type 'n' go - it has to be a secret *And, I can't block the mousewheel from scrolling through personnel in the mainform.
I have to eliminate the RAMPANT creation of duplicate subentries (like, you're still on the one record in the main form, but if you're not paying attention and wheel in the subform, you flick over to the new row and type, and POW).
Am I dreaming? Is there some easy solution in form setup that I'm overlooking? (the problems of self-education, you are often unaware of some of the simplest little options). I aplogize if this solution has been presented before on the board, but it is likely I didn't not understand what I saw properly, or I felt it wasn't quite what I wanted. Thanks very much.
Hello. I have a form with a million little buttons on it (don't get me started, I didn't design it! - heh)...
Depending upon which user is running the mdb, I would like all but 16 (of the 80 or so) objects/controls disabled/enabled. I would like to autodisable all the controls, then enable the subset (or all of them) depending who the current user is.
SO in short, other than individually disabling/enabling the many items, is there a magic command for vba, similar to enable *.* for controls [silly e.g., but I hope you get my point...]
I want to disable a tab control page when a form is open, and enable some of the fields if a check box is checked, and some others if another check box is enabled
I've created a custom search form where using unbound text boxes and combo boxes I enter the criteria for a query. I would like to enhance my form to allow "and" and "or" searches on a field. For example, a product on my database has multiple features. I would like to search for products who have "feature1 and feature 2" or "feature1 or feature2". {Note: The table, Product is connected to table, Features using table, LineItem_ProdFeature where there are multiple records in Features for one record in Product}
Right now, the search form has a combo box that lists all product features. The user selects a feature and runs the query. All products with that feature are listed in the query.
It would be so great if the user could choose multiple features from the combo box. Then the query would return all products that have all of the selected features ("and" search). It would be just awesome if the user could select multiple features, and specify if they want an "and" or "or" search of those features.
I have a Excel spreadsheet with an embedded query that pulls from an Access table. The users use a spreadsheet with an embedded query to search on a field called "Circuit ID", to bring up results showing the history of a given circuit id. Currently they have to enter an exact match, for example if the circuit id value is DHECHUIOY, they need to enter this exact value DHECHUIOY. They want instead to be able to enter DHEC and a wildcard character to bring back every value that begins with DHEC. There doesn't seem to be a way to do this in a spreadsheet with an embedded query.
I finally decided that it would be easier to create a form in Access
How I can create a form which allows users to search on a value using wildcard characters ? (the user enters the wildcard character).
I did a search in the form forum and couldn't find anything close that had a response.
I have a parent form and a sub form.
I have the parent set up to make the enable property false for the command buttons that aren't appropriate when you first open the form: Like Save and Undo.
I want to do the same for the child form, which has different data linked to the parent form.
The parent form always grays out the inappropriate boxes.
The subform will gray them out only if I open it as a stand-alone form. When I put the code in the Open, or Load or Gotfocus events I get an error message that it cannot locate the subform.
I am asked to create a checklist for a number of tasks to be executed in a particular shift. However in some tasks can be skipped. There are three shifts per day.
To accomplish this i have created a continious form with a number of checkboxes per task which represent the days of the week. The tasks itself are stored in a seperate table with a checkbox per shift (task settings). If the tasks must be performed in a particular shift, the checkbox is activated (= true).
Goal here is, if a task doesn't have to be executed in a shift the task should not be visible on the continious form. The recordsource of the continuous form is a query, which contains a join between the table with the task settings and the table with the tasks performed.
I have placed some code to perform the task in the form's current event
In the continuous form current event I have placed for every checkbox the following code:
Private Sub Form_Current() If Me. PerformTaskShift.Value = True Then Me.MaandagOchtend.Enabled = False End If End Sub
However when i execute the code and load the form, not only the checkbox in the row mentioned are set invisible, all the rows are. Is there any way to set only the checkboxes on the rows mentioned invisible, in stead of all rows?
I have written code to look up a value in a table that then enables or disables a subform in my main form. The code works, but I know it is now as efficient as it can be. The main problem is that I have multiple values that determine if the subform should be enabled or disabled. I would like to use an IN statement but I'm pretty sure this doesn't work for Dlookup. Below is an example of the code I currently have:
Code: Sub enablecontrols(setting As Boolean) Inv_subform.Enabled = setting End Sub Private Sub Form_Current()
[Code] ....
Like I said, this works fine, but I am concerned if I need to add more items to look up and the stability of the code in general.
Basically I want to put a code in the "on load" event of a form that enables or disables navigation buttons based on a value in a table (the table has 1 record and 1 column).
So if the value is "A", I want to hide navigation buttons on load; if it is "B", I want to show navigation buttons on load.
I know I can set this property in each form, but I have a number of forms that I want to configure at the same time.
My problem is that I don't know how to reference the value in the table.
I've created users and groups in my access database and assigned the permissions. My security wizard is not working. How do I enable the secuirty-- force the users to logon with a username and password?
Hello Guys, I need to know how to enable toolbars and edit a text in a report... the database is locked by previous employee and I can't get to design view so I can change a text... There isn't any tool bar up there.. just EXIT button..
Here is my problem: When a certain yes/no box is true (checked) other fields on the form are not enabled. That works just find when I am on the record that I click the yes/no field. When I go to another record and then go back to the previous record the fields that should be disabled due to a certain yes/no box being true are now enabled and not disabled. Below is my code. Can anyone tell me what I am doing wrong?
Hello everyone. Over the summer i made a database. i think i may have done some locking on it so that i couldnt change it (and only use it), but now i would like to correct some errors. First off, i cant get the database toolbar to show up, and i cant use right-clicking. How do i enable right clicking and get this database to work so i can edit it.
On searching the forum, I found the following post for enabling/disabling BypassKey. I did as instructed but on clicking the label, it gives 'syntax error with 'On Error Goto' in red color and highlighted.
Hello af1112 welcome to the Forum...
I use this code that ghudson supplied at the beginning of this post.
First of all create a copy of your db (Just incase.. )
Now......
Create a label on a form somewhere and make it invisible to other users (I have mine hidden in my main Switchboard)
The idea is that by clicking on the label you can activate/de activate the code without anyone else knowing about what you are doing..
Name the label "bDisableBypassKey" & hide it somewhere in the corner of your screen or something.
Copy & Paste the code inbetween the bold text to the onclick event of the label you have just created
Private Sub bDisableBypassKey_Click()
On Error GoTo Err_bDisableBypassKey_Click 'This ensures the user is the programmer needing to disable the Bypass Key Dim strInput As String Dim strMsg As String Beep strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & "Please key the programmer's password to enable the Bypass Key." strInput = InputBox(Prompt:=strMsg, Title:="Disable Bypass Key Password") If strInput = "MY PASSWORD" Then 'Change password to your own ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
Beep MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & "The Shift key will allow the users to bypass the startup options the next time the database is opened.", vbInformation, "Set Startup Properties" Else Beep ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & "The Bypass Key was disabled." & vbCrLf & vbLf & "The Shift key will NOT allow the users to bypass the startup options the next time the database is opened.", vbCritical, "Invalid Password" Exit Sub End If Exit_bDisableBypassKey_Click: Exit Sub Err_bDisableBypassKey_Click: MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description Resume Exit_bDisableBypassKey_Click
End Sub
Now paste this code in the Double click event of the same label
Private Sub bDisableBypassKey_DblClick(Cancel As Integer) Private Sub Disable_Click() Option Compare Database
Option Explicit
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270
Set dbs = CurrentDb On Error GoTo Change_Err dbs.Properties(strPropName) = varPropValue ChangeProperty = True
Change_Bye: Exit Function
Change_Err: If Err = conPropNotFoundError Then ' Property not found. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Unknown error. ChangeProperty = False Resume Change_Bye End If
End Function
To Test click on your label to activate the password prompt and type in the wrong password (that will now disable the bypass key) and you will not be able to open the db by holding down the Shift button
to disable enter the correct password and you will be able to use the Shift button
Hi there I am new to Access and I am currently modifying an existing DB. Currently this DB has a main table which holds a bunch of Patient info such as:
Name Age AssignedStaff Condition etc....
The assigned staff field is populated from another table (Staff), which holds all the staff members working at the institution. However a couple of these individuals have left and they no longer want their name to show up on the form when inserting a new record. However we do want there name to still be in the DB for historical reporting purposes......My intital thought was to create another field in the Staff table that would hold either a "Active" or "Inactive" entry. Then just have a simple If statement to see if the staff member is active or inactive. Does anyone see any problems with this solution or propose a more efficient method.
I am creating a data entry form with combo boxes related to two different tables: TblEducationID EducationID - Auto# PK Education - Text TblMediaFill MediaFillID - auto# PK Incubation Time- text Incubation Temp - text
In my form, I have a combo box that the user selects the Education Type (Media Fill Test; Aseptic Technique Observation, Watch Video, etc....)
I want the incubation time and temp text boxes to be disabled unless Media Fill Test (ID#4) is selected on the first combo box. (I get a Procedure Declaration does not match error.)
Private Sub EducationID_AfterUpdate() If EducationID = 4 Then IncubationTime.Enabled = True IncubationTemp.Enabled = True Else IncubationTime.Enabled = False IncubationTemp.Enabled = False End If
I have code set up to disable a textbox by clicking on it (Yes, that right, I want the textbox disabled as soon as it is clicked on) with Me.Txt.enabled = false during the _onClick Event. However, the with which I am working has 500 textboxes. Is there a way to call a function or something that would disable just the textbox that is clicked on?