Runtime error 3043

[torturedmind]

i have a form that has 3 data controls:
data1 - log file; opened for writing (table)
data2 - look-up file #1; read-only (dynaset)
data3 - look-up file #2; read-only (dynaset)
all data controls are linked to their respective
foxpro 2.6 table.

my app actually reads an i.d. no. via the keyboard,
look it up from the master file, test the plugged
wrist strap, and look-up the return value from another
table.

i am also using a DLL file which i downloaded from the web
and this allows my app to read from LPT1. i am also using
a timer control (Timer3) to have a delay time between ID
No. entry and the actual wrist strap testing.

here are some parts of my codes from the form:
*********************************************************
Private Sub cmbidnum_Validate(Cancel As Boolean)
Dim xfind As String
Dim xmsg As String

xfind = "idnumb = '" & Trim(cmbidnum) & "'"
Data2.Recordset.FindFirst xfind

If Data2.Recordset.NoMatch Then
xmsg = MsgBox("Record not found.", vbExclamation)
Cancel = True
Else
xidnum = Data2.Recordset.Fields("idnumb&quot
xempname = Data2.Recordset.Fields("name&quot
Timer3.Enabled = True
Cancel = False
End If
End Sub

Private Sub Timer3_Timer()
Dim xfind2 As String
xtestvalue = Inport(stat_reg)
t_val = xtestvalue
xt_val = t_val
xfind2 = "esdval = " & t_val
Data3.Recordset.FindFirst xfind2

If Data3.Recordset.NoMatch Then
Data3.Recordset.MoveFirst ' This is where the <unknown error> is.
End If

xstat = Data3.Recordset.Fields(&quot;esddesc&quot
Data1.Recordset.AddNew
Data1.Recordset.Fields(&quot;idnum&quot = Trim(xidnum)
Data1.Recordset.Fields(&quot;empname&quot = Trim(xempname)
Data1.Recordset.Fields(&quot;petsa&quot = xpetsa
Data1.Recordset.Fields(&quot;oras&quot = Trim(xoras)
Data1.Recordset.Fields(&quot;esd_stat&quot = Trim(xstat)
Data1.Recordset.Fields(&quot;testvalue&quot = xtestvalue
Data1.Recordset.Update
End sub
*********************************************************

Now my PROBLEM is some ID No. generates a &quot;Runtime error
3043. Disk or network error.&quot; but most do not. When i view
the log file from VFP6, every entry were recorded except
that the records that generated the error are deleted. I
know there is something wrong with my code coz honestly am
a newbie in VB6. Can anyone please help before I lose my
sanity?

torturedmind [Trooper]

 

[torturedmind]

if i may add; data1 resides in a local folder while data2
and data3 resides in 2 separate network folders...

 

[RalphBrown]

Run-time error 3043 is a &quot;Disk or Network error&quot;
An internal disk or drive failure prevents reading from or writing to the disk.

Possible causes:

You tried to use a network drive, and the network is temporarily busy, or you're no longer connected to the network. Check the network connection, and then try the operation again.
The disk or drive has failed.

I hope this helps.
Ralph

 

[torturedmind]

i already made a thorough network connection check-up
and found no problem at all. the disk is a new harddrive
equipped with a Windows 98SE OS with no other
installed software except my app.

i even tried reading from a 5-record lookup table with
3 records with error and 2 ok. still the 3 distinct records
generate the error. im on a dead end now. pls help.

torturedmind

 

[RalphBrown]

Is it always the same error no. - 3043?

Have you tried it with all tables held locally, for test purposes?