Here is my code..
Sub TestArray()
Dim test(2)
test(0) = CDate(#4/2/2004#)
test(1) = CDate(#3/3/2005#)
test(2) = CDate(#3/5/2002#)
MsgBox FindMax(test)
End Sub
Function FindMax(A() As Variant) As Variant
Dim Start As Integer, Finish As Integer, i As Integer
Dim max As Variant
Start =...
Upon my request I was issued Visual Studio.Net at work and I wanted your advice to which is the best langauge to use for high end development projects. ie the most powerful language. I know VB, but I rather be using the best language.
I run the following 2 subs seperately to create 2 different reports. After the 1st Sub has run the 2nd always breaks
right here with an out of range error.
'--------Fomat 1st Worksheet-----------
'Sort Col A
.Range("A3:I29").Select...
I have 2 worksheets.
The first one has one cell with a value in it (SLIC), say it was 2040.
Then the first col is blank. I want to be able to pull all employees last name from the other worksheet where the SLIC's are =
The next sheet has two columns, col 1 has a list of SLIC and col 2 =...
I get an error message saying provider is not cabable of performing requesting operation. This code works perfectly in another database.
I checked references, so that is not it.
Here is the line of Code it breaks on.
cat.Procedures.Delete "ptQ_Gss_Preload_" & arrDSN(intArr)
Complete Code...
Does anyone know how to return this file attribute and which one it is?? It is NOT last accessed date because if you even browse the directory and just click on a file in windows explorer it changes the last accessed date to current date.
Sub GetGSSData()
Dim conn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim strSQL As String
Dim arrDSN(1) As String
Dim intArr As Integer
Dim Catalog As ADOX.Catalog
Dim Command As New ADODB.Command
'Set variables
Set rst = New ADODB.Recordset
Set conn = New ADODB.Connection
Set Catalog =...
I would like to add sub-totals within the recordset results on my asp page. I want the results to be displayed after the corresponding set of related records. Currently, my results are in a table created by the following code.
<table border="0" width="90%" cellspacing="0" cellpadding="2">...
So I need equiv of IIF for Oracle (I think it is Decode??)
and I need equiv of DateAdd (which can subtract days,months,yrs,weeks,etc.. from Value)
IIF([DOW_CD]='2', DateAdd("d",-5,WND_DT), IIF([DOW_CD]='3', DateAdd("d",-4,WND_DT), IIF([DOW_CD]='4', DateAdd("d", -3,[WND_DT])...
I have unchecked all the confirm boxed under options menu. Do I have to do this in code? How?
Also, I dont want the msgbox asking if I still want to append data even though x# of records contain null values
to be displayed. I want the query to be executed without interruptions, completely...
<html>
<head>
<title>Time in Transit Analyser</title>
<script>
var g_qry = "";
var Template_Modified = document.lastModified
var Template_District = "ner"
var Template_Department = "district"
var Template_Level = 2
// Enter your name within the quotes below
Author_Name = "Patrick Ryan"
//...
Problem: I am trying to retrieve sendagainplans for the quarter. The results display a breakdown by month.
...More debuggin results at end.
For example:
Center/Division 7/10 7/17 JulAct JulPlan Jul%Eff Total
Back Bay 5.26% 4.62% 4.90% 3.17% 54.57% 4.90%
Somerville...
When I export data from Listbox to EXCEl in changes the numeric values to Dates in EXCEl. How do I prevent this? Here is my code:
Sub sCopySendAgainFromRS()
'Transfer Records to Excel
Dim rs As DAO.Recordset
Dim intMaxCol As Integer
Dim intMaxRow As Integer
Dim objXL As Excel.Application
Dim...
Is there a way to AutoFit Columns in ListBox? My list box recordsource changes frequently and I don't want to be coding in the column widths for each query results.
Thanks
Patrick
Here is my Error
Page invoked does not support remote scripting
Failed to create ASP object for TTRFunc.ASP
Here is the code for this page..
<html>
<head>
<title>Time in Transit Analyser</title>
<script>
var g_qry = "";
var Template_Modified = document.lastModified
var Template_District =...
How would I do this via a query or code..
Normalize this table..
Center_SLIC July04_SA July04_Freq Aug04_SA Aug04_Freq
0140 1.88% 53.11 1.91% 52.23
0150 3.22% 34.2 2.12% 33.23
0160 2.12% 47.2 2.21% 45.3
0170 1.58%...
I am always looking to improve my code so I would like to ask anyone if the following code is efficient or can it be improved?
Sub GetGD2Data()
Dim arrTableNames(5) As String
Dim strFileExt As String
Dim iArray As Integer
Dim objFTP As FTP
Dim conTarget As String
arrTableNames(0) =...
Is it possible to make an Array a const so I can use it throught my Module? The values within the array never change so I don't want to keep setting them within each procedure.
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.