Type: Posts; User: westconn1
Search took 0.30 seconds; generated 29 minute(s) ago.
recordsets are different in 64 bit, there are hundreds of hits in google that ask similar questions, with little in the way of solutions
see the below topic from MS, not that it appears to give a...
first, find if result is a valid recordset with records
see if some loop through the records, will work without error
do until results.eof
cnt = cnt + 1
no excuse for this, fix it
lock the appropriate worksheets and VBA projects, or create all at runtime
is there another way to do this without a 'For' loop ?you can always exit the for loop if colProcessList.Count =0
i now have no idea what you want to do
you can use excel's find method (as example in post #11), but how to know what to look for
this appears to have nothing to do with the question you asked...
not in older versions
but you have always been able to change /set the application.activeprinter for the current session
activeprinter = printername on portname
can the setdefaultprinter API work in x64?
or here is something else i found, that could incorporate into your owshNetwork
Dim objNetwork, strUNCPrinter
you have not given enough explanation, you could try
If Not IsEmpty(Cells(rw, 5)) Then
If IsNumeric(Cells(rw, 5)) Thenbut i am not at all sure that is what you want
this appears to work correctly, but assumes no duplicate matching values in either columns D or E (as per example above)
lastrw = Cells(Rows.Count, 5).End(xlUp).row
For rw = lastrw To 2 Step -1...
have a look at
there is an api example, that possibly could be made to work
it should have had neither, just forgot to remove the end sub, when posting
as i had put the code into a procedure for testing
On Error Resume Next
Const ForReading = 1
Const OverwriteExisting = True
OutputFile = "c:\temp\Exist.txt"
OutputFile2 = "c:\temp\NotOnline.txt"
Set objFSO =...
is the activex installed elevated?
dilettante started a thread on doing this a few weeks ago
try changing to
IsNumeric(CDbl(Left(trim("002-06-20151102-000039377-RVCC"), 3)))the string operations need to be done before converting to doulbe
you still need rspubs as the argument for copyfromrecordset, as in your original code posted
else rspubs is not a valid recordset containing records
you should try printing your SQL to the...
.ActiveConnection = cnPubs
as you have given no information at what point the code is failing, hard to make suggestions
it would appear to be an excel error, so an object of excel must have been created, but beyond that no...
you should fix your application, not to fail
yes of course this is possible
as the folder tree is planned why would you need the user to specify the folder?
either is quite possible
Set sh =...
i have never had a problem using latebinding with shell.application
this is tested and works correctly
Dim fn As String
fn = "c:\temp\test1.zip"
Set sh = CreateObject("shell.application")
you should be trying to avoid the user upsetting your application, without locking them out of any part of their computer, or preventing them from running some application, you should find some...
i think with outlook you must open as user then uprate privileges, if you open as admin, then admin is the opened profile, not the logged in user, when a user tries to getobject outlook, they do not...
in that case, you may need to split your project into elevated and none elevated parts
as i said above, i have never done this
a simple option is to use an addin or put code in the personal workbook to create an application object with events, then you can test for instances of...
are you running with elevated privileges?
there are several differences between VBA and VB6, one being that listboxes are not really VB listboxes
Dim list1 As MSForms.ListBox
most of the rest of the code should work, but there may...
the code posted above does not do what you want, read the follow ups, it only prevents the opening of a workbook in the same instance of excel
the last post in the thread may do so and could be...
did you try debugging to see what is failing?
is an object of outlook being created?
if oapp is nothing then msgbox "outlook not created"
personally i would try using CDO rather than outlook to...
if some or all of these variables are dimensioned in the general section of form1 (or in a module) as public, they would be available to all forms and modules
eg. in form2
obviously it is not running successfully, the question is if it runs at all
put a msgbox or debug.print statements at the start and end of the procedure, so that you know the code actually does run...
if you set an application object with events, you can use the documentbeforesave event, if the conditions for the specific document are not met set cancel = true
please use code tags when posting code
does the code in the item_add event run at all? can you test?
you may be better using an incoming mail rule rather than the events, i am not sure that the...
if you print out the record to the immediate window is all the text returned?
if you test like
debug.print rstCountry.Fields(intF).Valuethis will determine if your problem is returning the long...
post a workbook with some sample data
you have not really given enough information, but what you have does not appear too difficult
there are possibly several methods to do what you require, including savecopyAs to csv file, if the...
while the OP example only shows an array, the same question could apply to collections and objects containing collections of objects, where sometimes it is required to loop the collection in reverse...
a you do not specify, in your formula, where you are offsetting from, i am assuming the activecell
assuming the activecell is a9 and you want formula in n9 to be =sum($c9:$d9)
Click Here to Expand Forum to Full Width
Survey posted by VBForums.