Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




VB Error While Opening.....


Can you tell me the reason for this message.
This appears when i open VB

What is the Solution




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Error Opening Database: Unspecified Error
VB Code:
Function Database_Load(iSQLString)    Dim oXMLHttp    Dim sXML    Dim URL    Dim aString    Open "C: est.txt" For Output As #15    'MsgBox ("Not Implemented yet")    aString = iSQLString                Set oXMLHttp = CreateObject("MSXML2.XMLHTTP")        URL = "http://localhost/default.asp"         oXMLHttp.Open "POST", URL, False    oXMLHttp.setRequestHeader "Content-type", "application/x-www-form-urlencoded"    oXMLHttp.send aString        If oXMLHttp.Status = 200 Then      sXML = oXMLHttp.responseText   ' Retrieve from serverB.      Print #15, sXML    End If        Set oXMLHttp = Nothing


The program loads the database to a local file on startup and works fine.
However when this function is called the second time, to do any SQL queries i always get an Error Opening DB: Unspecified error returned.

any ideas?

OPENING VISUAL BASIC 6.0 ERROR, DAO350.DLL, "Unexpected Error; Quitting"
Hi,

I could really use some help. I am not the most knowledgable and would appreciate any guidance... I did a web search already at some sites including Microsoft, but I have not found a soultion yet.

Problem: CANNOT OPEN VISUAL BASIC 6.0; Says "Unexpected error; quitting"
Machine/Software:
OS: XP Media Center (although system info says XP Professional 5.1.2600 Service Pack2 Build 2600)
PC: Acer AspireE36
SW:Microsoft Visual Studio 6.0 Enterprise Edition

History:
1. Could not open visual basic 6.0. I got the an error that the DAO350.DLL could not be found.

2. So following some suggestions from the web:
a) Renamed old DAO350.DLL as DAO350.DLLOLD
b) I took this file from Visual Studio Disk 1 and copied it into the
C:Program FilesCommon FilesMicrosoft SharedDAO
c) Regsvr32 "C:Program FilesCommon FilesMicrosoft SharedDAODAO350.DLL"
d) Then I got a successful message that it registered
e) It did not work. When I tried to open the visual basic 6.0 now I get:
"Unexpected error; quitting" message.

WHAT DO I DO PLEASE?

