I have a switchboard using 4 different label that open a specific form when clicked. I have been trying to add a very simple code on the "on mouse move" event of each label that change the state of the 4 labels I am using:
Private Sub Form_Current()
Me.Option1.FontBold = True
Me.Option2.FontBold = False
Me.Option3.FontBold = False
Me.Option4.FontBold = False
Me.Arrow1.Visible = True
Me.Arrow2.Visible = False
Me.Arrow3.Visible = False
Me.Arrow4.Visible = False
End Sub
The code is working fine but all the label keeps flashing when I move the mouse over the labels which is a bit annoying. I don't see How I could get the "flashing" to stop. Would it be possible to cancel the "on move mouse event" once the code has been run once?
i saw a sample DB here somewhere but cant find it now...on the mouse move event (when hovering on an image) it made the colours lighter (as if someone has shone a light on the button). Just wondering if anybody knows the code for this event?
Does anybody know of a way that I can highlight a row or change colours of all the text fields on a continuous subform when the mouse MOVES over a particular row.
Conditional Formatting seems the way to go and I've also tried the 'Stephan Lebans' method but that seems to require a 'row number' stored in a table in order for it to work, which is not very practical.
I am a newbie to access programming...... I have forms, and while entering data in them, somebody scrolls the mouse, it does not save the information and starts showing all the records. I want to prevent thos mouse scroll event from happening.... i will ike to disable the mouse scroll event for my database.. Has some one run into this problem..... Please let me know, how i can take care of this..... I will really appreciate it..... Thanks
I want to handle the event when I right click and choose "Paste" to pop up a message to the user that he cannot paste; disabling the pasting functionality.
I understand that the Button parameter refers to right or left button , but on which event to best use (mouse up ,mouse down , mouse move - as it seems to be a mixture of the three) and the code for that event.
Code: Private Sub List_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) ' See if the right mouse button was clicked If Button = acRightButton Then 'DoCmd.CancelEvent 'do event here End If End Sub
I don't want to cancel after there is a right click , but rather after right clicking and choosing "Paste".
I have a form (about patients) containing a listbox (list of visit dates) and a subform (showing medications at that date). When you click on the listbox, the subform is re-queried with the selected date as a parameter to show the medications that were in use on that date. This is working fine.
However, when you move to a new record (patient), the subform is initially blank because the listbox hasn't been clicked on yet. This means that it looks like the person isn't on any medications, which is causing some confusion.
I need a way to have the subform show the "top" (most recent) date because that is the current medication list, and the thing most people want to see first. It is always the top of the list, so I would like to do something like this (pseudocode)
Code: Private Sub Form_Current() Forms![MedSearch].SelectDateBox.Requery Send MouseClick Event to line 0 of SelectDateBox End Sub
I made an On Change Procedure on a textbox, so everytime I input a character, it will trigger the Me.Requery.
However, after that the event, the mouse cursor moved to the beginning of other field. I want it to stay at the end of the textbox so I can enter a full word, how do I do that?
Code:
Private Sub Text73_Change() ProjectSearch = Me.Text73 Me.Filter = "[Project Name] Like " & Chr(34) & ProjectSearch & "*" & Chr(34) Me.FilterOn=True Me.Requery End Sub
Then I have records in each table with fields ,Name and Status(Done and Done_s)
I want records having "Done_s" to be moved to b whenever the change has occurred. Is this possible?(I have tried somethings with Macros but didn't work)...
Hello to all, Here is my questions : 1) Is it possible to enable/disable mouse wheel in modifiable list (combo box) ? In access2000 i can't select a record on the list with mouse wheel. 2) Same thing in a form. In a form the wheel is active to go to next or previous record but sometime would like to disable it. Thks in advance
hey all I am having a problem, and most people dont seem to know what to say and not to give me any ideas. So here we go. I have a form which you can scroll through the reocrds, with the mouse wheel, or through the navagation command buttons with I have created. However when I use my mouse wheel the record changes but it doesnt change my activeX Control. When I use my command buttons it changes. However I would like to have both the options so anyone have any ideas on how to get the activeX Control to change with the rest of my record?? Thanks
In Access (2003) I was able to (by default?) scroll through records with the mouse scroll wheel. That no longer works. How can I have the form scroll backwords and forwards with the mouse wheel?
I've been reading threads and it sounds like MS "fixed" a feature that I was relying on heavily to move through records. I can't find a way to enable it again......
Hello, I have two images (img1 and img2) and I want to have img1 visible when the form opens and when I run the mouse over img1 it changes it to visible = False and img2 is visible = True. Also when I mouse off the image it changes back to img1… How is this done? Thanks!
how can i stop wheel mouse scrolling on certain forms? it is ok on some forms but others where specific data is viewed can be scrolled to a blank space.
Is there an option so that turning the mouse wheel will scroll through the screen rather than scrolling through the different records in a form? Thanks! :confused:
I need a way at preventing users from using the scroll funtion on mouses from creating a multitude of balnk records and hence was looking at ghudson better mouse trap as a way of doing this... this is the way forward isnt it?
Looking at the code it starts with... 'For those of us not using Access XP, we have a challenge to prevent 'our users from advancing to another record if they do not use the controls 'we want them to use or to prevent them from bypassing our validation 'procedures too ensure the current record is okay to be saved.
How do you prevent this from happening in Access XP?? Access XP = 2002 does it not?
First off sorry about the really bad layout…..I don’t know how to do all the fancy stuff but really wanted to share this because it seams like a lot of people wanted help with this.
So here is what I have going on.
I have a form to add a record, and I have a number of fields, then an “Add Record” button and a “Cancel Record” Button. What I wanted to do was:
A: Stop the form from going to another “New Record Form” when moving the mouse wheel B: Stop the form from going to another “New Record Form” when pressing the “Tab” key
Here is what you got to do to solve the mouse problem:
1.) Create a field in the form that has the Name “MouseWheel Move”, and set the “Visible” property to “No” 2.) Enter the Fallowing: Private Sub Form_Load() Me![MouseWheel Move] = "No" End Sub 3.) Enter The Fallowing: Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long) Me![MouseWheel Move] = "Yes"End Sub 4.) Enter The Fallowing: Private Sub Form_BeforeUpdate(Cancel As Integer) If Me![MouseWheel Move] = "Yes" Then DoCmd.CancelEvent Me![MouseWheel Move] = "No" End If End Sub
Here is what you got to do to solve the Tab problem:
The last item on my form is my “Cancel” button; so when the focus is on my “Cancel” button (ie. the last item on the form) and I press tab I want the focus to go to the first field on my form.
Private Sub Cancel_Button_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 9 Then Me![Field Name for the First Item on the Form].SetFocus End If End Sub
One more thing, I am using Microsoft Access 2002 (10.6771.6735) SP3 and it works fine
does anyone know how to stop the scroll wheel on a mouse from scrolling through records whilst users are trying in imput data to forms? I assume there is some vb code that could be used.
I have a form, that is longer than the height of the screen, so the user must scroll down to get to it all. If the user uses the scroll bar all is well. If they try to use their mouse wheel to go down the form jumps to the next record.
How can I stop the form from doing this. If it doesn't want to scroll down with the mouse wheel I can live with that, but it should not go to the next record with this.
Hi, I'm using a scrollable mouse and I'am always accidently hitting it while in access 2003 and it keeps changing the records, Is there a fix for this with out changing to a non scrollable mouse?
Just something I hate and been frustrated about and would like to know whether it can be solved. I don't know about your PC but my mouse's wheel does not work in the Visual Basic Editor. This applies to all Office apps.
When I scroll the wheel, nothing moves. It works great in other apps, though, such as Explorers, ....
Is it something that was meant at designed or am I missing something here?
My main form has 2 “Continuous Forms” sub forms. The cycle of the sub forms is set to “All Records”
Is there a way to exit the first sub form and move the focus to the second sub form utilizing only the keyboard? (Like shift + tab, or any custom buttons) I’m trying to avoid using the mouse
Hi everyone. Listen, is there a way to disable the mouse wheel from scrolling through entries in a form? I would like to do this in order to not confuse and upset the user further in the database I am developing, since they do have to enter data into it. Please help me.
I want to be able to automaticallly send a mouse click in response to a message using a Macro or VBA code. Is this possible, Any suggestions appreciated
