Visual Basic :: Network I/O Error Or System Error Device Error

System.Data.SqlClient.SqlException: General Network Error
When filling a dataset I am getting this error.
Me.daProject.Fill(Me.dsProject.Project)

PHP Code:

An unhandled exception of type 'System.Data.SqlClient.SqlException' occurred in system.data.dll

Additional information: System error.

System.Data.SqlClient.SqlException: General network error.  Check your network documentation.
   at System.Data.SqlClient.SqlConnection.OnError(SqlException exception, TdsParserState state)
   at System.Data.SqlClient.SqlInternalConnection.OnError(SqlException exception, TdsParserState state)
   at System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning()
   at System.Data.SqlClient.TdsParser.ReadNetlib(Int32 bytesExpected)
   at System.Data.SqlClient.TdsParser.ReadBuffer()
   at System.Data.SqlClient.TdsParser.ReadByteArray(Byte[] buff, Int32 offset, Int32 len)
   at System.Data.SqlClient.TdsParser.ReadString(Int32 length)
   at System.Data.SqlClient.TdsParser.ReadValue(_SqlMetaData md, Int32 length)
   at System.Data.SqlClient.SqlDataReader.SeqRead(Int32 i, Boolean useSQLTypes, Boolean byteAccess, Boolean& isNull)
   at System.Data.SqlClient.SqlDataReader.SeqRead(Int32 i, Boolean useSQLTypes, Boolean byteAccess)
   at System.Data.SqlClient.SqlDataReader.GetValues(Object[] values)
   at System.Data.Common.SchemaMapping.LoadDataRow(Boolean clearDataValues, Boolean acceptChanges)
   at System.Data.Common.DbDataAdapter.FillLoadDataRow(SchemaMapping mapping)
   at System.Data.Common.DbDataAdapter.FillFromReader(Object data, String srcTable, IDataReader dataReader, Int32 startRecord, Int32 maxRecords, DataColumn parentChapterColumn, Object parentChapterValue)
   at System.Data.Common.DbDataAdapter.Fill(DataTable dataTable, IDataReader dataReader)
   at System.Data.Common.DbDataAdapter.Fill(Object data, Int32 startRecord, Int32 maxRecords, String srcTable, IDbCommand command, CommandBehavior behavior)
   at System.Data.Common.DbDataAdapter.Fill(DataTable dataTable, IDbCommand command, CommandBehavior behavior)
   at System.Data.Common.DbDataAdapter.Fill(DataTable dataTable)
   at ProjectOpening.frmProjectInfo..ctor() in c:tempmyProjectfrmProjectInfo.vb:line 39

Run Time Error 3043: Disk Or Network Error
Hi All,

I have developed a VB6. application which connects to two database SQL Server and MS access. User connects to SQL database using windows authentication.

I have applied user impersonation in code. In code application first connect to SQL database which can present at the same or any other machine. After that application connects to Access database which is present at the same machine. Now if I use same user in windows and application then my application works fine. But I use one user in windows and other user in application then I am able to connect SQL Server database but when it tries to connect .mdb(access) database it is giving an error "Disk or network error".

Excel XmlHTTP Object Error Message - System/runtime Error
Hi guys,

Thanks for reading my thread. This is a VBA problem for something in Microsoft Excel - I wasnt sure if I should really be posting this problem on this kind of forum, so apologies if I am in completely the wrong place! I have looked on google and used the search feature and found very limited information that is useful to me.

I am having trouble with a very simple few lines of code in a macro. The code looks like this:

Code:

Function startmarketIDs()

Dim targeturl, writerow, readrow, textmass, xmlHTTP

targeturl = "http://lite.betfair.com/Events.do?s=00010913z"

Set xmlHTTP = CreateObject("Microsoft.xmlHTTP")

xmlHTTP.Open "GET", targeturl, False
xmlHTTP.send

MsgBox xmlHTTP.StatusText
textmass = xmlHTTP.responsetext

MsgBox textmass

End Function

