Private Sub btnUpdateRecord_Click()

' put docrs database in edit mode
If btnAddDoc.Enabled = True Then
DocRS.Edit

Else
AppActivate FpId
SendKeys "^s"
SendKeys txtDirStories + "\" + txtFilename

End If

uUpdateDB

End Sub