Visual Basic :: "Setup Cannot Continue Because ......"

"Setup Cannot Continue Because Some System Files Are Out Of Date On Your System"
Hello,

I've created an install program with the package & deployment wizard that ships with vb6. When i try to intall my program on windows 2000 (can't really say if it is just windows 2000 at this point) I get the error:

"Setup cannot continue because some system files are out of date on your system. Click OK if you would like setup to update these files for you now. You will need to re-start windows before you can run setup again. CLick cancel to exit setup without updating these files."

It seems no matter how many times I click ok and re-start the system, the message continues to pop up and wont let me install the program. Any suggestions?

Also, when i do successfully get the install to work on certain machines, it displays:

"An error occured while trying to register the file "C:windowssystem32msado25.tlb"

Ideas?

Thank you.

"continue" And "break" Keywords ???
What's the equivalent of C++'s "continue" and "break" keywords in VBScript?

Here's a sample of what I mean:

while value > 0
if bSomething then
continue ???
end if

...
wend

Thanks!

How Do I Setup The "find" And "Index" Sections In A Help File?
Hi,

I am writing a help file and am wondering how do you write the help file to have the "Index" and "Find" section in it. If anyone knows please tell me. Thanks in Advance for any help given.

Mike

If I Use "SaveSetting App.Title, "Settings", "Font", "001122"" - Save Date In The Registry, Where Ca
If i use "SaveSetting App.Title, "Settings", "Font", "001122"" - save date in the registry, where can i find the value saved in the registry? Thanks

File Not Found : "C:windowssystem32ieframe.dll1"-- Continue Loading Project?
My friend made a project and sent it to me. It compiles fine on his system but when I try loading it I get:

File Not Found : "C:windowssystem32ieframe.dll1"-- Continue Loading project?

Any ideas?

Thanks!

--DB

File Not Found : "C:windowssystem32ieframe.dll1"-- Continue Loading Project?
So this error comes up when I try and load a project made by a friend:

File Not Found : "C:windowssystem32ieframe.dll1"-- Continue Loading project?

It works fine on his system. Any ideas?

Thanks!

--DB

Continue Asking The Experts About "displaying Results From A Crosstab Query "
It's great to find the topic "displaying results from a crosstab query" posted sometime ago. It can solve the problem with crosstab query that I stucked on quite a long time. But I still have one more problem: How about a crosstab query with parameters? SQL experts, please help

Thanks a lot in advance,

Viet

Check "FileExists" Before Continue With Procedure.
My program needs to extract Data from a text file, how can I check that the file "C:Myfile.txt" exists using a control button click before running the rest of the Procedure within the control.

If the File exists ( I want to continue with the procedure )
If not ( I wish to end the Procedure and show a different Form - telling the user the file does not exist etc. )

Can you please help.

Problem With The "Continue Do" Statement. Help!
My Do...Loop Until works fine until I've added the "Continue Do" statement.
I've got a Syntax Error message box. Apparently, cannot run it.
The code is created as an excel macro. Could someone tell me what is wrong. Thanks!

Do
ArraySerialNumber = InputBox("ENTER ARRAY SERIAL NUMBER (0004, 0013, etc... Then press ENTER on the keyboard or Click OK)", "ARRAY SERIAL NUMBER INPUT", "XXXX")

If ArraySerialNumber = "" Then
End
End If

If ArraySerialNumber = "XXXX" Then
Response = MsgBox("NOT A VALID ARRAY SERIAL NUMBER. PLEASE RETRY", vbRetryCancel + vbExclamation + vbCritical, _
"Ooopsss!!!")
If Response = vbCancel Then
End
End If

Continue Do
End If

If Len(ArraySerialNumber) <> 4 Then
Response = MsgBox("ONLY 4 DIGITS ALLOW. PLEASE RETRY", vbRetryCancel + vbExclamation + vbCritical, _
"Ooopsss!!!")
If Response = vbCancel Then
End
End If

End If

Loop Until Len(ArraySerialNumber) = 4

Solution> Error: """"&&H8007007E (-2147024770) The Specified Module Cannot Be Found"""
Hello

This is the error what i am getting after installing a package of one of my module on user testing machine.
The same module being working fine on others.

What can be the reason for this and what can be the probable solution for this?

Sandeep

Method "SaveAs" Or "Save" Of Object "Excel.Workbook" Does Not Work.
Hi people.
I did for a long time a program that uses excel automation, so that from a template will create a final file with some data pulled from the database (with ADO). At the end and when the Excel file is ready to be saved I got in a couple of computers some problems. In the whole LAN have XP, but in these 2 computers we have SP2. I have checked the rights and are OK (I have even tried to save the Workbook under the Temp folder and also the same problem).
Working with Office 2003 (SP1).
I have searched in internet about any bugs but I don´t find anything.
Any ideas.
Thanks for your time
Jaime

