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]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 : 125
    Registrado : 11/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 4/10/2018, 01: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 : 2899
    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 4/10/2018, 02: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 : 125
    Registrado : 11/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 4/10/2018, 02: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 : 2899
    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 4/10/2018, 02: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 : 125
    Registrado : 11/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 4/10/2018, 02: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 : 2899
    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 4/10/2018, 02: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 : 2899
    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 4/10/2018, 02: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 : 2899
    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 4/10/2018, 02: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 : 125
    Registrado : 11/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 4/10/2018, 03: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 : 125
    Registrado : 11/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 4/10/2018, 03: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 : 2899
    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 4/10/2018, 04: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 11 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 : 125
    Registrado : 11/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 4/10/2018, 04: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 : 2899
    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 4/10/2018, 04:45

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


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

    Conteúdo patrocinado

    [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  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 10:11