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]Inserir dias do mês no Subformulário

    Compartilhe
    avatar
    tayguara
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/09/2014

    [Resolvido]Inserir dias do mês no Subformulário

    Mensagem  tayguara em Seg 16 Out 2017, 15:15

    Bom dia a todos!
    Eu estou procurando uma forma de, no formulário, ao informar o primeiro dia ou escolher um mês, e clicar em um botão, se preencha um subformulário com os dias de 01 a 30 ou 28/31 quando for o caso, na sequencia. Já pesquisei mas ainda não encontrei nada parecido.
    Fico no aguardo e agradeço desde já.
    avatar
    scandinavo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 11/11/2009

    Re: [Resolvido]Inserir dias do mês no Subformulário

    Mensagem  scandinavo em Qui 19 Out 2017, 23:41

    Adapta ai........(Funcionamento parecido com gerador de parcelas)

    Private Sub btAddDias_Click()
    '-------------------------------------
    ' Criado Scandinavo
    ' em 19/10/2017
    '-------------------------------------
    Dim DB As Database
    Dim rs As DAO.Recordset

    Set DB = CurrentDb()
    Set rs = DB.OpenRecordset("tblDias")

    Dim DataInício As Date 'Define as variaveis
    Dim DataFim As Date 'Define as variaveis
    Dim QntDias As Integer 'Define as variaveis
    Dim d As Integer 'Define as variaveis

    DataInício = CDate("01/" & Month(Me!Mes) & "/" & Year(Me!Mes)) 'Carrega as variaveis
    DataFim = DateAdd("d", -1, DateAdd("m", 1, DataInício)) 'Carrega as variaveis
    QntDias = DateDiff("d", DataInício, DataFim) + 1 'Carrega as variaveis

    'Verifica se o subfrm não esta preenchido
    If Forms!frmMes!subfrmDias.Form.RecordsetClone.RecordCount = 0 Then

    Else ' se ja emite mensagem
    MsgBox "Lista já preenchida !", vbCritical, "Atenção"
    Exit Sub ' sai da função
    End If
    'Se não preenche o subfrm com os dias
    For d = 1 To QntDias
    rs.AddNew
    rs("MesDias") = Me.Mes
    rs("Dias") = d
    rs.Update
    Next
    rs.Close
    DB.Close
    'Atualiza o subfrm
    Me.subfrmDias.Requery
    End Sub
    Anexos
    GerarDias.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 20 vez(es)
    avatar
    tayguara
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 23/09/2014

    Re: [Resolvido]Inserir dias do mês no Subformulário

    Mensagem  tayguara em Qua 01 Nov 2017, 19:52

    Boa tarde amigo scandinavo
    Seu exemplo me ajudou.
    Muito obrigado!
    avatar
    scandinavo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 359
    Registrado : 11/11/2009

    Re: [Resolvido]Inserir dias do mês no Subformulário

    Mensagem  scandinavo em Qua 08 Nov 2017, 23:19

    Valeu pelo retorno

      Data/hora atual: Ter 21 Nov 2017, 20:55