Onebridge Palm Signatures Fix…

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


0 replies

Leave a Reply

Want to join the discussion?
Feel free to contribute!

Leave a Reply