[AccessD] import text

Also make sure that you put the empty brackets after the function name in the macro.


On 16 Apr 2013 at 20:22, Stuart McLachlan wrote:

> If it's in a module and you want to call if from anywhere outside the module, you need to 
> make it Public.   
> 
> If you are calling it from a Macro, rather than an Event Procedure, you need to make it a 
> Function, not a Sub.
> 
> " Public Function melanomen() "  should work.
> 
> In your macro, make sure that you put an equal sign in front of  the Function name i.e.: 
> =melanomen()
> 
> -- 
> Stuart
> 
> On 16 Apr 2013 at 11:30, pedro at plex.nl wrote:
> 
> > 
> > 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>
> > -- 
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> > 
> 
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>