"File file path:to:file is already open" how do i close it?

Question

I am trying to write a script that pops up a dialog box, asks for text and saves this to a .csv and a .txt This is so i can quickly record what i am doing and the times i am doing it, makes quick notes and various things like that. However it is failing with the message "File file path:to:file is already open" so how do i close the file or get around this. Cheers
Script Below
tell me to activate
display dialog "Enter the log message:" default answer "" buttons {"Cancel", "Ok"} default button "Ok"
copy the result as list to {the log_message, the button_pressed}
if the button_pressed is not "Cancel" then
set curTime to (do shell script "date \"+%H:%M:%S\"")
set curDate to (do shell script "date \"+%Y%m%d\"")
set new_foldername to curDate
set this_folder to (path to current user folder) as text
set fPath2 to this_folder & "Documents:Logs:Date:" as alias
--set this_folder to "Macintosh HD:Users:username:" as alias
tell application "Finder"
if not (exists folder new_foldername of fPath2) then
make new folder at fPath2 with properties {name:new_foldername}
end if
end tell
set fPath to (path to current user folder as Unicode text) & "Documents:Logs:Date:" & curDate & ":"
set fName to curDate & ".csv"
set myFile to open for access file ((fPath as string) & fName) with write permission
write curTime & "," & log_message & return to myFile starting at eof
close access myFile
set fName2 to curDate & ".txt"
set myFile to open for access file ((fPath as string) & fName2) with write permission
write curTime & " " & log_message & return to myFile starting at eof
close access myFile
end if

Answer 1

Hi Richard,
Run this in the script editor:
set f to choose file
close access f
Navigate to the file you left open. Probably there was an error and the file was left open because it never reached the 'close access' command.
gl,