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

    Compartilhe
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    [Resolvido]Erro função Replace

    Mensagem  toyebom em Qui 08 Fev 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.
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Erro função Replace

    Mensagem  toyebom em Qui 08 Fev 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.
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Erro função Replace

    Mensagem  Alexandre Fim em Qui 08 Fev 2018, 23:32

    Olá toyebon,

    Altere sua expressão para:

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


    Att,

    Alexandre Fim
    avatar
    toyebom
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Erro função Replace

    Mensagem  toyebom em Qui 08 Fev 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.
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Erro função Replace

    Mensagem  Alexandre Fim em Sex 09 Fev 2018, 01:04

    cheers cheers cheers

      Data/hora atual: Qui 24 Maio 2018, 01:25