Access 97 working little slowly. I have windows 2000. The computer is old..processor is about 300 MHz and RAM- memory capasity is ~164 Mb. Hard disk is 3.0GB.
I have only three tables which are similar. In a table is two fields "date" and "barcode".
I am use MSComm - object, I receive the barcodes from virtual com - ports. When the data incoming to COM port the code on below opening...The code is same in every form.
Private Sub MSComm1_OnComm()
Dim buffer As String
Dim T1 As Single
buffer = MSComm1.CommEvent
T1 = timer
Do Until buffer = 2
If timer - T1 > 2 Then Exit Sub
Loop
Call AddScanRecords
End Sub
Sub AddScanRecords()
Dim db As Database, rs As DAO.Recordset
Dim StartTime As Date
StartTime = Now()
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1")
rs.AddNew
rs![BarCode] = MSComm1.Input
rs![ScanDate] = Now()
rs.Update
rs.Close
db.Close
End Sub
Is the database slow because I don't use asynchronous method to open the database?
How can I open the database using asynchronous method?
Please help me!
I have only three tables which are similar. In a table is two fields "date" and "barcode".
I am use MSComm - object, I receive the barcodes from virtual com - ports. When the data incoming to COM port the code on below opening...The code is same in every form.
Private Sub MSComm1_OnComm()
Dim buffer As String
Dim T1 As Single
buffer = MSComm1.CommEvent
T1 = timer
Do Until buffer = 2
If timer - T1 > 2 Then Exit Sub
Loop
Call AddScanRecords
End Sub
Sub AddScanRecords()
Dim db As Database, rs As DAO.Recordset
Dim StartTime As Date
StartTime = Now()
Set db = CurrentDb
Set rs = db.OpenRecordset("Table1")
rs.AddNew
rs![BarCode] = MSComm1.Input
rs![ScanDate] = Now()
rs.Update
rs.Close
db.Close
End Sub
Is the database slow because I don't use asynchronous method to open the database?
How can I open the database using asynchronous method?
Please help me!

Last edited: