Popular base de dados… sábados…

Function Popular_Base(strAno As String, scont As Integer)
Dim dtini As Date, dtFim As Date, strSql As String, icont As Integer, sdia
dtini = CVDate(“1/” & “01” & “/” & strAno)
dtFim = DateAdd(“M”, 12, dtini) – 1
icont = scont + 1
Do While dtFim >= dtini
sdia = Weekday(dtini)
If sdia = 7 Then
strSql = “INSERT INTO tb_sabados(codigo, data, descricao)” & _
” SELECT ” & icont & “, ‘” & dtini & “‘ as dt, ‘” & “Sábado” & “‘;”
DoCmd.SetWarnings False: DoCmd.RunSQL strSql: DoCmd.SetWarnings True
icont = icont + 1
End If
dtini = dtini + 1
Loop
End Function