My problem occurs at the line "textmass = xmlHTTP.responsetext"

The responsetext command is obviously causing problems because if I remove it, the code executes without error and the "xmlHTTP.statustext" says "OK". With the responsetext command left in, the code generates the following error:

Run-time error '-1072896658 (c00ce56e)':

System Error: -1072896658.

If I change the targeturl to www.betfair.com, the code executes fine and I get a message box (as desired) with the source code of the website displayed. There is therefore something about the url or the way in which I am using the xmlHTTP object that is causing the issue, I wondered if someone would mind inspecting my code and perhaps pointing me in the right direction?

I am not an expert in VBA programming, and I feel a little out-of-my-depth using the xmlHTTP object, but Id really like to get hold of the source code of the targeturl so that I can parse it for some data that I require. Thanks to anyone who can offer me any assistance,

Regards,

Porky / Paul

App.LogEvent Error -2147024882 (System Error &&H80004005 (-2147467259).
Hi all,

I knocked up a project and decided to use App.LogEvent to log errors, so I set up the event log:

CODE Call App.StartLogging(sUnusedFileName, vbLogToNT)

System Error &H80004005(-2147467259). Unspecified Error
The subject is the error. I'm going to look it up now. But this happened when I cycle through the Recordset object for a particular form connecting to the specifi database table.

System Error &H80004005 (-2147467259). Unspecified Error
System Error &H80004005 (-2147467259). Unspecified error ...?

Disk Or Network Error/Run Time Error 91
I'm trying to open a project I started at school here at home but I keep getting this error. I'm not sure what it is because this worked just fine at school.

It also leaves me this message with the run time error 91.

"Object variable or with block variable not set"

and points me to this part of my code when I press 'debug'

"Private Sub Form_Activate()
lblName.Caption = Str(datPlayers. _
Recordset.AbsolutePosition + 1)"

I'm sure it's not that hard to fix, but I'm lost.

Error Msg - "Run-Time Error '-2147417848(80010108)': Automation Error
I have a menu-item which when clicked starts up a browser and goes to the site which the user selected from the appropriate menulist. It works fine in VB6 when I click on the play button, (design time). However, after using the Package & Deployment Wizard, I get the following error message: "Run-Time error '-2147417848(80010108)': Automation Error What in the world is going on. Is it that the browser object is not installing correctly since it works in the VB6 environment? :-( Or is it some code that is creating the problem. I am still new at this, but making great progress. Just ready to get this beta out to some of my testers.

I was under the impression that if you could run the program during the design process without any problems, then you could run it after compiling and packaging with the Deployment Wizard.

email should be on my post,... however it is:
scrocker@midsouth.rr.com

Thanks,
Sal

Device Error I/0
hi guys, iv got this problem when trying to load certain projects. I also got this error when adding a class module. it doesnt occur when attempting to load all projects... Why is that? What causes it? Possible Fix?

im using visual basic 6 pro. on XP sp2

any help would be much appreciated.

Device I/O Error
Hi All

I usually receive an error Device I/O Error 57 when I try to print. In order to fix that I have to reboot the machine, does anyone know who to solve that problem.

Problem With Error-handling: First Error Handled, Second Error Breaks
Once again working with my Queue system, I have come across a bit of a strange problem. Right now I have the Queue set up as a loop where it processes all tasks until there are no more tasks remaining. Tasks are in sub-procedures, which are called from inside the loop. I have set up error-handling to be in the procedure with the loop (called PerformTasks). If one of the sub-procedures hits an error, the error-handling is taken care of by the PerformTasks sub.

The error-handling in PerformTasks is simple, it just raises an error event that will show up on a display to the user, then removes the task that caused the error, and then uses a GoTo to jump back in the processing loop. Here is a stripped-down example:

Code:
On Error GoTo PerformTasks_Error

'get the first task in the queue
lngTaskID = GetFirstTaskID

'check to see if there are actually tasks in the queue
While Not lngTaskID = -1

'get the details about this task
Set objTask = GetTaskDetails(lngTaskID)

'now based on the type of operation that must be performed, we do it
Select Case objTask.Task_Type

'do tasks based on select

End Select

'we need to remove the task here now, since otherwise we will loop endlessly
RemoveTask lngTaskID

'get the next task
lngTaskID = GetFirstTaskID

'do reporting at very end so that if there was an error we catch it as an
'error instead of reporting a completed and an error
'report the task completion via the event
RaiseEvent TaskCompleted(objCompletedTask)

'this lets us get back into the loop for continuing the queue after errors
Error_Resume:

Wend

'all of the tasks are complete so raise the all tasks completed event
RaiseEvent AllTasksComplete

Exit Sub

PerformTasks_Error:

'error, so remove task
RemoveTask lngTaskID
'get the next task
lngTaskID = GetFirstTaskID
'raise the error event
RaiseEvent TaskError(objTask)
'resume processing
Err.Clear
GoTo Error_Resume

The problem I'm having is that the error-handling only works for the first error. I have 4 RemoveFile tasks in a row that will all error out for the same reason (it's trying to delete a file that doesn't exist). The first time through, when the error happens, it jumps out of the RemoveFile sub and into my PerformTasks_Error as it should. The second time, however, it breaks with a "File not found" error. This is even though I have error-handling set to "Break on unhandled errors", and this SHOULD be handled - after all, it handles it the first time.

I added the line that says "Err.Clear" because I thought maybe I had to reset the error object after the first error catch...but that didn't help. I feel as though I might be on the right track with that tho, from this in the MSDN help:

Quote:

The Err object's properties are reset to zero or zero-length strings ("") after an Exit Sub, Exit Function, Exit Property or Resume Next statement within an error-handling routine. Using any form of the Resume statement outside of an error-handling routine will not reset the Err object's properties. The Clear method can be used to explicitly reset Err.

Any suggestions appreciated.

Device Lost Error
I get that error when I run the code from Jack's site. Actaully I get the hex code '88760868'....I looked that up in the DirectX error lookup and I got this:

HRESULT: D3DERR_DEVICELOST
Description: Device lost

The code is attached at the bottom, and any help is appreciated.

VB Error: "Error Accessing The System Registry"
This is not a coding problem, but I didn't know which forum to post in. If a mod feels it should be moved then go for your life.
Cheers.

When I try and view a projects references I get the error:

"Error accessing the system registry"

No err number or anything.

Ok...I DO have FULL access permissions to the registry, trust me on that b4 anyone jumps to that conclusion. It won't even work when I log in as the PC local admin.

I have un-installed VB, re-booted and re-installed, but the error is still there. Arrrrghhh.

I can view components added to the project and can add/remove these as I please, it's just references that I am having the problem with

Can anyone point me in the right direction?

And no, menhack, it's not coz I like licking slugs!

Woka

ERROR On Communicating With GSM Device Through Infrared
Dear all,
First of all let me thank everyone who participates in this forum that I found it (if not the most) one of the most useful forums on the net.

Now, here is the situation:

I've been trying to receive an incoming SMS through various comm ports. (you know...the same old story!)

I found this piece of code in one of the threads. (it's onEvent based). It works perfectly when I connect my mobile phone to COM1 through a serial cable. However, when I try to connect it via infrared port it bangs with this error:
"error reading comm device"

So.. basically, once the form is loaded the port's settings will be defined. There is a textbox displaying what is being received. and a button to send a simple "AT" to the device (to get a simple OK).

Please note that I tried this with "HyperTerminal" and there was no problem.
In the code I tried to change the baudrate ...but still the same error.
I also monitored the infrared port using Serial Monitor shareware... The point is that, everything looks great... I send an "AT" and I receive an "OK" (as it is displayed on the shareware). But at the same time I get the error on the VB application!
Also when you try to debug it you see the value for MSComm1.input as "".

So, here is the code:

Private Sub Form_Load()
Form1.Caption = "App2"
With MSComm1
.CommPort = 4 'for IrDA port. this line I have changed
.Handshaking = 2 - comRTS
.RThreshold = 1
.RTSEnable = True
.Settings = "115200,n,8,1"
.SThreshold = 1
.PortOpen = True
End With
Text1.Text = ""
End Sub

Private Sub Form_Unload(Cancel As Integer)
MSComm1.PortOpen = False
End Sub

Private Sub MSComm1_OnComm()
Dim InBuff As String

Select Case MSComm1.CommEvent

'errors
Case comEventBreak
Case comEventCDTO
Case comEventCTSTO
Case comEventDSRTO
Case comEventFrame
Case comEventOverrun
Case comEventRxOver
Case comEventRxParity
Case comEventTxFull
Case comEventDCB

' Events
Case comEvCD
Case comEvCTS
Case comEvDSR
Case comEvRing
Case comEvReceive ' Received RThreshold # of chars.
InBuff = MSComm1.Input '.................HERE THE PROBLEM OCCURS
Call HandleInput(InBuff)
Case comEvSend
Case comEvEOF

End Select

End Sub

Sub HandleInput(InBuff As String)

Text1.SelStart = Len(Text1.Text)
Text1.SelText = InBuff
End Sub

Private Sub Command1_Click()

MSComm1.Output = "AT" & Chr$(13)

End Sub

Any suggestion on what this error is, why it occurs when everything seems to be okay and/or how to solve it would be really appreciated.

skaynama

Error Reading Comm Device
Hi!

I have a problem with the MSComm. I have not found answers to this anywhere. It would be great if somebody could help!

I have connected my Nokia 6650 phone to my PC (W2K Pro) with a DKU-5 -cable. I can send AT commands to it via MSComm, but MSComm.input throws error "error reading comm device".

Current code:

*****************************************************

'CONNECTING (this works ok)
--------------------------
'MSCOMM SETTINGS
' 9600 baud, no parity, 8 data, and 1 stop bit.
MyComm.Settings = "9600,N,8,1"
' RTS logical "high" = 1
MyComm.RThreshold = 1
MyComm.SThreshold = 1
MyComm.Handshaking = comRTS
MyComm.RTSEnable = True
On Error Resume Next
MyComm.PortOpen = True
If Err.Number > 0 Then
Err.Clear
Label4.Caption = "Unable to open"
Exit Sub
End If

'COMM EVENT (jumps here when commands are sent to phone)
----------------------------------------------------------
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive 'Character has arrived in recv buffer
Do While MSComm1.InBufferCount > 0
'store the received character
strRx = strRx & MSComm1.Input <-------- throws an error!
Loop
PrintData (strRx)
Case Is > 1000 'in case of error
PrintData ("COM error " + MSComm1.CommEvent)
End Select
End Sub

*****************************************************

I have tried all possible settings for the MSComm control, but nothing seems to fix this. I need help!

Thanks!

- Jari Pulkkinen

Automation Error When Calling A DI Device
Call Game.DirectX.DIMouse.SetCommonDataFormat(DIFORMAT_MOUSE)
Call Game.DirectX.DIMouse.SetCooperativeLevel(Castillo.hWnd, DISCL_FOREGROUND Or DISCL_EXCLUSIVE)
Call Game.DirectX.DIMouse.Acquire

Call Game.DirectX.DIMouse.GetDeviceStateMouse(MouseState)

that's the code i use

any ideas why i get an error when calling .GetDeviceStateMouse ?

Runtime Error 68 Device Unavailable
This is probably very easy to TRAP, can someone please help....

I am pointing to a device like DRIVE F [for example]. This may not be available on some computers, so if selected I want to TRAP this error so the program does not CRASH.

How can I do this?
Thank you for your help.

PS: What drives are MOST available on computers other than c drive? I mean for CD ROM, DVD, etc.....I think drives D and E on everyones computer. Is this true.

Thankyou.
Bob

Device Not Open Error<Resolved>
Hi All,
I am getting an error in my phone book *** dialer program...

VB Code:
Private Sub Form_Load()MSComm1.CommPort = 3MSComm1.Settings = "9600,N,8,1"MSComm1.PortOpen = TrueEnd Sub

when i run the program, i get the following error:

Code:
Run Time Error'8012':

The Device is not ready

I have compiled the same code yesterday.i have a com 3 port and its connected to my phone line.

Can anyone help!!?

Thanks
Mohit

I Get An Device Dosen't Exist Error When I Try To Use The OpenFile Api From VB6
When I try To USe The Api OpenFile() From Visual Basic With The Valid File NAme parameter I Get An Error Device Dosen't Exist ! ERROR
When The File Actually Exists in The PAth Specified ?
How can I Solve the Problem ?
Also If There is Any Other Method By Which I Can Get The Handle For An Valid File on The Disk To be Opened For Reading Its Contents.

Error Playing EVB Program In Default Device
Hi, when I want to play my program in the Pocket PC, I encountered this problem.

Copy Failed(Error Code= 0xLX)
The file Windowspvbdecl.dll is locked by another process and cannot be copied.

Can someone please help?

Programmers are the laziest people around.

Error: System Error?
System Error &H800004015(-2147467243). The class is configured to run as a security id fifferent from the caller.

Can anyone help me on these? It happen when I tried to run a project group that has a Dll or OCX project. but in the other pc it is possible.

I have attched a simple program, try to open the group project and run it, perhaps it will run in you pc but in my pc it wouldnt run.

Error In Database Conversion Into The Device Pocket PC 2002
Hello

When i convert the Access database to Pocket Access Database( i unchecked the option "Keep tables sychronized" ), when the convertion is completed i take the message "Even through the transfer was succesful,some of the records, were not placed on the mobile device".WHY???????

Also i would like to know how can i insert a new record and see that the new record is stored to the *.cdb file and to the .mbd file.

Please help meeeeeeeeeeee

Thanks

Olga

Error 70, Error 91 And Error List Separator
Hello!
I've got this problem:

I created a folder with visual basic

When I try to delete it(and only that dir...) with this code:

>Dim fso As FileSystemObject
>...
>fso.DeleteFolder defaultInstallFolder & "Config", True

I obtain "Permission denied", just like if folder is in use.. but it's in use from vb!
(The utility "Who lock me?" tells me that it's locked form vb)

I tried to change current dir to parent dir of folder to delete, but i didn't help.

If I try to delete directory just after have created, in another piece of code, the error changes:

"Object variable or With block variable not set"

I've read that perhaps it's a Microsoft bug, to solve using properties, so I made:

>Dim fso As FileSystemObject
> ...
> Public Property Get ob() As FileSystemObject
> ob = fso
> End Property

> Public Property Let ob(Object As FileSystemObject)
> fso = Object
> End Property

and tried to delete it using:

>Get ob.DeleteFolder defaultInstallFolder & "Config", True

but the error now is "Expected: list separator"

or I tried:

>Get ob().DeleteFolder defaultInstallFolder & "Config", True
>...
>Dim fso2 As FileSystemObject
>fso2 = Get ob (compile error)

The question is: HOW THE HELL CAN I DELETE THE FOLDER ? :-)

I can't understand the problem, I can easily delete other directories created in the same code 2-3 lines above, but THAT directory not. And neither in different Pcs, same problem.
I can only use vbcce5..

Thank you for responses!!

Error Running Exe On Network
I have recently written an application which I built an exe file for. I distributed the exe to the relevant departments and it works fine when run from the HDD but when placed on a network dirve I get a security error. I was under the impression that the users had full permissions under the directories where the exe has been placed. Can anyone explain this to me?

Thanks
Stephen

PS I have attached a copy of the error as a text file.

Disk Or Network Error
hey all,

I have a problem that when I go to load one of my forms I get a "disk or network error" and a message box pops up. I don't know why this is happening does anyone know how I can stop it?

thanks

Disk Or Network Error
Hi all,

I am new to database stuff, but unfortunately I had to take over a project which not supposed to happen. So even I am not sure about if what I am going to ask addresses my problem correctly.

The project has an access 2000 database connection established by a DATA DESIGNER with "Microsoft OLE DB Provider for ODBC Drivers" by using a Data Source Name.

This software will serve five clients.

My question is as follows:

If somebody shuts downs the server while clients are running on the network, I am trying to detect the absence of the server and warn the user about the issue.

I am checking the existence of the access database on the clients side before running any queries. This partially solved my problem when the database server is down.

But the real thing is, when the server goes online. The clients keep ( When they try to run a query ) giving the error "DISK OR NETWORK ERROR"

Are there any suggestions for a possible solution?

Thanks all.

Network Connection Error
Whenever I use the "WNetAddConnection2" API function to create a mapped drive to a remote machine I get an error code returned "1326".

I have looked up some documentation on the function and its return error values but that number is not shown.

Can anyone tell me what error code "1326" means?

Disk Or Network Error
Hello,

I am trying to execute an existing application with its .exe file. When I try to open the file, I get the message "Disk or newtwork error." I am not sure how to correct this problem since I am not a VB6 developer.

Thanks,
Karim

Network Error Trap
I have a small 3 tier application which is running perfectly okay. I want to trap a network error occurs. For eg is someone pulls the network cable from the client machine i want to trap that error on connection, recordset objects.

Can anybody guide me as what is the best way of doing it.

MAPI Network Error
Hi,

I have a process running which uses MAPI (CDO.dll Version 5.5.2178.0) to connect and process e-mails from Exchange Inboxes automatically.

Periodically/Intermittantly we get the following error when performing any given task within CDO:

Collaboration Data Objects - [MAPI_E_NETWORK_ERROR(80040115)]

Is this caused purely by a network error? Is there an issue with the Exchange Server configuration? I can't seem to find any documentation on this error.

Cheers,
Tim

Disk Or Network Error ** HELP **
Hi

I have developed an application running on XP clients. The mdb database runs on a win 2000 machine. When I try to access the database from the XP clients, the error "disk or network error" appears.

The app works fine on the 2000 machine.

Any idea anyone??

Thank's in advance

-bjellis-

Runtime Error 75 Over A Network
Hi all,

i am using a visual basic program over a small 3 PC network. I have set up shortcuts to the main program which is on one computer and the shortcuts on the other two (slaves). when you save within the program it saves a .dat file. this works ok on the computer where the program and it's components are stored, but if you try to save within the program on one of the 'slave' pc's it comes up with this error.

If anyone can help I would be so grateful. if you need any more info let me know.

adam

Disk Or Network Error
I have a VB6 app running across the network connected to a database. I am getting occasional Disk or network errors and was wondering how the best way to trap the error so that the app does not bomb out. The app uses a mapped network drive that works fine after a disk or network error occurs. The database seams to be more sensitive.

Any ideas would be appreciated.

Thanks

Disk Or Network Error HELP!!!
Today when i run my program (who connect with ADODB to my dbf file) each time I receive ERROR [Microsoft][ODBC Microsoft Access Driver] Disk or network error.
I Have Windows XP and Visual Studio 6 SP6 - maybe I something must changed in Panel/Administration Tools ??? PLEASE HELPPPPPPP

General Network Error
Hai,
In my application, I am using VB6 and SQL Server 2000.
While running the application, sometimes the follwing error occurs.

A connection could not be established to the SQL Server
Reason:General Network Error. Check your network Documentation.
ConnectionOpen(PreLoginHandshake())..
Please verify SQL Server is running and check your SQL Server registration properties(by right-clicking on the SQL Server node)
and try again.

The problem is solved by restarting the computer.
What is the reason for this error?

Can anybody help me?

Disk Or Network Error
When I try to open a large database (40,000 records) on one of my applications and order it by a non-index field I receive a run-time error 3043 "Disk or Network Error". The debugger stops on opening the recordset. I'm using DAO. If I order by an indexed field their is no problem. If the recordset is 9000 records then their is no problem. I have a couple of other applications that use the same type of code and work just fine when ordering by indexed or non-indexed field regardless of record size. In reserching this error on the Internet it appears to be associated with running apps off of a server. My application is running on a single PC, no server involved. Also, it only occurs on a Windows 2K PC. Works without problems on Win 98 and XP PCs that I have tested with. Does anyone have any idea on the problem or what I should try for isolating it? Thanks.

Disk Or Network Error
hi,

i have an application, which is already installed on users PC. The main form has three buttons who lead the user to a next form. The application worked fine.

Now i have altered something to a form behind button B, and i made a new exe-file. This file was installed on the users PC. When the user clicks on button A he gets the error "Disk or network error".

does anybody has an explenation for this??? The form behind Button A has not changed!!!

Thanx for any help.

"On Error GoTo DoSomething_Error" Returns Error 0.. What Is Error 0??
Hello, I have a try/catch function is always is cought with an error0... What is an Error 0?

here is my code:

Code:
Private Sub ProcessCreditCard_Timer()
Dim CCstatus As String
Dim racAuthCard As Variant
Set racAuthCard = CreateObject("RACAuthcreditcard.Authcreditcard")

racAuthCard.transactionKey = "asdfasdfasfffff"
racAuthCard.login = "asfdsad"
racAuthCard.transactionType = "AUTH_CAPTURE"

Question = "Processing Credit Card Now. Please Standby."
On Error GoTo DoSomething_Error

CCstatus = racAuthCard.Authcreditcard(Total, CCnumber, ExpMonth, ExpYear, CCFirstName, CCLastName)
ProcessCreditCard.Enabled = False

If CCstatus = "This transaction has been approved." Then
Question = "Credit card transaction approved. One moment."
CCnumber = Right(CCnumber, 4)
Paidby = "Credit Card"
Call Thankyou
ElseIf CCstatus = "Problem! reason: The credit card number is invalid." Then
'CCnumber = Right(CCnumber, 4)
CCnumber = "0"
Question = "Credit Number invalid or NSF. Press the Start button to start again."
ElseIf CCstatus = "(TESTMODE) This transaction has been approved." Then
CCnumber = "TESTMODE" 'Right(CCnumber, 4)
Paidby = "TESTMODE"
Call Thankyou
Else
'CCnumber = Right(CCnumber, 4)
CCnumber = "0"
Question = "Authentication channel not found. Please try again in 30 seconds."
End If
Exit Sub

DoSomething_Error:
Select Case Err.Number
Case -2147012889 'cannot resolve DN
'MsgBox ("cnrdn")
CreditCardAuthRetry = CreditCardAuthRetry + 1
'Command1.Caption = CreditCardAuthRetry
If CreditCardAuthRetry > 100 Then
ProcessCreditCard.Enabled = False 'try for 1 second
Question = "Authentication channel not found. Please try again in 30 seconds."
End If

Case 0
'This is to catch all successful Credit Card Processes.. so it doesn't go to else

Case Else
'MsgBox ("Sorry we are having technical difficulties")
'email me the error number

ProcessCreditCard.Enabled = False

CCnumber = "0"
Question = "I am sorry, but we cannot take credit cards right now. "
'Call ClearAll

End Select

End Sub

and I know the credit card processing goes through fine (I can login to my merchant account and see it)...

what does an Error 0 mean, should I be worried? I basically setup my catch statement to ignore an error 0 .. but i want to know if that is a good idea .. or if i can "fix" this issue?

thanks!
Lee

Network I/O Error Or System Error Device Error

I am getting an Error. I believe it is a NetworkError DeviceError or SystemError I was wondering if someone knows how to trap these errors in VBA. There is a pressing need for a solution. Any help would be appreciated. Thanks Sirron

I am getting an Error. I believe it is a NetworkError DeviceError or SystemError
I was wondering if someone knows how to trap these errors in VBA.
There is a pressing need for a solution.
Any help would be appreciated.
Thanks Sirron