MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]Erro função Replace

    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1121
    Registrado : 18/07/2012

    [Resolvido]Erro função Replace Empty [Resolvido]Erro função Replace

    Mensagem  toyebom em 8/2/2018, 22:08

    Run-time '438'
    Object doesn't support this property or method

    Acho que estou a errar na linha de comando para um campo data ao exportar para word.

    .ActiveDocument.Bookmarks("NrefData").Select: .Selection.text = Nz(Left(Forms!OficioNovo.Texto614.Replace("/", "-"), 10)) 'N. Referência Data


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1121
    Registrado : 18/07/2012

    [Resolvido]Erro função Replace Empty Erro função Replace

    Mensagem  toyebom em 8/2/2018, 23:28

    Estou quase lá mas necessito de ajuda

    .ActiveDocument.Bookmarks("NrefData").Select: .Selection.text = Nz(Replace(Forms!OficioNovo.Texto614, "/", "-"))

    Com a linha dá este resultado:
    08-02-2018 23:08:50

    Se colocar

    .ActiveDocument.Bookmarks("NrefData").Select: .Selection.text = Nz(Replace(Forms!OficioNovo.Texto614, "/", "-", 10))

    Com a linha dá este resultado:
    8 23:08:50

    Mas o que queria era:
    08-02-2018

    Se colocar Nz(Replace.Left( dá erro


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 721
    Registrado : 13/12/2016

    [Resolvido]Erro função Replace Empty Re: [Resolvido]Erro função Replace

    Mensagem  Alexandre Fim em 8/2/2018, 23:32

    Olá toyebon,

    Altere sua expressão para:

    Replace(Nz(Left(Forms!OficioNovo.Texto614, 10)),"/","-")


    Att,

    Alexandre Fim
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1121
    Registrado : 18/07/2012

    [Resolvido]Erro função Replace Empty Erro função Replace

    Mensagem  toyebom em 8/2/2018, 23:45

    É isso mesmo, já tinha tentado mil e uma maneiras, faltava essa, obrigado.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 721
    Registrado : 13/12/2016

    [Resolvido]Erro função Replace Empty Re: [Resolvido]Erro função Replace

    Mensagem  Alexandre Fim em 9/2/2018, 01:04

    cheers cheers cheers

    Conteúdo patrocinado

    [Resolvido]Erro função Replace Empty Re: [Resolvido]Erro função Replace

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/5/2019, 06:37