RELATORIO - URGENTE - POR FAVOR!

USUARIO.EXCLUIDOS 06/04/2005 21:19:55
#77086

Tenho um modulo com a seguinte função, q tem o caminho do banco de dados mas a tabela a ser usada

function abrebanco()
linha = c:\banco
set bd = opendatabase(linha)
set tb = db.openrecordset(tabela)
end sub

e tenho um botão q gera o relatorio

cmdgerar relatorio_click()
Dim contador As Integer ' Conta a quantidade de linhas
Dim municipio, marca, modelo1, cor, BAIXA, Placa, munic, marc, model, cor1, placas, qtde, cont, z ' Criação de Variais

abrebanco
TB.MoveLast 'move para o ultimo registro
total de registro = TB("cod")

TB.MoveFirst 'move para o primeiro registro
Print #i,
contador = contador + 1
Print #i, Tab(25); "Relatório Parcial de Advertências "
contador = contador + 1
Print #i, " Placa " & " Municipio "; Tab(30); " Marca "; Tab(45); " Modelo " & " Cor "
contador = contador + 1
Print #i, "-----------------------------------------------------------------------------------"

ordenar em ordem de placa
With TBADV
.Index = "placa"
End With

Do While TBADV.EOF = False

municipio = Mid(TBADV("municipio"), 1, 13)
marca = Mid(TBADV("marca"), 1, 10)
modelo1 = Mid(TBADV("modelo"), 1, 10)
cor = Mid(TBADV("cor"), 1, 10)
BAIXA = TBADV("BAIXAR") ' se a advertencia já foi cancelada será atribuido o valor -1 e se ainda nao foi cancelada o valor (0) zero
Placa = TBADV("placa") & "-" & TBADV("placa1") 'Letras e Numeros, ex: ABC-1234

If placas = Placa Then
If BAIXA = 0 Then
qtde = qtde + 1
End If
ElseIf placas <> Placa Then
Print #i, "Qtde de Registros.:"; qtde
contador = contador + 1
Print #i, placas; Tab(15); munic; Tab(30); marc; Tab(45); model; Tab(60); cor1
contador = contador + 1
qtde = 0
End If
TB.MoveNext
placas = Placa
munic = municipio
marc = marca
model = modelo1
cor1 = cor
Loop

só q nao dá certo porque sempre tenho um registro a menos gostaria de saber como faço para contar quantos registro iguais exitem de cada placa sem cancelar

ex:

no relatorio tem que sair assim

Quantidade de Registros: 20
Placa: ABC-1234

ELE FILTRARIA TODOS OS REGISTROS NAO CANCELADOS EM ORDEM ALFABETICA E SOMARIA A QUANTIDADE DE CADA PLACA

SE NAO FUI CLARO DESCULPE EU TENTEI