"Continue" Does Not Work!
Hello VB community,

I am trained in C++, and my current research requires me to do some VBA. Great, I am done with my little code, but I cannot get "continue" to work. I am pasting the loop in here, and my problem is in red characters. VB says: COMPILE ERROR: EXPECTED: EXPRESSION. And it highlights Continue For in red.

So, as you can see, if errorFlag1st and errorFlag2nd are TRUE, I do not want the counters to increment and I want to go the the next iteration, and try it out with a new random number. To do that, isn't "continue" the right command?

Please help! I am losing it!

Thanks, Sasha

----

Do While int500Counter < 500

For int100Counter = 0 To int100Counter = 100
tempRandValue = Int((lUpperBound - lLowerBound + 1) * Rnd + lLowerBound) 'generates a random value
Write #130, tempRandValue

'**FIRST CHECK: is tempRandValue found in DA field?
Do While Not EOF(120) 'loops until end-of-file reached
Input #120, testValue1
'if matching value is found, then exit loop, errorFlag1st remains FALSE
If testValue1 = tempRandValue Then
Exit Do
Else
errorFlag1st = True
End If
Loop

'**SECOND CHECK: has tempRandValue already occured within 2nd nested loop?
If errorFlag1st = False Then 'this loop will only execute if tempRandValue passes first integrity check
Do While Not EOF(130)
Input #130, testValue2
If tempRandValue = testValue2 Then
errorFlag2nd = True
End If
Exit Do
Loop
End If

If errorFlag1st = True Or errorFlag2nd = True Then
'Continue For
'so, if tempRandValue does not pass either of the two integrity checks, this loop (int100counter)
'will CONTINUE (that is, skip this iteration without incrementing any counters)
End If

Write #200, tempRandValue 'once again, this will only be done if tempRandValue passes both integrity checks

int100Counter = int100Counter + 1
Next

int100Counter = 0
int500Counter = int500Counter + 1

Loop

Header + "Continue"
The report is broken down by header and footer for each:
Month
  Plant
    PartNumber

The detail section is hidden, and each header has totals for QTY and VALUE.

However, here is an example for the month of April:
Page1
April
   Hanger
     11225                25        $25.00
     12351                30       $125.00
   Final Line
     12252               100        $522.00
     253585              2005       $1,256.95
   Construction
     16459               22         $80,025.00
     1254687             10         $154,125.00
Page2
April
   Header
     part
     part
   Header
     Part
     part
     part

                April totals:  xxxxx       xxxxxx
What I would like to do is for page2 to have the month header read April Continued

Is there anyway to do this?  I have tried putting a text box "recordcount" with control source =1 in a variety of places and =iif([recordcount]>1,"Continued","") beside [Month] in the month header.  However, since each line total is its own header it record count never goes above 1.
What I am thinking is that there needs to be away to write:
If this is the first time the month is used, do nothing, else if the current month does not appear in its footer on the previous page "Contined".
I would think this would be simple, but it is driving me crazy.

Thank you for any and all help,

PBrown

Using "continue" Command Like In C / C++
in a for loop :
Code:
for i=1 to 10
if i=3 then continue ' *****
debug.print i
next i

i want to do something like the continue in other languages
is this possible?
thnaks in adbvance
peleg

Israel - the best place to live in after heaven, but no one want's to go there so fast.

http://www.networked-toys.com/
http://www.nirlat.com/home_page.asp

VB's Equivalent For "continue" ??
Hi Guys

Here's a very elementary question, to which I do not have an answer.

What is VB's equivalent for C's "continue" ?

( For those who are not familiar with C, let me tell you what "continue" does.

"continue" is used to re-route the control back to the first statement in a loop. )

So, is this possible in VB, without having to resort to GoTo ??

Thanks

Suhaib

How To Replace "Apple" With "Banana" In A String That Contains "Orange" In A TXT File
Whoa! Long thread title. Basically, how can I search for any string in a text file that contains "Orange", then replace "Apple" with "Banana" in that same string? Is this difficult? Thanks!

Data1.RecordSource = "select * From Salary Where 姓名 Like " + S + " " * ""
Data1.RecordSource = "select * from salary where 姓名 like " + s + " " * ""
thanks in advance gentlemen and ladies..
firstly...I don't know what must add "++" between "s " variant..
who can tell me why?? thanks , ,, I really don't know why it does this..
maybe i am a beginner..please forgive me why add ++ between s..thanks

