Hello experts,
I am trying to build a form on the fly and populate list box control on the form with the sheets names I store in an array as follows (partial code segment):
Dim objTempForm as Object
Dim ctlListBox As MSForms.ListBox
Dim intNumWS as Integer
Dim arrWSList() As Variant
Dim xlWB...
Hello experts,
I was wondering if it is possible to list all object library references in MS Excel VBE References Dialog Box. I know that the code below will print those references in the ActiveProject (the ones that are checked in the dialog).
Function ListAllRefs()
For Each my_ref In...
Hello experts,
I am trying to build a control on a form in access on the fly. Here is the code segment:
Dim ctlNew As Access.Control
'********************************************
' add web browser control in details section.
' a.) OLE Class: Microsoft Web Browser
' b.) Class...
Hello,
I have a Access Data Project with a table that stores HTML text in a field. That text is used to populate the body of a email message (MS Outlook). The HTML code is stored in the table as a string (nvarchar in the SQL back end).
<HTML><BODY><font color=black face="Arial"...
Hey guys,
I am trying to alter an existing VIEW in a ADP. The following statement is not working and I'm not sure what the correct syntax is:
ALTER VIEW dbo.zView2 (Field1, Field2, Field3, Field4) AS
SELECT Field1, Field2, Field3, Field4 FROM dbo.zView1
I have tried this and ALTER PROCEDURE...
Hello,
Does anybody know if there is a way to programmatically set the Default Database window in MS Access? I am using OfficeLinks to output my data to an excel spreadsheet.
Or is the only option to consistently send data to Excel(to a specific and known folder) to use DoCmd.OutputTo?
thanks...
Hello all,
I am trying to build code using VBA (MS Excel 2003) that will create a hyperlink in a source workbook to a target workbook with a different fully qualified path.
Here is the code segment in question:
'Create a hyperlink for the ADDRESS field to the original file...
Hi,
I would like to create a drop down list on the fly using only VBA. I know how to create a single column drop down using the following:
Public Sub CreateList()
With ActiveCell
.Validation.Delete
.Validation.Add xlValidateList, , , "=" & "MyRange"
End With
End Sub...
Hello all:
I have detail data in a sheet where the first column contains a transaction date. The date format is "MMM-YY". So several records dated 1/1/2007, 1/31/2007, 1/19/2007 will all show as "Jan-07".
What I want to do is count the number of instances that "Jan-07" exists on this sheet...
Hi:
I have a public function that is supposed to concatenate several field values into one string. For example if:
JobNo = 12345
Jobtype = priority, hold
PartNo = 67
Shape = round
Then I want to concatenate as follows:
12345/priority/67/round
12345/hold/67/round
There should be two...
Hello,
I am exporting data from a MS Access database to an existing spreadsheet. This data is used as the SourceData of a chart.
I create a named range on the 'Open Workbook' event as follows:
Private Sub Workbook_Open()
ThisWorkbook.Names.Add Name:="dynamRange1", _...
Hi,
I have a spreadsheet that has 7 columns of data (Sheet2). Another sheet in the same workbook (Sheet1) has one column and it is the same as the first column in Sheet2.
I use code generously provided by someone in response to an earlier question to search for like values in that first...
Hello:
I am trying to create a looping structure that finds a value and compares it to another value on two different spreadsheets using VBA.
I have already figured out how to push MS Access data to MS Excel into a blank sheet. I need to be able to loop through the data pushed to excel by the...
I am very new at this so please bear with me. I am trying to send the result of a SQL select statement to a spreadsheet in MS Excel. The version of MS Office I am using is 2003.
After reading several FAQs, it looks like I cannot use DAO to export a query result directly from MS Access 2003 to...
I am trying to build a string based upon a recordset by concatenating the fields as follows:
Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer
Dim db1 As dao.Database, rs1 As dao.Recordset, myString As String, strTxtAttach as String
Set db1 = CurrentDb
myString =...
Hello:
Does anyone know what the VBA code representation for the following are?
1. SHIFT + ENTER (opens MS Access DB in Object View)
2. ALT + F11 (opens the MS Access VBA IDE)
3. F11 (Does same as in 1. above)
I am trying to figure out a way to add these options in my Users table and...
Hello:
I am grateful to all of you who have helped me with my questions in the past. I am now trying to create a schedule type report that shows how long a job will be in a furnace for a particular process. The report looks like a horizontal bar chart.
Before I post the code, here are the...
Hello:
I have written a couple of public functions in a separate module that I call in the select statement of a qdef. They are used to populate values in a form that runs when the user clicks a button.
All is well with the exception of the End_Date calculation. The code for the functions...
Hello all:
I have the following fields in a table:
StartTime (date/time datatype)
RampTime (float)
HoldTime (float)
In a query, I am calculating the following:
EndTime: Format(DateAdd("h",[HoldTime],[StartTime]),"Long Time")
This sort of works, except that fractional parts of the HoldTime...
Hello everybody:
I am inserting a string resulting from a record set loop into an unbound text box. However, I am unable to align the text (column headings) with the rs results.
The record set code and the string assignment follow:
Set db = CurrentDb
sql = "SELECT tblWorkOrder.WOID...
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.