I even loaded the component checker 2.0 as suggest via microsoft website to look up the Microsoft Data Access Components (MDAC).
(see Article ID: 304230 and 301202 on http://support.microsoft.com/kb/304230 and htpp://support.microsoft.com/default.aspx?kbid=301202))

It says MDAC 2.8 SP1 ON WINDOWS XP SP2. I am not sure what this MDAC does for me, but I looked at it anyways.

Error Opening .vbp
I am trying to open a .vbp that I recently had no problems with. The project is sitting on a Network drive, yet I get the following error while trying to run the .vbp:
Could not create reference: 'C:Program FilesMicrosoft Visual Studio\VB98DATAVIEW.DLL'
C: is of course my hard drive. I can actually say OK and the project opens, and can be run. Have yet to find where any problems occur from this error.

Any suggestions would be greatly appreciated.

Error When Opening EXE?
When I go to FIle>Make EXE, it seems to work fine, but when I try to run the EXE I get thsi error:

"The procedure entry point InitializeCriticalSection X could not be located in the dynamic link library KERNEL32.DLL."

I have absolutely no idea what the error means or why its showing up. When I run the program in VB it works fine.

Any ideas?

Error Opening Vb..?
Anyone else had this error ?

VBDataViewWindow - Object doesn't support this property or method

This is while VB6 Pro is opening (SP3).


I've just reinstalled it - do I need to properly uninstall ? Or just grab the latest sp ?


Vince

Error Opening Com Port
Application: Controlling two LCD projectors through a serial interface. Each projector has a dedicated serial link, therefore two Com ports are used.

The MSCOMM control is used to interface with the available Com ports. The code includes a generic error trap: when the PORTOPEN property is set to TRUE, any error generated when the program attempted to open the Com port will trigger a message box informing the user that an error was encountered.

This program works on my laptop, using a 4-port USB-serial converter box made by Keyspan.

Using the VB6 package and deployment wizard, I installed this program on a desktop computer (Windows XP) equipped with a pair of USB-Serial adapter cables (manufacturer = ??). Running the program on the desktop computer, I get the message boxes from the program error trap indicating that the program was unable to open the Com ports.

I checked the port number assignments from the computer 'control panel' - 'system' - 'device manager', and I believe that my code is set to open the ports as they are assigned.

--> Any suggestions on what the problem might be, or how to troubleshoot further, whould be greatly appreciated.

Thanks!

Error When Opening A Form
Hi all,

I have a program coded by VB. When I double click on the main form, it raises an error. Some thing like this:"The instruction at '0x00589ddb' referenced memory at '0x6c6584b1'. The memory could not be 'read' ".

Please let me know why? and how to fix it?

Thanks a lot.

Error On Opening A Recordset Again
When trying to open a recordset again, I get the following:
"Item cannot be found in the collection corresponding to the requested name or ordinal" error (3265)

here is the code:

Code:
Dim tmpPerson As New ADODB.Recordset

With tmpPerson
querySQL = "Select * from " & tables(9) & " where P_Code = " & P_ID.Caption
.Open querySQL, DBConnection, adOpenStatic, adLockOptimistic, adCmdText
' update table
.update
.close
end with
With tmpPerson
querySQL = "Select * from " & tables(8) & " where P_Code = " & P_ID.Caption

' produces error on this open
.Open querySQL, DBConnection, adOpenStatic, adLockOptimistic, adCmdText

' update table
.update
.close
end with
I tried the SQL statement in Access and it worked fine. Why am I getting it?

ERROR Opening A Record Set
Hi All

im getting the following error message when i go to open a record set

------------------------------------------------------------------------------
Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work Was done.
------------------------------------------------------------------------------

this is the code:

------------------------------------------------------------------------------------
Date1 = InputBox("Please Enter In An Archive Date: dd/mm/yy", vbOKOnly)
SQL = "SELECT * FROM Document_Archiving WHERE Archive_Date = ' " & Date1 & " ' "
rs.Open SQL, cnAppsLog, adOpenKeyset, adLockReadOnly
------------------------------------------------------------------------------------

Archive_Date is a smalldatetime held in an sql 7 database

if any has any ideas as to what the problem is
it would be much appriciated

thanx
shane

Error When Opening Connection
Hi,

I'm trying to access the database and I get an error 3709: The connection cannot be used to perform this operaton. It is either closed or invalid in this context"

Code:
Private Sub Form_Load()
Call Opendata
End Sub
The following is in a module

Code:
Option Explicit

Public Conn As New ADODB.Connection
Public Cmd As New ADODB.Command 'Declare the command and connection objects
Public RS As New ADODB.Recordset 'Define the properties for the Connection Object

Public Sub Opendata()
Conn.Mode = adModeShareDenyNone
Conn.CursorLocation = adUseClient
Conn.Provider = "Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString = "Persist Security Info=False;" & "Data Source = G:COMPOPSTAPE INVENTORYTapeInventory.mdb"
Conn.Open
'Define the properties for the Command object
Set Cmd.ActiveConnection = Conn
Cmd.CommandType = adCmdTable
Cmd.CommandText = "Inventory"
RS.LockType = adLockOptimistic
RS.CursorLocation = adUseClient
RS.CursorType = adOpenKeyset

'If RS.State = 1 Then RS.Close
End Sub
I get the error at the open step


Code:
Private Sub cmdAddTape_Click()
'If RS.State = 1 Then RS.Close
RS.Open Cmd '<------------error occurs here
RS.AddNew
RS("Date") = txtDate.Text
RS("Location") = txtLocation.Text
RS("VolumeID") = txtVolume.Text
RS("MediaServer") = cboMedia.Text
RS("TapeType") = cboTapeType.Text
RS("TapePool") = cboTapePool.Text
RS("ExpirationDate") = txtExpiration.Text
RS.Update
MsgBox ("Tapes Successfully added")
End Sub
Please help

List Box Error + Opening DB Through VB
Im posting 2 questions here, the first being a follow up from a previous thread.

I have a table called tbl course. I want am trying to enter all course names into a list box and then when the course is lciked, all its relevant information is shown in text boxes. I was instructed to use this way but am getting an error.

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim sql As String
Dim sql2 As String

Private Sub Form_Load()
'Creating link to databse
Set conn = New ADODB.Connection
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "system.mdb"
conn.Open

Set rs = New ADODB.Recordset

'sql string
sql = "SELECT * FROM tblcourse"

'put data into recordset
rs.Open sql, conn, adOpenDynamic, adLockBatchOptimistic


Do Until rs.EOF
lstcourses.AddItem rs!course_name
rs.MoveNext
Loop


'second recordset
Set rs2 = New ADODB.Recordset

lstcourses.ListIndex = 0
'second sql statement
sql2 = "SELECT * FROM tblcourse WHERE course_id = '" & lstcourses.Text & "'"


rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic

txtcoursename = rs2!course_name



End Sub

It says somthing about EOF or BOF is true and it needs a record. there are definantly records in the databse. This line is being highlighted.
txtcoursename = rs2!course_name

How can i correct this or use an alternate method(whichevers easier)

And my second question, how can i simply open my databse through VB?

thanks alot

Opening Database Error
hello!

i am trying to connect to my database but because i am working on my project at home and work i want it to find the database so i dont have to keep changing the drive letter myself. i was told that App.path will do this but when i try to run it the following error occurs:

"cannot start your application. the workgroup information file is missing
or opened by another user"

ive looked this error up and it seems to have something to do with a user name and password for the database but it does not have one on it, ive tried putting User ID=Admin into the code below but the same error occurs.

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection .
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;;Data Source=" & App.Path & "Reports9-2003.mdb;Persist Security Info=False"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "year9", cn, adOpenKeyset, adLockPessimistic, adCmdTable

does anyone know what i can do??
thanks in advance

Error Opening A .vbp File
When attempting to open a .vbp file in Visual Studio 6.0, I get asked these three questions. I answer yes to all three, but then am unable to view any of the project file, source code, etc.

File not found: 'vti_encoding:SR|utf8-nl'--Continue Loading Project?

Path/File access error: 'vti_timelastmodified:TR|10 May 2000 22:31:42 -0000'--Continue Loading Project?

File not found: 'vti_extenderversion:SR|4.0.2.2717'--Continue Loading Project?

How can I open this project to edit the source code?

Error Opening Database
When I open a converted database into data1 I recieve this error "0 -"

Here is my error handling:

VB Code:
If Err.Number <> cdlCancel Then   MsgBox Err.Number & " - " & Err.Description, vbOKOnly + vbExclamationEnd If


The database continues to load just fine and then when i search the records i recieve the error "Object required".

VB Code:
Here is my error handling for that:err_GoB_Click:MsgBox Err.DescriptionErr.Clear    Resume exit_GoB_Click


If you need the actual code that shows how I connect and search the database let me know.

Error Opening Workbook From VB In XP
I'm getting "file was not found" error opening an Excel workbook from VB with the following code. The file is clearly there, I promise.


VB Code:
Set ExlObj = CreateObject("excel.application")ExlObj.Workbooks.Open "C:AOIdata.xls"

This code works fine on another machine running Windows 2000 and the very same Office 2000. Downgrading the customers OS is not an option. I'm going nuts...

Norris

Error While Opening Application
While opening the application i m getting this kind of error"the instruction at "0X0048639A" referenced at memory "0X0000060", the memory could not be read". if i click on "OK" its exit from project else i click on "Cancel" its openinf VC++ Debugger. plz solve my problem i m working on Imprt Export project & its very much important 2 my company.

Error Opening Word
hello,

I'm making an application that generates a report. I openword and a template (.dot), then i fill the document with the data... everything is working fine.

when MsWord is allready opened i get this error on the following line

set objword = new word.application

the error is "automation error, incorrect function"

There must be a way to prevent this, i found one with an error-object but it is still showing a messagebox "word wannot open the existing ..." The program keeps running now but i want to write my own messagebox since our users need lots of guidelines

just like me on this one...


thx 4 your time

Error Message Opening Vbp
i got this error when i open a dll vbp

unable to set version compatible component : d:pathobject name

then unable to load dll

anyone knows why ?

Error Opening Form
Every time I try to load into VS a form I get the following error :

"Class.....was not a loaded control class"


Can anyone suggest to me whats up ?

TIA

Error Opening A Form
Here is the problem I am having. I have a MDI,when the user clicks a command button returning the
user to the application main form they get an error that reads:

Common Language Runtime Debugging services.
Application has generated an exception that could not be handled.

Process ID = 0x2a0(672) Thread ID = 0x6ec(1772)

When the user clicks ok the application ends.

Here is part of my problem. This only happens randomly maybe one time in 50 to 100 times on going from
one form to the main form, also I have not been able to duplicate this error in the development environment. It only
seems to happen when an exe is deployed to a user machine.

Here is the code that is being used in a form to take the user the the main form


Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHome.Click
Dim cmdBuilder As New SqlCommandBuilder(adpRelease)
adpRelease.Update(Me.dtRelease)

Me.Close()
End Sub

Protected Overrides Sub OnClosing(ByVal e As System.ComponentModel.CancelEventArgs)
Dim frmMain As New frmMain()
frmMain.Show()
Me.Hide()
End Sub



Thanks for any help any one can give me,

Al

Runtime Error 462 When Opening The App Again.
Hi,
If you have not read my other posts im trying to print at the moment.
I now have the print working but if I press the print button more than once, I get this runtime error.
Th eerror message is as follows:
Run-Time Error 462.
The Remote server machine does not exist or is unavailable.

Now here is my code:

Dim oWord As New Word.Application
Dim oDoc As New Word.Document

Set oDoc = oWord.Documents.Add("c:irsirsquote.dot")

With oDoc

Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "yourfield1"
.Replacement.Text = (lblQuoteNumber)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

End With
Selection.Find.Execute Replace:=wdReplaceAll


End With
oDoc.PrintOut Background:=False

oDoc.Close saveChanges:=False

Set oDoc = Nothing

oWord.Quit
Set oWord = Nothing

End Sub

Any help with this will be most appreciated.

Andy

Error Opening .asp Files
before it gave me HTTP error 500 internal server error, when I tried sample.asp. I gave permissions to read/exec permissions to all and it worked. Now I am getting the following (I unchecked HTTP friendly messages) when I try to open any of the .asp files

error '8002801d'
Library not registered.
/iisHelp/common/500-100.asp, line 10


Thanks a lot

Error Msg When Opening Links
I have a spreadsheet with links to photos on my hard disk. When I click the link, I get this:
--------------------------------------------
Opening D:Photosinterim404.tif

Some files can contain viruses or otherwise be harmful to your computer.
It is important to be certain that this file is from a trustworthy source

Would you like to open this file?

OK Cancel
-----------------------------------------
Since these files are on my own disk and I put them there, I am not worried that they might contain viruses. I set the security to "low". And I went through the Tools>Options. But I cannot find a way to get rid of this annoying popup.
Any ideas?

Getting Error Opening Database
Hi,

I've written an application where I access a MS Access db. Everything was working fine until today. Now I get this stupid error and I can't figure out why. The error is:

3024: Could not find file 'C:VBBudgeterBud.mdb'

I've attached the code for inspection.


Public Sub open_database()
Dim strPath As Variant

On Error GoTo ErrorProc

strPath = App.Path & "Bud.mdb"

Set db = OpenDatabase(strPath)

Exit Sub

ErrorProc:
MsgBox Err & ": " & Error
End Sub


thanks,
Jeff

Error 429 Opening P&&D Wizard
I get an Error 429 while trying to open the Wizard.

Can anybody help?
thanks!

Error 424 Opening An Image
here my bad for this post but my friend here will post the error...

Error When Opening Database
Having installed the old VB4 in a new computer, now I have
problem to run the programs made with it, because when the
program starts, there is an error message "Out of memory - error
2004". Debugging the program, it shows that this occurs when
trying to open a database file. I din't find error 2004 in the
help entries of VB4. If anyone knows the problem and how to get
rid of it, I would appreciate a lot.

Error In Opening File In Vb
Hello friends,

i wrote a program for Connecting a telephone thru vb using TAPI and play a wave file on the phone line.When i execute the program the phone is connected successfully but no wav file is played.
 
the error accured is 'error no 32'(during file openning) i can't resolve the error.if any one know the error status description plz help me!

Thanking u all!

Boomi.

Error When Opening Xls Files.
Hi guys!

I'm working in a project that opens xls files, but these days i'm receiving fake xls files, when u open it you see that the file is a binary file. The problem is that my application stops because of a message box that appears saying that the file is not a valid excel file (or something like that). Nothing else is done until someone hit the "ok" button...

How can i avoid it ?My application can not stop reading the other files.... if that file is not a valid xls file, the application must ignore that file and keep processing the others...

Error In Opening A File
Hi! I'm encountering errors with my code. It's an excel file that has workbook name "CBU" and it has a worksheet name "CBU". Now my problem is when the worksheet name does not match like it could be "Sheet 1" or "Sheet 2" if the user will open a different file. There is a message error saying "'CBU$' is not a valid name. Make sure that it does not include invalid characters or punctuation and that it is not too long." See I put err here so that when this error will be encountered, there will be a instruction for the user but still this error message keep on displaying. How will I solve this? Kindly help me. Thank you so much!



CODES:


Code:
On Error GoTo err

Call XConn(AdoEntry, "Select * from [CBU$] order by ETA")
AdoEntry.Refresh

Set dtaCBU.DataSource = AdoEntry
dtaCBU.Refresh

With dtaCBU
.Columns(0).DataField = "VINNO"
.Columns(0).Caption = "VIN No."
.Columns(0).Width = 2000

.Columns(1).DataField = "ENGINENO"
.Columns(1).Caption = "Engine No."
.Columns(1).Width = 1500

.Columns(2).DataField = "KEYNO"
.Columns(2).Caption = "Key No."
.Columns(2).Width = 1300

.Columns(3).DataField = "COLORCODE"
.Columns(3).Caption = "Color Code"
.Columns(3).Width = 1300

.Columns(4).DataField = "MODELCATEGORY"
.Columns(4).Caption = "Model Category"
.Columns(4).Width = 1500

.Columns(5).DataField = "MODELCODE"
.Columns(5).Caption = "Model Code"
.Columns(5).Width = 1500

.Columns(6).DataField = "LOT_ID"
.Columns(6).Caption = "Lot Code"
.Columns(6).Width = 1300

.Columns(7).DataField = "VESSELNAME"
.Columns(7).Caption = "Vessel Name"
.Columns(7).Width = 1500

.Columns(8).DataField = "ETA"
.Columns(8).Caption = "ETA"
.Columns(8).Width = 1500

.Columns(9).DataField = "COUNTRYOFORIGIN"
.Columns(9).Caption = "Origin"
.Columns(9).Width = 1500
End With

txtTotal.Text = AdoEntry.Recordset.RecordCount
Exit Sub

err:
MsgBox "Worksheet name is not valid. Please change it to ""CBU""", vbOKOnly + vbExclamation, "TFLP Vehicle Monitoring System"
txtFName.SetFocus
Exit Sub

Error In Vb Project While Opening
While opening my project i'm encounted with an error 'Object library not registered'. i have worked with Microsoft ActiveX Object library 2.5 and now with new installation of VB i don't have this library. So from where i can get this Library so that i can solve my problem?

Error Opening CommPort In NT4.0
Does anybody know why the comm control fail when opening a commport in NT4.0?

If I execute my app in Win95/98, everything works fine but not when I run it

in NT4.0 workstation.


Regards.

File Opening Error
I create a program that need read from file.But the problem is sometime the file not found.I using open "C:sample.txt" for input as #1.I just would like to know how I can check this file either already exist or not.

Thanks

Opening Odd Files / Input Error
i want to have my program open non text files in text format, like a dll for example, to see all that gobldy-gook like one can in notepad.

the standard:

Dim A
A = FreeFile
Open strPath For Input As A
txtEntered.Text = Input(LOF(1), #A)
Close #A

gives me an "input past end of file" error, how might one go about this?

this occours with non-text files only.

Critical Error Opening Workbook
I am using VB6 to work with the Excel object. This works on all but one of my associates computers. The symptom is that the create object Excel works, but the ExcelApplication.Workbooks.Open fn fails and displays that wonderful 'want to send a message to micro..' It leaves Excel open so I just go to file and open the workbook but obviously my app is gone. It appears to me that there is some sort of permission that needs to be granted, but I am at a loss. It is Norton virusscan. This also happens with Word. Any ideas? Thanks.

ACC 2000: Error When Opening Report
Hi;

I have got a report in MS Access 2000, which is based on a query. When I open the report from design mode using the preview button or when I open it by doubleclicking the report I get the following error:


An error occurred while sending data to the OLE Server (the application used to create the object).

However when I am in desing mode and I go to the Graph that is located on the report and view the recordsource, close the recordsource and preview the report everything works fine, no error messages.

I know that MS Access has it's "problems" but this is at least weird. I tried debugging by using breakpoints and the "break on all errors" option but all to no avail.

If there is anyone that can help me, it is greatly appreciated.

Cynder

Opening Worddoc Gives Error Using Second Time
I'm opening and edeting an existing Word doc. using the following code.
Every time using it the fist time it works ok, but using it the second time (for a new document) I get an error. Only after a restart I can use the code again, but using the second time again an error.
the error is: the external server computer does not exist or is not available.
Some one any idee ??

Kees


Dim objWord As Object

Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open FileName:=stDocName

Set myrange = ActiveDocument.Range(Start:=0, End:=0)
With myrange.Find
.ClearFormatting
.Text = "===CONCEPT==="
With .Replacement
.ClearFormatting
.Text = ""
End With
.Execute Replace:=wdReplaceAll, _
Format:=True, MatchCase:=False, _
MatchWholeWord:=True
End With

ActiveDocument.Close

objWord.Quit SaveChanges:=wdSaveChanges

Set objWord = Nothing
Set myrange = Nothing
'

Error When Opening Excel File
Hello,
I have two problems.
1. I am trying to read an excel file from my VB.NET application. In debug mode from visual studio, I am able to open it without any problems. But when i execute the exe of my application independently, I get the exception 'File or assembly name Interop.Excel, or one its dependencies, was not found'. What am I missing here?

2.I am also not very much aware of distributing applications. Right now I just copy the exe file in objDebug and try to run it. How am I supposed to package and distribute my application? Will it be enough if I just distribute the exe file mentioned above?

Could anyone guide me on this.
Thanks in advance,
SHankar

Error Opening Excel File
I have a project that reads through a text file pulls out information and compares it to info stored in an Access DB to open an Excel file with the completed information.

The way it works is, a text file is pasted into my project and then a button is pressed to open the completed information in an Excel file.

The problem is if I try to run it twice (Run it once to open the completed info in Excel, close the Excel file and then click the button to run it through again) I get an error that says:

Run-time error '1004':

Method 'Range' of object '_Global' failed

It puts the cursor at the following line:
Code:
Range("A25:B26").Select
Which is the first line that merges and formats some cells in Excel....
Code:
Range("A25:B26).Select ' Cursor is placed here
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = True
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
obWorkBook.Worksheets(Index).Range("A" & Cell) = recSQL("bin")
If I close the project and reopen it, it works fine....

Any ideas?

Thanks a lot,

Tom

Error When Opening Html File
I get an error when opening an html file fom my menu.
error: Run time error '424'
object required


Code:
Call WebBrowser1.Navigate2(Dir1.Path & "docsdi.htm")
any help or ideas would be greatly appreciated.

Error Copying, Then Opening Program
I'm using the below code to backup my app however when I try and open the backup app I get a "Run-time Error 70. Permission Denied" Can anyone tell me why i'm getting the error and how to get rid of it?


Code:
FileCopy App.Path & "AppName.exe", "C:Program FilesAppName.exe"

Strange Error On Opening A Recordset On Different OS
Hi,

I have the problem that a VB application I wrote on Win2k doesn't run on Win98, bringing the bug (manually translated into english) "Choosen sort order is not supported by operation system". (&h80040005) The problem appears on a view in MS Access. There is no sort order in it, neither in the view itself nor in the open statement. I can open the view with MS Access, and if I start the application from inside VB the error don't occur. All drivers ar up to date (ADO 2.7, VB SP5). What may be cause for that error or how can I solve it?

ciao!
Kai

Error On Opening A Access Database
I'm a newbee and I'm doing a tutorial, I set everything like below and it comes up with :
no value given for one or more required parameters.

anyone?

this is the code I used

Private Sub Form_Load()
Dim myConn As Connection
Dim MyRecSet As ADODB.Recordset
Dim strName As String
Dim strMobile As String
Dim strPhone As String
Dim strGroup As String
Set myConn = New ADODB.Connection
myConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:Documents and SettingscvanginkMy DocumentsVBDBProperRoute.mdb;"
myConn.Open
Set MyRecSet = myConn.Execute("SELECT NameMember, groupName, telephonenumber, Mobile,E-Mail FROM MemberTable")

Do Until MyRecSet.EOF
strName = MyRecSet.Fields.Item("NameMember").Value
strGroup = MyRecSet.Fields.Item("groupName").Value
strPhone = MyRecSet.Fields.Item("telephonenumber").Value
strMobile = MyRecSet.Fields.Item("Mobile").Value
lstData.AddItem strName & " - " & strAddress & " - " & strPhone

MyRecSet.MoveNext
Loop



myConn.Close

End Sub

Strange Error On Opening A Recordset
Hello,
the following code raises a strange error.
Connection to DB is OK.

Private Sub Command1_Click()

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

Dim sqlRS As String
sqlRS = "Select * From TBL_ANA_PNF;"

rs.Open sqlRS, Con, 1, 3

Do While Not rs.EOF
Print rs.Fields(1)
rs.MoveNext
Loop

End Sub


Reading the line rs.open sqlRS,Con, 1, 3
raises the following error:
Invalid Object Name 'TBL_ANA_PNF'. This table does exist in the Db.
Can anybody help me?

Error Opening Database/table
I'm using this code:
' Export of RONotes
Set MyConn = New ADODB.Connection
MyConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "RONotes.MDB;"
MyConn.Open

MsgBox (MyConn.State)

Set MyRecSet = MyConn.Execute("SELECT * FROM SFtable")
MsgBox (MyRecSet.RecordCount)
.................................................
To open a database and get values from a table. The MyConn.state always shows "1", but MyRecSet.RecordCount always shows "-1". But this table has 2 rows that are populated.

What am I doing wrong?

Run Time Error When Opening Excel
I'm working my way through Si's "Automating Excel Tutorial" and the early binding code is throwing a Run Time Error "Method 'Add' of objects 'Workbooks' failed". My OS is XP and I'm using Office97 with Excel8.0 from the Reference Library. It runs fine if I use On Error Resume Next but I don't like masking errors. Anyone have a clue?
Btw, the Task Mgr shows Excel running when I run the code?

Code:
Option Explicit
Dim oXLApp As Excel.Application
Dim oXLBook As Excel.Workbook


Private Sub Command1_Click()
Set oXLApp = New Excel.Application
' On Error Resume Next
Set oXLBook = oXLApp.Workbooks.Add ' Throws error here!
oXLApp.Visible = True
Set oXLBook = Nothing
Set oXLApp = Nothing
End Sub

Error Opening Crystal Report From VB 6.0 GUI
Hi,

My GUI is in Visual Basic 6.0. which tries to open a report which is developed in Crystal Report. The current verison of CR is 8.0.1.0. The problem I am facing is whenever my GUI tries to open a report, it first pops the message "Server has not yet been opened". The reports runs fine with the Crystal Report but gives problem when calling from VB GUI.

Looking for any valuable suggestions/solutions...

Regards
DP

Error Opening Database That Is Already Opened
Hope someone can shed some light on this error for me.

I am getting an error during my Form_Unload

the error reads something like this:

Error Number: 3356
Description: You Attempted to opena database that is already opened exclusively by user 'admin' on machine 'XXXXXXXXXXX'. Try again when the database engine is available.
Source: DAO.DbEngine

I am the user that it says currently has it opened.

Any ideas what this could be????

Error Opening Saved Database.
I get an error stating that my database format is invalid. Can someone tell me if it is my code or the database i just saved?


VB Code:
With CommonDialog1  .CancelError = False  .Filter = "Access Database (*.mdb)|*.mdb|"  .DialogTitle = "Save Access Database File."  .ShowSaveOn Error Resume NextOpen .FileName For Output As #1Print #1,Close #1End WithMsgBox "Database has been saved, you may now proceed to edit the database.", vbOKOnly, "Open & Save"TractPro.ShowUnload Me

Copyright 2005-08 www.BigResource.com, All rights reserved