MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Caixa de Texto: Texto + Data

    avatar
    pmc55
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 19/03/2011

    [Resolvido]Caixa de Texto: Texto + Data Empty Caixa de Texto: Texto + Data

    Mensagem  pmc55 6/9/2011, 19:33

    Num formulário calendário os dias surgem em caixas de texto.
    Quando o dia é feriado gostaria que o texto incluísse a palavra feriado.
    Por ex. em Dezembro: Feriado 25
    Coloco no VBA:
    Me("D" & N).Format = "Feriado DD"
    O resultado foi:
    Feriado DD

    Mas ao colocar:
    Me("D" & N).Format = "F DD"
    O resultado foi:
    F 25

    Isto é, se colocar apenas a letra F assume o número do dia ( 25 neste caso ), mas ao colocar a palavra inteira Feriado não surge o nº mas sim as letras DD.
    O que estou a fazer de errado ?
    avatar
    Convidado
    Convidado


    [Resolvido]Caixa de Texto: Texto + Data Empty Re: [Resolvido]Caixa de Texto: Texto + Data

    Mensagem  Convidado 6/9/2011, 21:22

    Me("D" & N).Format = "Feriado DD"

    Em azul é uma caixa texto?

    o que é "D" e o que é N ?
    avatar
    pmc55
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 19/03/2011

    [Resolvido]Caixa de Texto: Texto + Data Empty Re: [Resolvido]Caixa de Texto: Texto + Data

    Mensagem  pmc55 6/9/2011, 21:40

    Cada caixa de texto corresponde a um dia do mês ondeD1, D2, D3.... é o nome de cada caixa de texto.
    No VBA tenho "D" & x numa função:

    For x = 1 to 42
    ....
    Next

    avatar
    Convidado
    Convidado


    [Resolvido]Caixa de Texto: Texto + Data Empty Re: [Resolvido]Caixa de Texto: Texto + Data

    Mensagem  Convidado 6/9/2011, 21:51

    Ele vai adicionando a cada loop com a variação do nome da caixaTexto... onde N é a variável..

    Ok...

    Tente assim:

    Me("D" & N).Format = "Feriado " & DD
    avatar
    pmc55
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 19/03/2011

    [Resolvido]Caixa de Texto: Texto + Data Empty Re: [Resolvido]Caixa de Texto: Texto + Data

    Mensagem  pmc55 6/9/2011, 21:53

    Compile erro:
    Informa que DD é uma variável não definida.
    avatar
    Convidado
    Convidado


    [Resolvido]Caixa de Texto: Texto + Data Empty Re: [Resolvido]Caixa de Texto: Texto + Data

    Mensagem  Convidado 6/9/2011, 22:17

    Eu teria quer ver o código completo amigão... se puder poste o bd aqui para que possamos encontrar uma solução

    Cumprimentos
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010

    [Resolvido]Caixa de Texto: Texto + Data Empty Re: [Resolvido]Caixa de Texto: Texto + Data

    Mensagem  Avelino Sampaio 6/9/2011, 22:32

    Olá

    tente assim:

    Me("D" & N).Format = "Feriado " & Day(Me("D" & N))

    Sucesso!
    avatar
    pmc55
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 30
    Registrado : 19/03/2011

    [Resolvido]Caixa de Texto: Texto + Data Empty Re: [Resolvido]Caixa de Texto: Texto + Data

    Mensagem  pmc55 7/9/2011, 08:00

    Resultou!
    Muito obrigado pela colaboração.
    avatar
    Convidado
    Convidado


    [Resolvido]Caixa de Texto: Texto + Data Empty Re: [Resolvido]Caixa de Texto: Texto + Data

    Mensagem  Convidado 7/9/2011, 11:14

    O Fórum agradece o retorno. Bom trabalho.

    Conteúdo patrocinado


    [Resolvido]Caixa de Texto: Texto + Data Empty Re: [Resolvido]Caixa de Texto: Texto + Data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/5/2024, 04:01