I have created a rather complex formula to parse out some text data into a specific format. I would like to be able to store this as a function and/or be able to apply this formula as a macro to a long list using a FOR EACH...NEXT statement.
How can I save this formula as either a function or a...
I'm having trouble with the syntax when naming a range for pasting the value of a single cell into the same column but down to the last row of data.
So if Activecell.address is $D$2
X = Activecell.column (ie 4)
Y = activecell.row (ie 2)
r = ActiveSheet.UsedRange.Rows.Count (say it's row 5)
I...
thread705-1380756
Using PHV's PickFolder function (see thread above) I've created the following code:
Private Sub cmd_PrintProg_Click()
'Perfoms Print report routines based on the option group selections
On Error GoTo Err_cmd_PrintReport_Click
Dim stDocName As String
Dim stDocName2...
I would like to determine the most recent datemodified value from a series of tables that are used in my db. I would then like to display this date on a report so that at report time the user would know when the last modification took place.
All my tables are related with the PK of API. Some...
I have two tables: ContactLists and ContactListDetails. They are in a one-to-many relationship. Both are user created. A user inputs via a form:
OperationsGroup
ProjectName
Listname
And via a button generates an auto number ListID . In a similar fashion ContactIDs are added to the...
How would I select all the worksheets in a workbook without knowing how many worksheets a workbook contained and without using the worksheet names specifically.
The macro recorder gives me this:
Sheets(Array("Mesa 8D2-21 S4", "Mesa 8D2-21 S1", "Mesa 8D2-21 S2","Mesa 8D2-21 S3"...
I have a report that has 5-6 subreports. The report is based on a single record (WellID) and the various subreports are from different informational areas, Land, Drilling, Formations, coordinates etc. some subreports are one to one and others are one to many.
I have been asked by the users to...
I have a worksheet that puts a timestamp in column 16 if any column in that row is changed. If a user decides to delete data for any of these columns then the timestamp is deleted.
My problem is when a user changes a cell and then decides NOT to save the changes the data cells are of couse not...
What is the best way to use MS Query to query against an Access Table to return the data from a range of cells as a parameter for a field in the query.
Example: I would like each of the values for say sheet(1).Range(a1:a10) to be used as a parameter on the Access table, return the row of...
What is the best way to use MS Query to query against an Access Table to return the data from a range of cells as a parameter for a field in the query.
Example: I would like each of the values for say sheet(1).Range(a1:a10) to be used as a parameter on the Access table, return the row of...
I want to capture memofields from multiple tables and concatenate them so I can see changes chronologically for all the tables or chronologically by table when grouped by table.
Each table in my application tracks additions and changes to the data in a memo field "Updates" and each change is...
The following code worked great until I split the database to an Access FE/BE.
Code hangs at highlight in debugger
Is it because the:
Set DB = currentDb is no longer correct ?
or something else I need to do.
Private Sub cmd_AddDistributionEmails_Click()
Dim API As String
'Check to...
I am seeking advice. My application is extremely dependent on having a one to many relationship from my main table to ten other tables. I want to be sure that when the application is opened that I have NOT lost my relationships before the user starts working.
I had this happen in testing...
I tried two diffent ways of opening a recordset using the same strSQL and got two different answers.
This routine captures the Name of a subform and it's recordsource (see below) for use in this onclick event.
The highlighted debug.print rs.recordcount returns different answers. If I take out...
Is it possible to capture the record source property of a closed form?
I would like to capture the recordsource property in a text box for any form in the DB by using the afterupdate property of a combobox that lists all the DB's forms.
Private Sub cbo_FormName_AfterUpdate()
Dim FormName As...
I have a table "defaults" that is intended to be populated by user supplied defaults for several forms and their record source tables.
By the structure below not all fieldnames are associated with all tables.
ie. tbl_State might contain data for StName but no other data would appear for...
I have a form with a tab control and multiple page controls. Each page has at least one subform on it. Subform data originates from a query based on it's own table or directly from the table.
All tables are in a one to many relationsip with the table that uses page one and it's subform.
From...
I have a one page report that when printed individually prints Page 1 of 1 just fine.
I use a multi-select list box to print several of these report at one time with this code.
For Each varItem In Me.lbo_PrintSelectWells.ItemsSelected
strList = strList & ",'" &...
I have a form with a tab control and multiple page controls. Each page has at least one subform on it. Subform data originates from a query based on it's own table.
All tables are in a one to many relationsip with the table that uses page one and it's subform.
Data is queried using two...
I am adding records chosen from as list box to a table using a command button. Inevitably users will try to add duplicates to this table. The table uses a dual key of API and ContactName.
When I try to create my own message box to replace the error message for err 3022 the code hangs on...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.