Postada em 26/06/2008 02:18 hs
amigos, tenho a seguinte construção em VBA no Access:
Private Sub Comando60_Click()
'Declarando As variáveis
Dim db As DAO.Database
Dim rs As DAO.Recordset
'Declarando os critérios
Dim data1, data2 As String
Dim Titulo, Padrao
'Setando a aplicação base
Set db = CurrentDb()
'Montando as InputBox's
Titulo = "Filtrando por Datas"
Padrao = "Insira data aqui, entre /. Exemplo xx/xx/xx"
data1 = InputBox("Informe data inicial", Titulo, Padrao, 3000, 3000)
data2 = InputBox("Informe data final", Titulo, Padrao, 3000, 3000)
'Setando o filtro SQL da pesquisa
Set rs = db.OpenRecordset("SELECT registro_os AS TOTAL FROM ordem" _
& " WHERE data_os" _
& " BETWEEN #" & Format((DateAdd("d", -1, data1)), "mm/dd/yyyy") & "#" _
& " AND #" & Format((DateAdd("d", 1, data2)), "mm/dd/yyyy") & "#;")
'& " HAVING ((peca_os = Yes) AND (resultado_os = No));")
'Setando a MsgBox alvo da consulta
MsgBox "Total de pendências no período: " & rs("TOTAL")
End Sub
Objetivamente, preciso que a MsgBox me retorne múltiplas linhas referentes ao campo registro_os, de todas as pendências encontradas na tabela ordem, nas condições da consulta rs acima, uma abaixo da outra, organizadamente.
Alguém sabe fazer isso... ? até hj ninguém do fórum esclareceu minha duvida.
Alguém pode me ajudar?
|
