Stuart McLachlan
stuart at lexacorp.com.pg
Tue Apr 16 05:22:52 CDT 2013
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 >