Working with sequential Data

  • Thread starter Thread starter GLT
  • Start date Start date
G

GLT

Hi,

I am trying to read from table (A) which contains sequential data loaded
into access from a flat file. I am then using VB to copy each set of data
from one recordset to another recordset - I keep getting run-time error 3021
- can anyone advise what is going wrong?

Here is a copy of the vb I am using:

Sub BuildStatsTable()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim countLoopA As Integer
Dim countLoopB As Integer
Dim countLoopc As Integer

Set db = CurrentDb()
Set rst = CurrentDb.OpenRecordset("tbl_ParsedLogFileDetails")
Set rst1 = CurrentDb.OpenRecordset("tbl_BackupLogStats")

If rst.RecordCount = 0 Then
'rst.Close
Set rst = Nothing
Set db = Nothing
Else
With rst
.MoveLast
.MoveFirst


Do Until rst.EOF

strDate = rst!DateStamp
strFileNo = rst![FileNo]
strFeild1 = rst![Feild1]
strFeild2 = rst![Feild2]


If strFeild1 = "Job No" Then

rst1.AddNew
rst1![FileNo] = rst![FileNo]
rst1![DateStamp] = rst![DateStamp]
rst1![Job No] = rst![JobNo]
rst1![Workstation] = rst![Workstation]
rst1![Session] = rst![Session]
rst.MoveNext

ElseIf strFeild1 = "Job ID" Then

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Description" Then

rst1.Edit
rst1![Description] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Source" Then

rst1.Edit
rst1![Source] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Target" Then

rst1.Edit
rst1![Target] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Start Time" Then

