Sign in to follow this  
Sergio de Andrade

Ajuda Com Funcao

Recommended Posts

Pessoal, tenho uma funcao muito boa que verifica caracteres especiais.

tenho um campo txt_empresa.Text que recebe o nome da Empresa atraves de

um formulário, e chamo uma função para tratar a string. A funcao está funcionando

perfeitamente, porém está dando erro na hora de retornar.

o erro que está ocorrendo é do tipo 13 Type mismatch

segue abaixo meu código, não estou sabendo retornar a função..

alguém pode me dar uma luz...

--> AQUI EU CHAMO A FUNÇÃO

----------------------------------------------------------------------------------------------------------------

Empresa = Trim(txt_empresa.Text)

If char_error("" & Empresa & "") = True Then

Empresa = char_error(str)

End If

----------------------------------------------------------------------------------------------------------------

Public Function char_error(str) As String

Dim blocked, arr_blocked, X

Dim Empresa As String

'Na variavel abaixo (blocked) devem ser inseridos os caracteres que não deve existir na string

blocked = "\, /, :, *, ?, " & Chr(34) & ", <, >, |, ', !, #, $, %, ¨, &, ´, `, *, (, ),"

arr_blocked = Split(blocked, ", ")

For X = LBound(arr_blocked) To UBound(arr_blocked)

If InStr(str, arr_blocked(X)) > 0 Then

char_error = True

str = Replace(str, arr_blocked(X), "")

Exit For

Else

char_error = False

End If

Next

-------------------------------------------------> aqui estou tentando dar o retorno!

char_error = CStr(str)

End Function

----------------------------------------------------------------------------------------------------------------------

valeu GALERA

--

Sergio de Andrade Lopes

(11) 3244-3580

(11) 8168-5560

TI - Microinformática

Associação Comercial São Paulo

Share this post


Link to post
Share on other sites

a funcao tem que voltar que tipod e valores? string ou boolean??

se a funcao retorna verdadeiro/falso, você não pode cria-la como string e sim como boolean:

Public Function char_error(str) As Boolean

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this