scandinavo 19/10/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 47 vez(es)