Search results

I've copied a snippet from a right-click menu (rcm) that I use in one of my apps, as follows: Set cmbOpenForm = cmbRC.Controls.Add(msoControlButton) cmbOpenForm.BeginGroup = True cmbOpenForm.Caption = "Clear Filter (show all records)" cmbOpenForm.OnAction =...

Welcome aboard, like the screen name.

There is always more than one way to skin a cat. To answer your question, here is one way. I created three queries, each one builds upon the preceding one. Query 1: (qryZ_01_CalculateLineTotals) SELECT Investments_Purchases_SalesT.Symbol_Stock...

What is the error reported by Access?

The menu of concern for you is "Table Design Datasheet Cell". Public Sub ListMenuSubCaptions(pStrBar As String) Dim k As Integer Dim cmbRC As CommandBar Debug.Print pStrBar Set cmbRC = CommandBars(pStrBar) For k = 1 To cmbRC.Controls.Count Debug.Print " "...

This has certainly piqued my interest. Following on from my last post the following should assist. Public Sub ListMenuCaptions() Dim i, k As Integer Dim strBarName As String Dim cmbRC As CommandBar For i = 1 To Application.CommandBars.Count...

For starters, if you run the following it should display all the names of the menus. What might be of interest to you is named, "Table Datasheet". When I ran this code snippet it also revealed all my user-created right-click menu names. Sub ListAllCommandBars() Dim i As Integer For...

I assume this has something to do with flight planning. Many years ago I use to submit flight plans (in hardcopy form, personally handing to ATC, or faxing same). I recall that FL (Flight level) was only used for altitudes above 10000' and all those under were represented directly by the...

To run the click events of other buttons simply type this in code. OhterButton_Click() OtherButton2_Click() OtherButton3_Clcik() and so on. Obviously substitute for correct button names.

Create a Label control on your form, name it appropriately. Add code in the Form's OnCurrent Event, as follows, substitute for your control names. Private Sub Form_Current() If Me.Weight > 70 Then Me.lblMsg.Caption = ">70 - special message" Else Me.lblMsg.Caption = "<...

Lookup Dlookup, this may help http://access.mvps.org/access/general/gen0018.htm

Here's something to get you started: Sub ProcessDates() Dim db As DAO.Database Dim rsSource As DAO.Recordset Dim rsTarget As DAO.Recordset Set db = CurrentDb Dim datCurrent As Date Set rsSource = db.OpenRecordset("Select * from...

You have a design issue problem. I can see that in your primary investment table you have fields for NetShareQuantity and NetShareCost but you don't really need those fields in any table. Simply calculate them, as you do for the main and subforms the subject of this thread. Where you...

Try this in the OnCurrent event of the parent form for the Quantity field: Me.Net_Share_Quantity = DSum("[TransactionQuantity]", "Investments_Purchases_SalesT", "Symbol_Stock = '" & Me.Symbol_Stock & "'") Apply the same method for the Cost field. There are other ways to achieve this but in...

Hi Doc, yes I'm aware of that, I concentrated my response on the reading of the file, that it would most likely be read in sequential order. However, how it ends up in a table will require some form of manipulation if you want the same order.

I would have thought that reading a file line by line would be in the order of the opened file. You could easily test this by creating a text file each line a number, incremented by 1. Test it for 10 lines or whatever. How it ends up in the table is neither here nor there but I would...

Welcome aboard. These days my memory is not what it use to be. I'll be tackling something, I know it can be done but for the life of me cannot remember the details. My first port of call is Google and the starting criteria is, "Access VBA" followed by a few keywords, invariably I'm led...

What June said. Seems like we need to know a little more about what's on the page of your tab control, subform, listbox, textboxes etc and their purpose. If Command29.Caption = "Locked" Then Command29.Caption = "Edit" 'Renaming the button 'Me.TabbCtl0.Hdisks.Page(8).AllowEdits = True...

Try this: To refer to a page of a tab control, is as follows: Me.tab_controlName.Pages(n).Caption If I'm not mistaken, the AllowEdits refers to the the form generally, so the code would be Me.AllowEdits = true/false. If that is the case then no need to manipulate or worry about the tab...

Me.ControlName.Locked = true or, if toggling preferred Me.ControlName.Locked = not Me.ControlName.Locked