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]Agregar dias de datas em campo de texto de formulário

    avatar
    lmatias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6
    Registrado : 13/08/2012

    [Resolvido]Agregar dias de datas em campo de texto de formulário Empty [Resolvido]Agregar dias de datas em campo de texto de formulário

    Mensagem  lmatias 16/5/2018, 10:16

    Olá a todos

    Será que me podem ajudar?

    Não consigo fazer o display, num campo texto, de dias de datas consecutivas.

    Tenho dois campos:
    DiaIni (campo calculado com o dia do mês de um campo do tipo data - "DataIni")
    DiaFim (campo calculado com o dia do mês de um campo do tipo data - "DataFim")

    Estes campos só existem no formulário. O conteúdo não vem de nenhuma tabela.

    Pretendo obter um campo texto, no formulário, com o seguinte conteúdo (supondo que DiaIni = 2 e DiaFim = 5):
    '02','03','04','05'

    Na situação de as datas de inicio e fim serem as mesmas (por exemplo DiaIni = 2 e DiaFim = 2) o resultado terá que ser:
    '02' (e não '02','02')

    É necessário incluir as plicas (') antes e depois de cada dia e virgula a separar.

    Obrigado
    LM
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Agregar dias de datas em campo de texto de formulário Empty Re: [Resolvido]Agregar dias de datas em campo de texto de formulário

    Mensagem  CassioFabre 16/5/2018, 14:15

    Bom dia,

    Tente o seguinte:
    Código:
    Dim dIni, dFim as integer

    txtSeuCampo = Null
    dIni = DiaIni
    dFim = DiaFim

    For i = dIni to dFim step 0
        if isNull(txtSeuCampo) = false then txtSeuCampo = txtSeuCampo & ", "
        txtSeuCampo = txtSeuCampo & "'"
        if i < 10 then txtSeuCampo = txtSeuCampo & "0"
        txtSeuCampo = txtSeuCampo & i & "'"

        i = i + 1
    next

    Se os campos DiaIni e DiaFim contiverem caractéres não numéricos (letras ou simbolos), o código dará erro.

    Abraço.


    .................................................................................
    Só não tem código pra morte!
    avatar
    lmatias
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6
    Registrado : 13/08/2012

    [Resolvido]Agregar dias de datas em campo de texto de formulário Empty Re: [Resolvido]Agregar dias de datas em campo de texto de formulário

    Mensagem  lmatias 17/11/2022, 10:48

    Peço desculpa por não ter respondido antes.
    Reconheço a minha falta

    Obrigado

    Conteúdo patrocinado


    [Resolvido]Agregar dias de datas em campo de texto de formulário Empty Re: [Resolvido]Agregar dias de datas em campo de texto de formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/11/2024, 19:00