Access - Hacer contador de busqueda (+dentro)

   
Vista:

Hacer contador de busqueda (+dentro)

Publicado por DESAFIO (1 intervención) el 25/03/2012 03:07:40
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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Hacer contador de busqueda ( dentro)

Publicado por Fran (3 intervenciones) el 25/03/2012 13:07:18
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Hacer contador de busqueda ( dentro)

Publicado por Fran (3 intervenciones) el 25/03/2012 14:24:40
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar