Category Archives: Programação

Private Sub LocalizarTodosCampos() ‘O código abaixo, localiza o critério em qualquer campo do formulário ‘Cortesia de Alexandre Minato ‘Permitida a distribuição / utilização desde que mantido os créditos If Me.txtFiltro = “” Then Exit Sub Dim sql As String sql = “SELECT * FROM tblCadastro ” Dim contador As Byte contador = 0 If Not… Read More »

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… Read More »