[AccessD] import text

Dear Stuart, dear List,

i overlooked the comma, sorry :-(

The compiling now is ok.

I have placed the code below in "Module1" 

but when is try to call this code with a macro of commandbutton on a form i get an error: "the expression that you call on, has a function name that is not known in access"

i don't get it, i also tried Private Function melanomen()  or   Public Function melanomen()   ------ End Function in the code.

What is going wrong?

Thanks Pedro



<code>


Option Compare Database
Option Explicit

Private Sub melanomen()

Dim ff As Integer
Dim strTemp As String
Dim strOutputLine As String
Dim strResult As String
Dim strDQ As String
Dim strFilename As String
Dim strOutput As String
FreeFile ff
strDQ = Chr$(34)

strFilename = "C:\Temp\Test_Import.txt"

Open strFilename For Input As #ff
Line Input #ff, strTemp

While Not EOF(ff)
   If Left$(strTemp, 2) = "**" Then 'Build initial quote/comma delimited string
   strOutputLine = Replace(strTemp, " ", strDQ & "," & strDQ)
   'add start and end quotes
   strOutputLine = strDQ & strOutputLine & strDQ
   End If
   
   If Left$(strTemp, 10) = "CONCLUSIE:" Then 'Get next line
       Line Input #ff, strTemp
      strOutputLine = strOutputLine & "," & strDQ & strTemp & strDQ
   End If
   
   If Left$(strTemp, 10) = "DIAGNOSES:" Then 'Get next line
       Line Input #ff, strTemp
      strOutputLine = strOutputLine & "," & strDQ & strTemp & strDQ
      'and append this line
      strResult = strResult & vbCrLf & strOutput
   End If

   Line Input #ff, strTemp
Wend
Close #ff
Debug.Print strResult

End Sub

</code>