FILTRO
Tenho um relatorio que conta quantos registro tem uma placa de carro e me imprime, só que demora muito por fiz uma rotina que ele conta primeiro quanto registro tem e depois imprime, entao fica pesado.
Meu banco de dados é em access.
Gostaria que fosse assim:
1º eu Digito a quantidade de Registro que quero.
2º Digito a placa.
Suponhamos que digitei a qtde de registro : 20
e a placa: ABC - 1234
Gostaria que ele filtrasse essa placa, verificasse se tem 20 registros e se tivesse imprimisse.
Fiz o seguinte:
with tb
.index = "Placa"
.seek "=", letras, numeros 'Letras e Numeros da placa
If .NoMatch Then
Exit Sub
Else
TBADV.Filter = Placa
End If
End With
só que nao da certo.
Desde já agradeço
Meu banco de dados é em access.
Gostaria que fosse assim:
1º eu Digito a quantidade de Registro que quero.
2º Digito a placa.
Suponhamos que digitei a qtde de registro : 20
e a placa: ABC - 1234
Gostaria que ele filtrasse essa placa, verificasse se tem 20 registros e se tivesse imprimisse.
Fiz o seguinte:
with tb
.index = "Placa"
.seek "=", letras, numeros 'Letras e Numeros da placa
If .NoMatch Then
Exit Sub
Else
TBADV.Filter = Placa
End If
End With
só que nao da certo.
Desde já agradeço
tente usar somente o filter!
tb.Filter = "Placa = '" & Placa & "'"
if tb.EOF then
exit sub
else
msgbox "Foram encontrados " & tb.Recordcount & " registros."
end if
Tópico encerrado , respostas não são mais permitidas