MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 10/05/2012

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  grbpereira em Qua 3 Out - 20:36

    Olá, Senhoras, Senhores, Rapazes e Moças apaixonados pelo Access!

    Boa Noite!

    Meus Caros, em postagem anterior, pedi ajuda a vocês, mas acredito que ficou meio confusa a explicação. Então, excluí a mensagem anterior, e estou postando esta nova, no intuito de ser mais claro; para com que os colegas, à medida do possível, me ajudem.

    Há dias venho batendo cabeça para consegui um modelo ou uma solução para o sistema em anexo.

    Passos:
    1 - Ao criar um novo Contrato, entro com a data (Início do Processo: )   Exemplo: 26/08/2018

    2 - Em seguida, clico no botão Inserir Etapas: As Etapas do Processo são carregadas no Subformulário

    PEÇO GENTILMENTE A VOCÊS:

    3 - Preciso que o primeiro registro do Subformulário fique com o campo: Entrada Feliz: 26/08/2018
     Por padrão, o Intervalo Dias já vem informado. Neste caso, 3 dias.
     O campo Saída Feliz, será calculado: 26/08/2018 + 3 = 29/08/2018.

    4 - O segundo registro do Subformulário fique com o campo: Entrada Feliz: 30/08/2018
      O Intervalo Dias já vem informado. Neste caso, 5 dias.
      O campo Saída Feliz, será calculado: 30/08/2018 + 5 = 04/09/2018.

    5 - E assim sucessivamente até o último registro do Subformulário.

    Obs.: O ideal, é que o Cálculo seja feito somente com os dias úteis (tenho um modelo e posso adaptar); mas a minha aflição, é conseguir popular as demais datas de forma automática.


    Este é o código que estou utilizando:

    Private Sub cmdGravar_Click()
    Dim dbs As DAO.Database
    Dim rs7 As DAO.Recordset
    Dim tbl As DAO.Recordset
    Dim i As Byte
    '---------------------------------------
    Set dbs = CurrentDb
    Set tbl = dbs.OpenRecordset("t02ObjDth")
    Set rs7 = frmEventosS2Oculto.Form.RecordsetClone
    rs7.MoveFirst
    '---------------------------------------------------------------
    'Exportando os campos necessários
    Do While Not rs7.EOF
                          'For i = 1 To Me.QtdRegistros
    tbl.AddNew
            tbl!ObjDth_Obj_id = Me.Obj_id
             tbl!ObjDth_Modal_id = rs7!ObjDth_Obj_Modal_id
             tbl!ObjDth_EspCont_id = rs7!ObjDth_Obj_EspCont_id
             tbl!ObjDth_tpOb_id = rs7!ObjDth_Obj_tpOb_id
             tbl!ObjDth_EtM_id = rs7!ObjDth_Obj_EtM_id
         
          'Calcula as datas de Vencto através da função DateAdd()
              tbl!ObjDth_DtEntradaCamiFeliz = DateAdd("m", i - 1, Me.Obj_dtContrato)
     tbl.Update
                          'Next
     rs7.MoveNext
    Loop

    tbl.Close
    rs7.Close
    Set tbl = Nothing
    Set rs7 = Nothing

    MsgBox "Registros adicionados com sucesso.", vbInformation, "Sucesso"

      Me.sf1.SetFocus 'Foco no SubForm Parcelas
      Me.cmdGravar.enabled = False 'Desativa o botão Parcelas
      Me.sf1.Requery  'Atualiza o SubForm Parcelas
    End Sub


    Antecipadamente agradeço a Todos pela Força!

    O Meu Sempre Forte, Carinhoso e Fraterno Abraço,
    Guilherme B. Pereira
    Anexos
    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) AttachmentPreenchimento Automático das Demais Datas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (678 Kb) Baixado 5 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  Marcelo David em Qua 3 Out - 21:16

    Boa noite,

    grbpereira escreveu:E assim sucessivamente até o último registro do Subformulário.

    Qual o critério para o sucessivamente?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 10/05/2012

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  grbpereira em Qua 3 Out - 21:36

    Olá, Marcelo!



    Neste caso, o sucessivamente é: repete o mesmo cálculo até o final. Smile)



    Abração, Marcelo!!!





    []'s
    Guilherme
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  Marcelo David em Qua 3 Out - 21:40

    Mas aí está minha dúvida... Como saber onde é o final?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 10/05/2012

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  grbpereira em Qua 3 Out - 21:46

    Perfeito! Smile)

    Marcelo, você tem razão!

    Não adicionei essa informação: QtdRegistros é a quantidade de registro de cada contrato, lembrando que pode ser X, Y, W, X+5, Y+W...

    Obs.: QtdRegistros, está à direita de inserir Etapas. Smile


    []'s
    Guilherme
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  Marcelo David em Qua 3 Out - 21:50

    Mas o campo QtdRegistros é bloqueado e já inicia com zero, como alterá-lo?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  Marcelo David em Qua 3 Out - 21:53

    Desculpe, entendi agora, vou ver como proceder aqui...


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  Marcelo David em Qua 3 Out - 21:57

    Não ficou claro para mim como saber o intervalo de dias, se é 3, 5, etc?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 10/05/2012

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  grbpereira em Qua 3 Out - 22:01

    Caro Marcelo, os intervalos de Dias, vêm predefinidos na tabela: tEtapasMovi


    []'s
    Guilherme
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 10/05/2012

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  grbpereira em Qua 3 Out - 22:02

    Beleza! Smile)


    Marcelo, agora que percebi que estava com um pequeno problema para criar novos Contratos. Eu já arrumei. Smile)


    Por favor, crie um fictício selecionando os dados e clique no Refresh para "subir" os dados. ;-))


    Obs.: Estou enviando a versão arrumada.


    []'s
    Guilherme
    Anexos
    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) AttachmentPreenchimento Automático das Demais Datas (v2).zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (681 Kb) Baixado 3 vez(es)
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  Marcelo David em Qua 3 Out - 23:33

    Veja se é isso:
    Obs: Não implementei os dias úteis, pois julgo ser assunto para outro tópico.
    Anexos
    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) AttachmentPreenchimento Automático das Demais Datas (v2)_new1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.1 Mb) Baixado 12 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    grbpereira
    grbpereira
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 148
    Registrado : 10/05/2012

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  grbpereira em Qua 3 Out - 23:42

    Caro Marcelo!!!

    NÃO TENHO PALAVRAS PARA TE AGRADECER (em maiúsculo!!!)

    Logo; Tenha a Minha GRATIDÃO.

    E que Deus, bem como os Anjos da Guarda, dê a Paz Física, Divina e Espiritual; para Você e todos os Seus Entes Queridos.


    De todo o meu Coração: OBRIGADO!!!!



    O Meu sempre Forte, Carinhoso e Fraterno Abraço,
    Guilherme B. Pereira
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For) Empty Re: [Resolvido]Preenchimento Automático das Demais Datas (DateAdd com While ou For)

    Mensagem  Marcelo David em Qua 3 Out - 23:45

    Fico feliz em ajudar! cheers cheers
    O mesmo para você!


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

      Data/hora atual: Sab 4 Jul - 10:54