Public Sub RecordMove(ByVal fName$, ByVal Path%, ByVal DestDir%, ByVal uName$)

' Open tables and select indices
Set FilesTable = MyDB.OpenRecordset("Files", dbOpenTable)
FilesTable.Index = "idxFiles"
MyWS.BeginTrans
Set MovesTable = MyDB.OpenRecordset("Moves", dbOpenTable)
fName$ = LCase$(fName$)
MovesTable.Index = "idxMoves"

' Add a new record to Files if Seek fails
With FilesTable
    .Seek "=", fName$
    .LockEdits = False
    If .NoMatch Then   'if file not already in db, then
        .AddNew
    Else
        .Edit
    End If

' Record move data in Files table
    !filename = fName$
    !mFrom = Path%
    !mTo = DestDir%
    !Date = Date$
    !Time = Time$
    !mBy = uName$
    .Update
End With

' Record move data in a new MovesTable record
With MovesTable
    .AddNew
    !filename = fName$
    !mTo = DestDir%
    !mFrom = Path%
    !MovedBy = uName$
    !mDate = Date$
    !mTime = Time$
    .Update
End With

' Finish up
MyWS.CommitTrans
dbClose
End Sub