rst1.Edit
rst1![Start Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Directories" Then

rst1.Edit
rst1![Total Directories] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total File(s)" Then

rst1.Edit
rst1![Total File(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Skip(s)" Then

rst1.Edit
rst1![Total Skip(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Disk)" Then

rst1.Edit
rst1![Total Size (Disk)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Media)" Then

rst1.Edit
rst1![Total Size (Media)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Elapsed Time" Then

rst1.Edit
rst1![Elapsed Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Session Status" Then

rst1.Edit
rst1![Session Status] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Average Throughput" Then

rst1.Edit
rst1![Average Throughput] = strFeild2
rst.MoveNext

If rst![Feild1] = "Total Error(s)/Warning(s)" Then

rst1.Edit
rst1![Total Error(s)/Warning(s)] = strFeild2

ElseIf rst![Feild1] = "Job No" Then

rst1.Update
'rst.MovePrevious

End If

Else

.MoveNext

End If

Loop

End With

rst.Close
rst1.Close

End If

End Sub


Any help is always greatly appreciated...

Cheers,
GLT
 
Sorry, but I don't have all the error codes memorized. What is the text of
the 3021 error and where does execution stop when you Debug?

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

GLT said:
Hi,

I am trying to read from table (A) which contains sequential data loaded
into access from a flat file. I am then using VB to copy each set of data
from one recordset to another recordset - I keep getting run-time error
3021
- can anyone advise what is going wrong?

Here is a copy of the vb I am using:

Sub BuildStatsTable()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim countLoopA As Integer
Dim countLoopB As Integer
Dim countLoopc As Integer

Set db = CurrentDb()
Set rst = CurrentDb.OpenRecordset("tbl_ParsedLogFileDetails")
Set rst1 = CurrentDb.OpenRecordset("tbl_BackupLogStats")

If rst.RecordCount = 0 Then
'rst.Close
Set rst = Nothing
Set db = Nothing
Else
With rst
.MoveLast
.MoveFirst


Do Until rst.EOF

strDate = rst!DateStamp
strFileNo = rst![FileNo]
strFeild1 = rst![Feild1]
strFeild2 = rst![Feild2]


If strFeild1 = "Job No" Then

rst1.AddNew
rst1![FileNo] = rst![FileNo]
rst1![DateStamp] = rst![DateStamp]
rst1![Job No] = rst![JobNo]
rst1![Workstation] = rst![Workstation]
rst1![Session] = rst![Session]
rst.MoveNext

ElseIf strFeild1 = "Job ID" Then

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Description" Then

rst1.Edit
rst1![Description] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Source" Then

rst1.Edit
rst1![Source] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Target" Then

rst1.Edit
rst1![Target] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Start Time" Then

rst1.Edit
rst1![Start Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Directories" Then

rst1.Edit
rst1![Total Directories] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total File(s)" Then

rst1.Edit
rst1![Total File(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Skip(s)" Then

rst1.Edit
rst1![Total Skip(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Disk)" Then

rst1.Edit
rst1![Total Size (Disk)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Media)" Then

rst1.Edit
rst1![Total Size (Media)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Elapsed Time" Then

rst1.Edit
rst1![Elapsed Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Session Status" Then

rst1.Edit
rst1![Session Status] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Average Throughput" Then

rst1.Edit
rst1![Average Throughput] = strFeild2
rst.MoveNext

If rst![Feild1] = "Total Error(s)/Warning(s)" Then

rst1.Edit
rst1![Total Error(s)/Warning(s)] = strFeild2

ElseIf rst![Feild1] = "Job No" Then

rst1.Update
'rst.MovePrevious

End If

Else

.MoveNext

End If

Loop

End With

rst.Close
rst1.Close

End If

End Sub


Any help is always greatly appreciated...

Cheers,
GLT
Click to expand...
 
Hi Rodger,

Thanks for your response,

Error 3021 is: No current Record

It always happens on any of the rst1.edit entries...

In this case it happened on the rst1.edit line here:

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

If I comment out the above, then the same error occurs in the next rst1.edit
- rst1 is the recordset where new records are being created and updated.

Cheers,
GLT

Roger Carlson said:
Sorry, but I don't have all the error codes memorized. What is the text of
the 3021 error and where does execution stop when you Debug?

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

GLT said:
Hi,

I am trying to read from table (A) which contains sequential data loaded
into access from a flat file. I am then using VB to copy each set of data
from one recordset to another recordset - I keep getting run-time error
3021
- can anyone advise what is going wrong?

Here is a copy of the vb I am using:

Sub BuildStatsTable()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim countLoopA As Integer
Dim countLoopB As Integer
Dim countLoopc As Integer

Set db = CurrentDb()
Set rst = CurrentDb.OpenRecordset("tbl_ParsedLogFileDetails")
Set rst1 = CurrentDb.OpenRecordset("tbl_BackupLogStats")

If rst.RecordCount = 0 Then
'rst.Close
Set rst = Nothing
Set db = Nothing
Else
With rst
.MoveLast
.MoveFirst


Do Until rst.EOF

strDate = rst!DateStamp
strFileNo = rst![FileNo]
strFeild1 = rst![Feild1]
strFeild2 = rst![Feild2]


If strFeild1 = "Job No" Then

rst1.AddNew
rst1![FileNo] = rst![FileNo]
rst1![DateStamp] = rst![DateStamp]
rst1![Job No] = rst![JobNo]
rst1![Workstation] = rst![Workstation]
rst1![Session] = rst![Session]
rst.MoveNext

ElseIf strFeild1 = "Job ID" Then

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Description" Then

rst1.Edit
rst1![Description] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Source" Then

rst1.Edit
rst1![Source] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Target" Then

rst1.Edit
rst1![Target] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Start Time" Then

rst1.Edit
rst1![Start Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Directories" Then

rst1.Edit
rst1![Total Directories] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total File(s)" Then

rst1.Edit
rst1![Total File(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Skip(s)" Then

rst1.Edit
rst1![Total Skip(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Disk)" Then

rst1.Edit
rst1![Total Size (Disk)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Media)" Then

rst1.Edit
rst1![Total Size (Media)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Elapsed Time" Then

rst1.Edit
rst1![Elapsed Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Session Status" Then

rst1.Edit
rst1![Session Status] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Average Throughput" Then

rst1.Edit
rst1![Average Throughput] = strFeild2
rst.MoveNext

If rst![Feild1] = "Total Error(s)/Warning(s)" Then

rst1.Edit
rst1![Total Error(s)/Warning(s)] = strFeild2

ElseIf rst![Feild1] = "Job No" Then

rst1.Update
'rst.MovePrevious

End If

Else

.MoveNext

End If

Loop

End With

rst.Close
rst1.Close

End If

End Sub


Any help is always greatly appreciated...

Cheers,
GLT
Click to expand...
Click to expand...
 
Is the table "tbl_BackupLogStats" currently empty? Because that will
produce the error you're getting. The error means that there isn't a
currently active record. But opening the recordset will select the *first*
record in the recordset automatically. As I read this code, it should
ALWAYS update the first record in rst1. That it does not can only mean that
the recordset is empty.


--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L


GLT said:
Hi Rodger,

Thanks for your response,

Error 3021 is: No current Record

It always happens on any of the rst1.edit entries...

In this case it happened on the rst1.edit line here:

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

If I comment out the above, then the same error occurs in the next
rst1.edit
- rst1 is the recordset where new records are being created and updated.

Cheers,
GLT

Roger Carlson said:
Sorry, but I don't have all the error codes memorized. What is the text
of
the 3021 error and where does execution stop when you Debug?

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

GLT said:
Hi,

I am trying to read from table (A) which contains sequential data
loaded
into access from a flat file. I am then using VB to copy each set of
data
from one recordset to another recordset - I keep getting run-time error
3021
- can anyone advise what is going wrong?

Here is a copy of the vb I am using:

Sub BuildStatsTable()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim countLoopA As Integer
Dim countLoopB As Integer
Dim countLoopc As Integer

Set db = CurrentDb()
Set rst = CurrentDb.OpenRecordset("tbl_ParsedLogFileDetails")
Set rst1 = CurrentDb.OpenRecordset("tbl_BackupLogStats")

If rst.RecordCount = 0 Then
'rst.Close
Set rst = Nothing
Set db = Nothing
Else
With rst
.MoveLast
.MoveFirst


Do Until rst.EOF

strDate = rst!DateStamp
strFileNo = rst![FileNo]
strFeild1 = rst![Feild1]
strFeild2 = rst![Feild2]


If strFeild1 = "Job No" Then

rst1.AddNew
rst1![FileNo] = rst![FileNo]
rst1![DateStamp] = rst![DateStamp]
rst1![Job No] = rst![JobNo]
rst1![Workstation] = rst![Workstation]
rst1![Session] = rst![Session]
rst.MoveNext

ElseIf strFeild1 = "Job ID" Then

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Description" Then

rst1.Edit
rst1![Description] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Source" Then

rst1.Edit
rst1![Source] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Target" Then

rst1.Edit
rst1![Target] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Start Time" Then

rst1.Edit
rst1![Start Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Directories" Then

rst1.Edit
rst1![Total Directories] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total File(s)" Then

rst1.Edit
rst1![Total File(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Skip(s)" Then

rst1.Edit
rst1![Total Skip(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Disk)" Then

rst1.Edit
rst1![Total Size (Disk)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Media)" Then

rst1.Edit
rst1![Total Size (Media)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Elapsed Time" Then

rst1.Edit
rst1![Elapsed Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Session Status" Then

rst1.Edit
rst1![Session Status] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Average Throughput" Then

rst1.Edit
rst1![Average Throughput] = strFeild2
rst.MoveNext

If rst![Feild1] = "Total Error(s)/Warning(s)" Then

rst1.Edit
rst1![Total Error(s)/Warning(s)] = strFeild2

ElseIf rst![Feild1] = "Job No" Then

rst1.Update
'rst.MovePrevious

End If

Else

.MoveNext

End If

Loop

End With

rst.Close
rst1.Close

End If

End Sub


Any help is always greatly appreciated...

Cheers,
GLT
Click to expand...
Click to expand...
Click to expand...
 
Addendum to previous post:

I don't think you code does what you think it does.

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

GLT said:
Hi Rodger,

Thanks for your response,

Error 3021 is: No current Record

It always happens on any of the rst1.edit entries...

In this case it happened on the rst1.edit line here:

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

If I comment out the above, then the same error occurs in the next
rst1.edit
- rst1 is the recordset where new records are being created and updated.

Cheers,
GLT

Roger Carlson said:
Sorry, but I don't have all the error codes memorized. What is the text
of
the 3021 error and where does execution stop when you Debug?

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

GLT said:
Hi,

I am trying to read from table (A) which contains sequential data
loaded
into access from a flat file. I am then using VB to copy each set of
data
from one recordset to another recordset - I keep getting run-time error
3021
- can anyone advise what is going wrong?

Here is a copy of the vb I am using:

Sub BuildStatsTable()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim countLoopA As Integer
Dim countLoopB As Integer
Dim countLoopc As Integer

Set db = CurrentDb()
Set rst = CurrentDb.OpenRecordset("tbl_ParsedLogFileDetails")
Set rst1 = CurrentDb.OpenRecordset("tbl_BackupLogStats")

If rst.RecordCount = 0 Then
'rst.Close
Set rst = Nothing
Set db = Nothing
Else
With rst
.MoveLast
.MoveFirst


Do Until rst.EOF

strDate = rst!DateStamp
strFileNo = rst![FileNo]
strFeild1 = rst![Feild1]
strFeild2 = rst![Feild2]


If strFeild1 = "Job No" Then

rst1.AddNew
rst1![FileNo] = rst![FileNo]
rst1![DateStamp] = rst![DateStamp]
rst1![Job No] = rst![JobNo]
rst1![Workstation] = rst![Workstation]
rst1![Session] = rst![Session]
rst.MoveNext

ElseIf strFeild1 = "Job ID" Then

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Description" Then

rst1.Edit
rst1![Description] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Source" Then

rst1.Edit
rst1![Source] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Target" Then

rst1.Edit
rst1![Target] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Start Time" Then

rst1.Edit
rst1![Start Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Directories" Then

rst1.Edit
rst1![Total Directories] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total File(s)" Then

rst1.Edit
rst1![Total File(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Skip(s)" Then

rst1.Edit
rst1![Total Skip(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Disk)" Then

rst1.Edit
rst1![Total Size (Disk)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Media)" Then

rst1.Edit
rst1![Total Size (Media)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Elapsed Time" Then

rst1.Edit
rst1![Elapsed Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Session Status" Then

rst1.Edit
rst1![Session Status] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Average Throughput" Then

rst1.Edit
rst1![Average Throughput] = strFeild2
rst.MoveNext

If rst![Feild1] = "Total Error(s)/Warning(s)" Then

rst1.Edit
rst1![Total Error(s)/Warning(s)] = strFeild2

ElseIf rst![Feild1] = "Job No" Then

rst1.Update
'rst.MovePrevious

End If

Else

.MoveNext

End If

Loop

End With

rst.Close
rst1.Close

End If

End Sub


Any help is always greatly appreciated...

Cheers,
GLT
Click to expand...
Click to expand...
Click to expand...
 
thnx
Roger Carlson said:
Addendum to previous post:

I don't think you code does what you think it does.

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

GLT said:
Hi Rodger,

Thanks for your response,

Error 3021 is: No current Record

It always happens on any of the rst1.edit entries...

In this case it happened on the rst1.edit line here:

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

If I comment out the above, then the same error occurs in the next
rst1.edit
- rst1 is the recordset where new records are being created and updated.

Cheers,
GLT

Roger Carlson said:
Sorry, but I don't have all the error codes memorized. What is the text
of
the 3021 error and where does execution stop when you Debug?

--
--Roger Carlson
MS Access MVP
Access Database Samples: www.rogersaccesslibrary.com
Want answers to your Access questions in your Email?
Free subscription:
http://peach.ease.lsoft.com/scripts/wa.exe?SUBED1=ACCESS-L

Hi,

I am trying to read from table (A) which contains sequential data
loaded
into access from a flat file. I am then using VB to copy each set of
data
from one recordset to another recordset - I keep getting run-time
error
3021
- can anyone advise what is going wrong?

Here is a copy of the vb I am using:

Sub BuildStatsTable()

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim rst1 As DAO.Recordset
Dim countLoopA As Integer
Dim countLoopB As Integer
Dim countLoopc As Integer

Set db = CurrentDb()
Set rst = CurrentDb.OpenRecordset("tbl_ParsedLogFileDetails")
Set rst1 = CurrentDb.OpenRecordset("tbl_BackupLogStats")

If rst.RecordCount = 0 Then
'rst.Close
Set rst = Nothing
Set db = Nothing
Else
With rst
.MoveLast
.MoveFirst


Do Until rst.EOF

strDate = rst!DateStamp
strFileNo = rst![FileNo]
strFeild1 = rst![Feild1]
strFeild2 = rst![Feild2]


If strFeild1 = "Job No" Then

rst1.AddNew
rst1![FileNo] = rst![FileNo]
rst1![DateStamp] = rst![DateStamp]
rst1![Job No] = rst![JobNo]
rst1![Workstation] = rst![Workstation]
rst1![Session] = rst![Session]
rst.MoveNext

ElseIf strFeild1 = "Job ID" Then

rst1.Edit
rst1![Job ID] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Description" Then

rst1.Edit
rst1![Description] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Source" Then

rst1.Edit
rst1![Source] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Target" Then

rst1.Edit
rst1![Target] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Start Time" Then

rst1.Edit
rst1![Start Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Directories" Then

rst1.Edit
rst1![Total Directories] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total File(s)" Then

rst1.Edit
rst1![Total File(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Skip(s)" Then

rst1.Edit
rst1![Total Skip(s)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Disk)" Then

rst1.Edit
rst1![Total Size (Disk)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Total Size (Media)" Then

rst1.Edit
rst1![Total Size (Media)] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Elapsed Time" Then

rst1.Edit
rst1![Elapsed Time] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Session Status" Then

rst1.Edit
rst1![Session Status] = strFeild2
rst.MoveNext

ElseIf strFeild1 = "Average Throughput" Then

rst1.Edit
rst1![Average Throughput] = strFeild2
rst.MoveNext

If rst![Feild1] = "Total Error(s)/Warning(s)" Then

rst1.Edit
rst1![Total Error(s)/Warning(s)] = strFeild2

ElseIf rst![Feild1] = "Job No" Then

rst1.Update
'rst.MovePrevious

End If

Else

.MoveNext

End If

Loop

End With

rst.Close
rst1.Close

End If

End Sub


Any help is always greatly appreciated...

Cheers,
GLT
Click to expand...
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Edit Recordset 2
Reaches Maximum size (2GB) when calculating procedure 2
comparing 2 values from 2 tables 1
Inserting records and checking for nonduplicates 3
Second Report not printing - whats wrong with the VBA I have?????? 1
consistent error on first record 11
run time error 6 overflow 5
Append loop working but causing duplicates - I'm lost 3

Back
Top