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
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [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.
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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.
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    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
    avatar
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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.
    avatar
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Erro função Replace

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

    cheers cheers cheers

      Data/hora atual: 19/7/2018, 07:02