How To Change Boolean Field From Displaying "0" And "-1" To "Yes" And "No"
Hey there,

I have a data report, which displays a few fields from an Access table, one which is a boolean. At the moment if the boolean value is True, then on the data report it displays "-1", and if False "0".

How can I change this so it displays "Yes" if true and "No" if False?

Would be really grateful for any help.
Thanks.

Extract Local Names For "OK", "Cancel" And "Apply"
Hi!

I noticed that some programs written in C++ have an English language, but the captions of the buttons "OK", "Cancel" and "Apply" are in German, Swedish or whatever localized Windows version the user utilizes. Any idea how to obtain the captions of those buttons in VB? The only method which comes into my mind is to get the locale ID and have an array with strings for the the various language versions, but I doubt that those programs do it in that way.

Regards,
Sebastian

<input Type="submit" Name="op-savefile" Value="Save"> - How To S
<input type="submit" name="op-savefile" value="Save"> - How can you submit this button through visual basic in a webbrowser?

Disabling "wake Up", "sleep" && "power" Button
hello there, how to disable "wake up", "sleep" & "power" button with visual basic? thanks

Pleez, Read This!!! Matter Important! "Printing In "DOS Mode" Using "Shell" -not Happening, I Wonder
Hi

[I had to repost it since I have not received any replies for my earlier post]

I have a problem.

Following is the code :

Shell("c:windowscommand.com /c type " & App.path & "matrix.txt >prn")

where App.path is C:XYZ

when the above line is executed, the contents of "matrix.txt" is not printed on the printer. Instead, control just passes on to the next line.

So, to find out why, I modified the line thus.

Shell("c:windowscommand.com /K")

The above command takes me to the "command prompt". Here, when I give the command "type c:xyzmatrix.txt >prn", which is what the vbcode does, I get the message "file creation error".

So, I have identified the problem. Can anyone tell me why this "File creation error" occurs, And how to solve the problem?

Thanks for reading through.

Visual Studio Installer - Location Of "Built" Setup???!
OK, when you click "build" and it create the setup app, where the hell does it save it on your HD???!

Woka

Setup Not Working On "Vista" VB6 And Crystal Report
Hi
We have a package using Vb6 and crsytal reports 8.0 running perfectly on 98/XP/ME/2000. But when we try to install this on Vista, Package gets installed but when we try using Rport it says "Server has not yet been opened". All oher functionality is working like saving database etc.
Setup is made using Installshield.I have tried using installation as "Run as Administrator mode" and tried differen paths in installation too.

Regards,
Amit

Receving Message "Bad Image" For TABCTL32.OCX During Setup Run
I ran the package and deploypment wizard for VB6 to test how an application would be packaged for installation. I emailed the zip file and setup.exe files (along with the setup.lst) to a user and had them detach, unzip and run the setup program. Everything was progressing until I got the "Visual Basic 6.0 Setup Toolkit: Setup1.exe - Bad Image" message which stated: "The application or DLL C:WINNTSystem32TABCTL32.OCX is not a valid Windows image. Please check this against your installation diskette". The Setup program forced the user to abort and de-installed everything. I'm using the "Microsoft Tabbed Dialog Control 6.0 (SP4)" in the application and it works fine on the development machine. Any suggestions?

