Convert Private Function to Public Function

[zozzz]

Hi friends



I have this code in form. how can I use it in module (Public) ?

Private Function ExtractLetters(ByVal strIn As String) As Boolean
  Dim i As Integer, iLen As Integer, _
      strChar As String, iChar As Integer
  
  iLen = Len(strIn)
  If iLen > 0 Then
    strIn = UCase(strIn)
    For i = 1 To 29
    Me("V" & i) = vbNullString
    Next i
    For i = 1 To iLen
      strChar = Mid(strIn, i, 1)
      Select Case strChar
      Case "Ç"
        iChar = 1
      Case "È"
        iChar = 2
      Case "Ì"
        iChar = 3
      Case "Ï"
        iChar = 4
    Case Else
      End Select
     Me("V" & iChar) = Me("V" & iChar) & strChar
    Next i
  End If
  ExtractLetters = (Err = 0)
End Function

[CJ_London]

when you put it into a module the Me predicate will not work, so add the form as a parameter

Function ExtractLetters(frm as Form, ByVal strIn As String) As Boolean
  Dim i As Integer, iLen As Integer, _
      strChar As String, iChar As Integer
  
  iLen = Len(strIn)
  If iLen > 0 Then
    strIn = UCase(strIn)
    For i = 1 To 29
    Frm("V" & i) = vbNullString
    Next I
   …
   ...

[zozzz]

Unfortunately I could not succeed
I put a sample. please check

extract.zip

[CJ_London]

I've checked - and you haven't done anything

[zozzz]

This was the first sample.
Thanks, if you have time to complete it

[zozzz]

ok . I do something

[CJ_London]

your call is wrong.

you just need Me, not me.descrip

and you have not included whatever string is required

[zozzz]

can anyone Fix it ??
or create another module for extracting Letters ??

[CJ_London]

have you tried the solution I advised? If so, what was the outcome?

[zozzz]

Unfortunately I did not get a result.
I do not know how to write it

[CJ_London]

what does 'did not get a result' mean? you got an error? if so what is the error? something else?

[zozzz]

thank you for all thing. I using Private Function ...

[davegri]

extract-davegri-v01.zip

Here you go. This works.

[zozzz]

[Micron]

I'll post this in the spirit of 'teaching a man to fish' as the saying goes rather than download the fix to see if scope was explained.

https://docs.microsoft.com/en-us/off...and-visibility

Maybe your problem became one of using the Private keyword in a standard module as is suggested in post 12.