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

    Agregar dias de datas em campo de texto de formulário

    Compartilhe

    lmatias
    Novato
    Novato

    Respeito às Regras 100%

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

    Agregar dias de datas em campo de texto de formulário

    Mensagem  lmatias em 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
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: Agregar dias de datas em campo de texto de formulário

    Mensagem  CassioFabre em 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!

      Data/hora atual: 22/10/2018, 20:25