COMO FAÇO PARA EXECUTAR ESSA FUNÇÃO? TO PRECISANDO URGENTE DE RETIRAR TODOS OS ACENTOS DE UM BANCO EM ACCESS QUE TENHO, SÓ NÃO TENHO IDEIA DE COMO FAZER.
ENCONTREI ESSAS RESPOSTAS DE VOCÊS MAS NEM SEI POR ONDE COMEÇAR.
POR FAVOR ME AJUDEM, TO FICANDO LOUCA!!!
O PIOR É QUE SEMPRE VOU TER QUE FAZER ISSO, POIS TO COMEÇANDO A ESTUDAR!!!
MUITO OBRIGADA A QUEM PUDER ME SOCORRER.
Capturar Ultima Palavra
Function CapturaUltimaPalavra(expr As String)
'Esta função retira a última palavra de uma expressão
Dim Temp, i As Integer, P As Integer
Temp = Trim(expr)
P = 1
For i = Len(Temp) To 1 Step -1
If (Mid(Temp, i, 1)) = " " Then
P = i + 1
Exit For
End If
Next i
If P = 1 Then
CapturaUltimaPalavra = Temp
Else
CapturaUltimaPalavra = Mid(Temp, P)
End If
End Function
Pergunta
jumandi
PESSOAL, ME SOCORRAM POR FAVOR!!!
COMO FAÇO PARA EXECUTAR ESSA FUNÇÃO? TO PRECISANDO URGENTE DE RETIRAR TODOS OS ACENTOS DE UM BANCO EM ACCESS QUE TENHO, SÓ NÃO TENHO IDEIA DE COMO FAZER.
ENCONTREI ESSAS RESPOSTAS DE VOCÊS MAS NEM SEI POR ONDE COMEÇAR.
POR FAVOR ME AJUDEM, TO FICANDO LOUCA!!!
O PIOR É QUE SEMPRE VOU TER QUE FAZER ISSO, POIS TO COMEÇANDO A ESTUDAR!!!
MUITO OBRIGADA A QUEM PUDER ME SOCORRER.
Link para o comentário
Compartilhar em outros sites
3 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.