Hi everyone.
In Excel VBA this
.Range("H" & iRow).Formula = "=G" & iRow & "- S" & iRow
works fine and at line 2 results in H2:=G2-S2
and also this
.Range("H" & iRow).Formula = "=G" & iRow & "- 0.77"
returns the same result (where S2=0.77)
When I change to this
.Range("H" & iRow).Formula =...
Import the file into a stage table of one field [varchar(4000)], delete the blank records and from there either export the table to a new flat file or modify your SSIS to use that table.
Macros can execute Functions but not Subs.
So, replace "Function" with "Sub" for the above code and for the Macro, the action should be RunCode and choose the function bellow.
Of course there is a way to run an imr and have it saved in your desired format file!
Look here thread401-1279510
Then you can print it with its associated program!
thread222-1251267
lUserID = DLookup("[UsrID]", "tblRndUsr", "[Username]='" & Me.Name1 & "'") & ""
Then check for empty sting
If lUserID =""
Then MsgBox ("Not a valid UserID"
Exit Sub
End If
The exit sub line keeps the user on the login form..
Another version would be
for i=1 to n
Name "Z:\RemoteFolder\" + FileNameList(i) As "C:\LocalFolder\" + FileNameList(i)
next
without Scripting.FileSystemObject
I 'm quite interested in the result ....
Seems that the problem comes from those replication lines of code we don 't see!
But i think it would be more efficient to use an insert into statement between the two tables. The receiving table could be a linked table or use something like
CurrentProject.Connection.Execute "INSERT INTO...
gmmastros
Dear tek-tiper.
My version till now was
Select *
From tblJobs Left Join
(
select tblNotes.UniqueRef
from tblNotes
where tblNotes.Type = 'I'
) As X
On tblJobs.Job_UniqueKey = X.UniqueRef...
This line
Set objImpRep = CreateObject("Impromptu.Application")
has to be removed
I suggest that you take some time and modify my code to meet your needs
Take a look at
Do Until ..... Loop
Do While ..... Loop
checkig for rst.EOF When there are no more records, that value is true.
rst.BOF denotes that you went, before the first record.
Beginner2009
When I run this code, I leave cognos to ask for user credentials since
So I just open the catalog
objImpromptu.OpenCatalog TheCatalog
and let it bark for burglars!!
Did you try the same??
Beginner2009
take a look on my working version. Runtime version of Cognos Access Manager was giving me most of the trouble.
Sub ExtractOvrDrfts()
On Error GoTo Err_Impromptu
Dim objAuthApp As Object
Dim objAuthDoc As Object
Dim objImpromptu As Object
Dim objReport As Object
Const...
You could
1. delete the records from table xxx
2. import the records from xxxTemp
3. delete the records from xxxTemp.
running 3 sql statements
DELETE FROM xxx
INSERT INTO xxx SELECT xxxTemp.* FROM xxxTemp
DELETE FROM xxxTemp
I think copying an object does a lot more work than clearing...
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.