Visit us at Catex in the RDS 19th-21st Feb
We will be demonstrating how our handheld software and systems can help your business at stand C24. Come along and let us know what your challenges are and we can discuss how we can help.
We will be demonstrating how our handheld software and systems can help your business at stand C24. Come along and let us know what your challenges are and we can discuss how we can help.
If you were not already aware, Aceeca has recently released 64-bit Windows USB Drivers for Palm OS/Garnet devices. While these drivers were primarily designed for supporting Aceeca’s current and upcoming Garnet OS devices, we are happy to report that they are also proving very useful for many other legacy Palm® devices.
These drivers are provided by Aceeca at no charge and while they were developed to support our own customers, anyone is welcome to use them. Download the drivers direct from the Aceeca.com website.
This is an updated link to the palm desktop for the Janam Palm units
We were having continually and known errors with the onebridge sync process with Palm database files with ink fields. We use them to store the signatures. This process uses the onebridge backup command which makes a backup of the signature.pdb file on the server and appends the handheld name, date and sync time to give a unique file.
When the sync is complete we send a blank signature pdb file.
From access this function checks the folder for saved pdb files and uses the sat forms SFConvertPDB.exe to make a dbf then loads the signature images into the database.
We have a few local tables we use for our purposes but this code sample would give you a heads up. If you need the sample files register on the site and I will send you the mdb file.
Function LoadData()
Dim rst As Recordset, rstSource As Recordset
If Me.chkStart Then ' if ticked start the function
CurrentDb.Execute ("Delete * from tblFiles") ' clear out the temporary table
Call ListFilesInFolder(Me.txtLocation) ' loads the name and location of the files
Set rst = CurrentDb.OpenRecordset("select * from tblFiles")
If rst.RecordCount > 0 Then
rst.MoveFirst
Do While Not rst.EOF
If Len(Dir(Me.txtClearing & "EHCSM0300_TBLSIGN.PDB")) > 0 Then
'clear existing file
Kill Me.txtClearing & "EHCSM0300_TBLSIGN.PDB"
End If
CurrentDb.Execute ("Delete * from tblsign")
FileCopy Me.txtLocation & rst!Filename, Me.txtClearing & "EHCSM0300_TBLSIGN.PDB"
Shell "cmd /c" & Me.txtClearing & "LoadSign.bat", vbHide
Call sSleep(5000)
Set rstSource = CurrentDb.OpenRecordset("tblSign")
If rstSource.RecordCount > 0 Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "qryLoadSign"
DoCmd.SetWarnings True
End If
FileCopy Me.txtLocation & rst!Filename, Me.txtClearing & "Backup" & rst!Filename
Kill Me.txtLocation & rst!Filename
rst.MoveNext
Loop
End If
DoCmd.Quit
End If
End Function
And the other function
Function ListFilesInFolder(SourceFolderName As String)
Dim FSO As Scripting.FileSystemObject
Dim SourceFolder As Scripting.Folder, SubFolder As Scripting.Folder
Dim FileItem As Scripting.File
Dim r As Long
Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset("select * from tblFiles") ' 'CurrentDb.OpenRecordset("select * from tblFiles")
Set FSO = New Scripting.FileSystemObject
Set SourceFolder = FSO.GetFolder(SourceFolderName)
For Each FileItem In SourceFolder.Files
If Right(FileItem.Name, 8) = "SIGN.PDB" Then
rst.AddNew
rst!Filename = FileItem.Name
rst!FileLoaded = Now()
rst.Update
End If
Next FileItem
Set FileItem = Nothing
Set SourceFolder = Nothing
Set FSO = Nothing
' MsgBox "Done"
End Function