Option Compare Database
Function haAutoEntry()
On Error Resume Next
Dim haWin32, haScript As Object
Dim strInput As String
'create objects open HyperACCESS
Set haWin32 = CreateObject("HAWin32")
Set haScript = haWin32.haInitialize("accessAutoEntry")
'connect HyperACCESS
haScript.haSizeHyperACCESS 3
haScript.haOpenSession "session.HAW"
haScript.haConnectSession 0
haScript.haWaitForConnection 1, 100000
'loop while connected
While haScript.haGetConnectionStatus = 1
strInput = haScript.haGetInput(0, -1, 50, 1000)
If strInput <> "" Then
'clean up and parse data
strInput = Replace(Replace(strInput, Chr(10), ""), Chr(13), "")
Data = Split(strInput, ",")
strDate = Data(0)
strVal1 = Data(1)
strVal2 = Data(2)
strValues = "('" & strDate & "', '" & strVal1 & "', '" & strVal2 & "')"
strSql = "INSERT INTO myTable ( datestamp, Val1, Val2 ) VALUES " & strValues
DoCmd.SetWarnings False
DoCmd.RunSQL strSql
DoCmd.SetWarnings True
End If
strInput = ""
DoEvents
Wend
haScript.haTerminate
End Function
Function haDisconnect()
Set haWin32 = GetObject(, "HAWin32")
Set haScript = haWin32.haInitialize("disconnect")
haScript.haDisconnectSession
haScript.haTerminate
End Function
To execute this sample save the above functions in a Visual Basic module in your Microsoft Access database. Run the haAutoEntry function to start capturing data, run the haDisconnect function to stop capturing data.