Modules & VBA :: Position Cursor To Left Bottom Of Control
Jul 22, 2015
I recently found a neat little module which allows you to duplicate a right click & bring up pop up menu ( say by left clicking on a field). I find this very good for creating a nice little menu system in which I can reproduce the nice features of Access menus (I'm using Access 2002) but with a lot more flexibility.
So, I have a line of labels across the top of the form which are my top level menu items - when I click or mouse over these I want to have the pop up menu appear directly under the label. I can position the pop up menu manually by SetCursorPos(x,Y) but as my forms are Pop Up and can move this has proved to be a pain.
What I am after is something that will allow me to work out the coordinates of the left bottom of the label and then position the cursor there then drop the menu. The difficulty I'm having is converting or understanding the position of the label (me.label1.left etc) and relating that to what SetCursorPos needs.
I have several comboxes where I'm using date/time input masks. When I go to enter data in the field the cursor is situated at the right end of the box. I have to backspace to the beginning of the field to enter the data. How do I position the cursor to the beginning (left side) of the field?
I want to progammatically align the report controls position. I have a control with left=2.7 in the Design view property. I want to set programmatically set this value to 3.0 or other value accoring to a parameters. The problem is that when I set this property at the event Report-Open, the control appears always in another position regardless of the left value, i.e appears always at the new constant position.
I have below code for maximum 3 criteria dynamic search:
Code: Private Sub SearchFor_Change() Dim strWhere As String Dim Criteria As String Dim i As Integer Dim A Dim strAdd As String
[code]...
There is a problem, since I put the code in a textbox's on change event. then in case i want to revise the first two criteria, the cursor will automatically fleets to the end of the text, I want to know how to keep the position of the cursor?
ive got a form that has several textboxes. The cursor in all textboxes appears on the left hand side (which is good), but one field shows the cursor on the right side??!!! how do i change this, i want the cursor to be on the left hand side like the rest?
I'm trying to ensure that each time a new record is opened in a form, that the cursor is positioned in the first control/field... I have this throughout most of my application but not in a few individual forms.
I know I've done something in the past to ensure that this happens, but I can't remember what it was...
I have some graphs on a report that I need to dynamically position. The user selects which graphs he wants to put in and then the reports repositions the graphs based on input.
I've been using the following code to move the graph:
reports!rpoly.gGPCMWbyDRI.top = 3.625
which compiles, but moves the chart to the "0" position. I tried using a string ("3.625"""), or a stint ("3.625") but neither worked.
I have several fields with text boxes and input masks. When a user clicks in these fields, it puts them in whatever position in the text box they click in. If they click to the far right, it takes them to the right position and doesn't let them type the entire date, formula, etc.
Any way to set the text box so that no matter where they click it automatically starts in the first position?
I am using an unbound textbox at the top of my form for filtering purposes. The user types in a string and hits "Tab" which kicks of the filter which is defined in the AfterUpdate property. I want the focus to return to the same textbox and position the curosor after the last character. I am trying to use SelStart but not having success.
On main form cursor working is goods as per default. But after come to in Subform its shown the cursor position in the last filed. So every new record is shown as the same last field. How to do this cursor position will be change in subform as per default?? and every new record its need to show as per default TabIndex "0".
I have checked my Tab Index & Order Settings also it is good. But its shown as last filed in subform
Is there an automatic way of moving the cursor when an outlook email is opened using a VBA event??
Right had a look and haven't managed to google this yet but the background is as follows
I have some code that puts a recordset of people's email into outlook and leaves users with the outlook message open ready for them to append anything they want to the message body.
At the moment the cursor flashes at the very start of the message and users need to scroll down with keys or the mouse to the end before they can add additional text.
I want to automatically move the cursor to the end of the outlook email message opened using a VBA event?
I have a table with CODE number as text. (1234-11-3456). I also have this field in a subform. How do I get the field to start at left, and also make all CAPS. Also where do I do the input mask. In the Table or the Form where it is a subform?
Hi I have a standard form with Header, Detail, and Footer sections. The detail section is populated by a mixture of queries and calculated control boxes. When the detail section overruns its space, I get a vertical scroll bar to the right and then the footer is displayed. So, the footer always stays where it is and the scroll bar only moves the detail section.
Is it possible to get the scroll bar moving the whole lot so that the footer is not permanently viewable on the page and would appear after all the Detail boxes ?
Is it possible to make a control have a fixed position so that when the form is vertically scrolled the object stays in the same position?
I have a continuous form that shows records based on criteria that the user puts into an earlier form. There is a close button on the page but you cannot see the close button if you horizontally scroll too far along the page. You have to horizontally scroll because of the amount of fields that are on the form.
How can I move to control on form when user clicks on another control on same form? In other words... have set validation on controls and unless I disable all the other controls on form until I need it enabled, user can click on other control and get out of the validation sequence. Need to send user back to control they were on when they click on a different control elsewhere...
see below the code . The select statement searches the Printpoolno value from the top to bottom in table tblmaster. As in my table tblmaster there are thousands of records and it takes long to search for that Printpoolno from the table . Is there anyway we can write a query that will search the table from bottom to top as the Printpoolno will always be in the bottom records and not in the top records.
Code:
Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim r As Long
So I've got a form: - A set of unbound controls filters (using a dynamically-built WHERE statement) a subform in datatable view. - A set of bound controls displays the currently selected subform record; the two reflect one another. - A set of unbound checkboxes at the bottom allows the user to change which fields are displayed in the subform.
Turns out, all of this makes for a pretty big form. Some of the users have screens that will not fit the full form due to resolution settings, physical size, aspect ratio, etc. Whatever the reason, the result is one or both scrollbars appearing on the form.
The issue is this: Whenever the filter controls are changed, the form's Current event runs (because the After Update events for the filter controls all change the main form and subform's Recordsource). But the Current event causes the form to requery (or refresh?), meaning the focus returns to the control with Tab Index 1 (a "Home" button near the top of the form).
Thus, the form tends to "jump around" a lot when users are determining the records they want displayed.Is there a way to avoid this?
- Can I prevent the "Home" button from getting the focus during those times? - Alternatively, can I set the position of the scroll bars so the user doesn't see that jumping around every time a control is updated? I found some interesting ideas that worked for continuous forms, but mine is a single form, so bookmarking methods won't solve my issue.
All I have a form called frmMain. This form contains a TabControl named tabMain tabMain has some pages. One of the pages is called pagRecords pagRecords contains a subform called frmRecords. frmRecords contains records from an in-memory table.
My problem: If I select tab pagRecords the cursor is set to the last record.
What I want: as soon I select tab pagRecords, the record cursor must always be set to the first record.
I think this can be done with next code.
Code:
DoCmd.GoToRecord acActiveDataObject, , acFirst
However, I placed this line in a lot of event properties but it is never triggered (I put a break on the line).
So on which object and event should I put this line? (and is acActiveDataObject the right parameter?)
I have the following string of text that I currently push out to the body of an Outlook email (using the DoCmd.SendObject function with an Access report):
Which is great and works fine! It appears in the email like so:
Original.PNG
Now, it has been requested that the data to be left justified to the widest line... so, in this scenario, it would look like this:
Edit.PNG
I've searched for ways this might be accomplished so it's always left justified to the widest line, but haven't come across any definitive solutions yet.
I am a bit of a novice when it comes to Access, but have managed to create a form with a subform embedded and various filters to show different data within the subform, including a date range filter. The code I have used for these filters is as follows:
Private Sub Command40_Click() Dim strCriteria As String
This all works fine, but I'm wondering what I need to add to this code to make it so that if the date boxes are left blank, records from all dates are displayed. At the moment I have to enter dates in order for it to work properly.
Hi all! I have a tough problem I was hoping I could get some help with:
I would like to create a recordset based on the "middle" 50% of the data. I need to chop 25% off the top of the data, AND 25% off the bottom of the data.