Access - Hacer contador de busqueda (+dentro)

Resulta que tengo una base de datos con muchos registros, y me gustaria saber cuantas veces se busca determinado registro. Vamos que me gustaria poner una especie de contador de busqueda, pero de busqueda general no, sino que cada registro tenga su contador, para saber que registro ha sido mas buscado y cuantas veces.
Si alguien tiene idea de hacer esto se lo agradeceria.

Buenos días:
Si tienes un cuadro de texto para hacer la búsqueda sobre un filtro (tipo combo), al hacerla crea un integer=0 para cada vez que se produzca el evento (pulsar botón buscar, etc.) , el integer (valor i por ejemplo) sea 1, y así cada vez.
Saludos.

Buenos días de nuevo:

dim i,i2,i3,ibusq,ibbusq2,ibusq3 as integer ... en las declaraciones globales del form.
Si tienes un combo(lista:Colegio,Nombre,Fecha) en el evento al cambiar.
Un comando al hacer click (Veces).
En abrir form: todos los integer=0.
Public Sub NumBusq()
If Me.cboCampo = "colegio" Then i = iBusq: i = i + 1: iBusq = i: Exit Sub
If Me.cboCampo = "nombre" Then i2 = iBusq2: i2 = i2 + 1: iBusq2 = i2: Exit Sub
If Me.cboCampo = "fecha" Then i3 = iBusq3: i3 = i3 + 1: iBusq3 = i3: Exit Sub
End Sub
...que lo pones en el evento afterupdate del combo.
En el comando (Veces) al hacer click:
If IsNull(Me.cboCampo) Then Exit Sub Else
If Me.cboCampo = "colegio" Then
MsgBox "Nº de Veces buscado: " & Me.cboCampo.Column(0) & ": " & iBusq
Exit Sub
End If
If Me.cboCampo = "nombre" Then
MsgBox "Nº de Veces buscado: " & Me.cboCampo.Column(0) & ": " & iBusq2
Exit Sub
End If
If Me.cboCampo = "fecha" Then
MsgBox "Nº de Veces buscado: " & Me.cboCampo.Column(0) & ": " & iBusq3
Exit Sub
End If

Saludos, ya comentas algo.