Getting The File "Type" Descriptions (i.e., "doc" = "Microsoft Word Docume
Hello there,
I am creating an Explorer-type Listview to display the files in a directory, and one piece of info I need to know how to obtain is the file "type" (i.e., "doc" = "Mircosoft Word Document", "xls" = "Microsoft Excel Worksheet", etc.). Is there an API, or does anyone have a technique to do this? Thanks.

Changing The "title" Of A VB Created Word Doc From "Document1" 2 "BadgerBai
Ok, when I create a new word doc it automatically takes on the name "DocumentX", where X is a number greater than 1.
What I want to do is change this by using something like:

VB Code:
Dim objWoof As New Word.ApplicationDim objGrowl As Word.Document Set objGrowl = objWoof.Documents.Add objGrowl.[What Property] = "Badger Baiters R Us"

Is this possible?

Oh, and b4 anyone mentions it, I do NOT want to save it, that is NOT an option...just getting that out the way now

Rarararrrrrrrrr

Woka

Resubmitting: "BeginTrans" , "CommitTrans" And "Rollback With Data Environments
----- Original Message -----

From: shankar [ babu ]

To: visualbasic-l@OpenITx.com

Sent: Wednesday, February 26, 2003 12:24 PM
Subject: "BeginTrans" , "CommitTrans" and "Rollback with dataenvironments

hello everybody,
I am using data enviroment designer in my project.

I am getting error while using
"BeginTrans" , "CommitTrans" and "Rollback"
of the DataEnvironment 's connection properties

kindly let me know the solution
thanks in advance
bye
shankar

Picture Box Scale Mod To Get "graphing" Setup..
hey, this is doin my head in (as is most of this stuff)

i want the area in the picture box to be scaled as being X wide.. and Y high..

what settings do i put into scaleheight/width/top/left in order to have 0,0 bang in the middle??

Two Questions: Api Libraries And Setup "Project1" Name
First of all: I have read all over the forums programmers giving out code using libraries, such as "lib32" and some such. These programmers are doing some very crazy stuff with it. I, however, never learned anything about these libraries. What are they? Any help with them?

Next, some unrelated question. I have made a program and am useing the default microsoft compiler that came with VB6 Enterprise. For some reason, every time I compile the program and turn it into a setup file or a dependancy file, it retains the name of Project 1. I have gone into the project options and changed the title everywhere you could. Why is it still doing this?

Thank you for your help.

"components Are Out Of Date" Setup Error
I am facing problem while deploying client application

While installing it gives the message as following

Some of your components are out of date

It asks for restart. after restarting it dosn'e start the installation again

please help

Problem W/ "SHDOCVW.DLL" & Setup Wizard!!
I'm using the VB5 setup wizard. In many computers, I get an error message when the installation tries to self-register "SHDOCVW.DLL".
How can I fix this without loosing the functionality of this DLL?

Can Someone Guide Me On How To "PUT" A "CHECKBOX" Inside A "Datagrid" For VB6.0?
Can someone guide me on how to "PUT" a "CHECKBOX" inside a "Datagrid" for VB6.0?
please i need these to complete my program security....................for my thesis? please please!!Can someone guide me on how to "PUT" a "CHECKBOX" inside a "Datagrid" for VB6.0?

Combobox Help """""""""""""'Urgent"""""""&&quo
Hi Guys,,,,,,

This may be the stupid way.But i need this.................

I am using combobox in my form. I set the style to Dropdown combo.

Here we can exter text in combobox b'coz of the style Dropdown combo.
But i don't want to allow user to enter ......allowed only to select.....

For that i can set the style to Dropdownlist.

But i don't want this style. B'coz i can't clear the text at run time.

Tell me if dropdown combo means, User shouldn't enter at runtime
Tell me if dropdown list means, how to clear the text at runtime...

Pls help me out.....Urgent
sangeetha

"BeginTrans" , "CommitTrans" And "Rollback With Data Environments
hello everybody,
I am using data enviroment designer in my project.

I am getting error while using
"BeginTrans" , "CommitTrans" and "Rollback"
of the DataEnvironment 's connection properties

kindly let me know the solution
thanks in advance
bye
shankar

Problem With The "setup" Program
I made the install program of my application using the packing assistance. When i try to execute it in other computer with no Visual Basic 6 installed in it , i get a message. " Some system files need to be updated. Press ok to accept the instalation and re start your machine"....

I do like it says but when the restart is complete and i try to install it again gives me the same message. what is happening? what did i do wrong?

Thanks in advance ... any help is appreciated

How Do I Change "DefaultDir=" Under [Setup]?
When I create setup programs for my projects in VB6 the following default parameter is inserted into the Setup.lst:

[Setup]
DefaultDir=$(ProgramFiles)Projectname

Is it possible to change this default? For instance to the following:

[Setup]
DefaultDir=C:Projectname

I would like all my new projects to use this new default whenever I create a setup program.

Crazy Problem With "setup.lst"
Click here to view the problem description.

Thank you

"continue" In Vb6?
hello guys

is there a way to continue the llop in vb6
like we do in c++
i know theres a way of doing that in vb2005
but i want to know if that is possible in slightly older version
im using vb6
thanx
rockbold

May I "continue"?
Here's yet another easy question from a VB novice. In VB what's the equivalent of the "continue" statement used in C++?

Thanks,
Alvaro

Export Table From MS Access To Outlooks Contacts "Standard Field" - With Conatct Item "Notes"
Export table from MS Access to Outlooks Contacts "Standard Field" - with Conatct Item "Notes" ...?

Inverted Commas In String "etc" && Variable && """
I need to include a double inverted comma in a string, here's some more detail...

MsgTitle = "RaceControl 2003"
MsgText = "Enter password."
rcvarValueString1 = InputBox(MsgText, MsgTitle)
rcvarValueString2 = "MS Access;PWD=" & rcvarValueString1 & """
Set dbRacecontrol = OpenDatabase("RaceControl2003.mdb", False, False, rcvarValueString1)

The last part of the Set statement needs to read "MSAccess;PWD=password" including the double inverted commas (where password is the password for the database). However, I want to make the user type in the password... I suppose what i've done so far is correct, but I don't know how to include the double inverted commas in the variable rcvarValueString2. The rest of the Set statement is definitely correct.

Thanks in advance,
Mat

Creating Program "item" In Existing Start Menu "group"
Hi all,

I'm finally at the stage of packaging my application for distibution here at work. When it installs, I don't want it to create a new group in the start menu rather I want to ADD it to an existing group. All of our essential programs go in to a group called "Desktop Applications". During the P&DW, I created a new Group under Programs called "Desktop Applications" and put the program item under that group thinking it would recognize it as an existing group and just add it. Well, apparently I did something wrong because it doesn't add it to this group, nor does it add it anywere else.
Does anyone know how to do this?

How To Change All Cells Format Type From "General" To "Text" Using VB Code
Hi Guys,
I am new to VBA. If you see my code below, it gets the name from user to insert a new sheet into existing work book. Now, when I create this new worksheet, I want to change their all cells format from "General" to "Text". In that case, whatever I add it is saved as "text" not number or general.

How can I do that? Please help me.

Code:
On Error Resume Next
Dim count As Integer

If txtNewSheet.Text <> "" Then
wbDpiFavorites.Sheets.Add

' Get the sheet with the name selected in the Sheet combo box.
Set shtFavorites = wbDpiFavorites.Sheets.Item(1)

shtFavorites.Name = txtNewSheet.Text
cmbSheet.AddItem shtFavorites.Name

cmbSheet.ListIndex = cmbSheet.ListCount - 1

wbDpiFavorites.Save
Set shtFavorites = Nothing
End If

How To Reach Each File In A Folder In Order? With "FileSystemObject" - "Files" Class.
I know that I can reach any file(or filename) by using FileBox control with

Code:
'I can choose any file with its index. The Files are sorted by their names
File1.List(FileIndex)
I want to do the same without using FileBox control, else I tried to reach Files
with

Code:
Dim fso As New FileSystemObject, fil1 As File, fol1 As Folder, fc As Files

Set fc = fso.GetFolder(sFolderPath).Files
MsgBox fc.Count

'Nothing wrong up to here
'but this line gives error
MsgBox fc(1).name

I figured it out that

Code:
Msgbox fc(index) 'is wrong
Msgbox fc(key) 'this is the right one
So what is key here?

And Is it possible to reach each file with in order(as sorted by names)
(ex: I want to access the 6. file or 3. file) with FileSystem Object?

Ofcourse any other ideas will be wellcome.

Emulating The "APPLY" Button Within The Appearance Options "Refresh The New Settings"
Hi Guys,

I'm needing some help with this one. I've got a copy of the HKCUControl Panel hive and need to apply this to the registry and then "apply" the changes. The problem lies with "refreshing" the registry so that the changes apply.

Here's an example:

1. Open Regedit and change the following key = HKCUControl PanelColorsBackground to 0 0 0 (black, or any choice of color!) and close regedit.

2. To apply the changes, a user needs to log off and then back in. This is no good.

I've tried running TSKILL explorer.exe but this does not help either..

Any help would be great.

Msgbox "text", VbOKOnly, "Title" Remove X In Upper Right Corner
The subject title says it all

Thanks

A Stupid Problem: "Error Accessing The System Registry" ("Solved") Thank You
This is a very silly problem. I tried to have a look of References from Project dropdown menu, it returned a critical error:

"Error Accessing the system registry".

I reinstalled VB6 but it seems that the problem still exists. Anybody please tell me how to solve the problem.

thanks in advance

Edited by - kenyiwei on 5/6/2004 2:07:51 AM

EnumWindows AddressOf EnumWindowsProc, 0 "Syntax Error"</title> <script Type="text/javascript"> <!-- Function PrintTags() { Var Curr=document.getElementById('vB_Editor_QR_textarea').value;
I get "Syntax Error" when i put this code in to a button. Whats wrong?

EnumWindows AddressOf EnumWindowsProc, 0

______________________________________________________________________
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim Length As Long
Dim sName As String
Dim Temp As String
Static iCount As Integer

iCount = iCount + 1
Length = GetWindowTextLength(hwnd) + 1

If Length > 1 Then
sName = Space(Length)
GetWindowText hwnd, sName, Length
If Left(sName, Length - 1) Like "Order*" Then MsgBox "window found!"
End If

EnumWindowsProc = 1
End Function