Prezados colegas,
Tenho utilizado o código abaixo de autoria do nosso amigo ahteixeira em minha consulta e funciona muito bem.
Estou tentando chamar este código em uma textbox mas não estou conseguindo.
Alguém teria alguma dica? Desde já, agradeço a atenção e ajuda.
Public Function fncAbreviaChr(sCampo$) As String
'ahteixeira 2019 para maximo
If Len(sCampo & "") > 0 Then
Dim sTmp$
sTmp = sCampo
sTmp = Replace(sTmp, "CALDEIRARIA", "CALD")
sTmp = Replace(sTmp, "MECANICA", "MEC")
fncAbreviaChr = sTmp
End If
End Function
Na minha textbox estou usando o código no evento "após atualizar" da seguinte forma:
call fncAbreviaChr (me.txt_empr)
Tenho utilizado o código abaixo de autoria do nosso amigo ahteixeira em minha consulta e funciona muito bem.
Estou tentando chamar este código em uma textbox mas não estou conseguindo.
Alguém teria alguma dica? Desde já, agradeço a atenção e ajuda.
Public Function fncAbreviaChr(sCampo$) As String
'ahteixeira 2019 para maximo
If Len(sCampo & "") > 0 Then
Dim sTmp$
sTmp = sCampo
sTmp = Replace(sTmp, "CALDEIRARIA", "CALD")
sTmp = Replace(sTmp, "MECANICA", "MEC")
fncAbreviaChr = sTmp
End If
End Function
Na minha textbox estou usando o código no evento "após atualizar" da seguinte forma:
call fncAbreviaChr (me.txt_empr)