Boa Tarde, Por favor, alguém pode me ajudar com esta macro, coloquei em um campo formato de um formulario de pesquisa e esta dando erro, grato
Versão 7.4.23 (x64)
Erro de sintaxe do BASIC.
Esperado: ,.
Sub FormatText
If lblC = "CNPJ" Then Format("fmRep").text , "00\.000\.000\0000\-00")
Elseif lblC = "CPF" Then Format("fmRep").text , "000\.000\000\-00")
End If
End Sub
Sempre menciona o erro que você obtém e a version do LibreOffice que você usa.
No seu código faltam-lhe parentes.
Sr. elmau, obrigado pelo retorno, ainda esta dando erro.
você corregiste os parentesis?
Format(fmRep.text , "00\.000\.000\0000\-00")
sem ver o seu código completo é complicado ajudá-lo.
Asumo que seu controle se chama fmRep, então NÃO deve ir entre aspas e assumo que você já tem referenciado.
Ola @MauroMeira, opinião minha, fica bonitinho usar Dialogo, mas dá muito trabalho, prefiro formatar as células da planilhas, que são mais fácil a formatação. Para o usuário final é indiferente como foi construído, e sim ter confiabilidade nas informações.
Bom Dia Sr. Schiavinatto, muito obrigado pelo comentário, realmente é uma ótima opinião.
Format é uma função, então você precisa atribuí-la a uma variável. Como você usa Option Explicit, você deve declarar primeiro.
If lblC = "CNPJ" Then
resultado = Format(fmRep.text, "00\.000\.000\0000\-00")
ElseIf lblC.text = "CPF" Then
resultado = Format(fmRep.text, "000\.000\.000\-00")
End If
Bom Dia Sr. Elmau, muito obrigado pela solução do meu pedido, ficou top no meu projeto.