Pilar
01 de Septiembre del 2003

Hola.Tengo una duda.
Tengo una bd en Access ,uno de sus campos, Telefonos,se repite
tengo q visualizar los datos q tengan el mismo campo,es decir,varios individuos tienen el mismo telefono y tengo que visualizar a eso individuos.

Yo lo he hecho con dos recordset pero no me sale,
¿Voy bien encaminada ?¿Como se haria?
Gracias.

tmp_juan
01 de Septiembre del 2003

Mira a ver que te parece....

Option Compare Database

Function saca_tel()

Dim base As Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim iCont As Integer
Dim strSalida As String
Dim strSalida2 As String

Set base = CurrentDb
Set rs1 = base.OpenRecordset("select Tf, count(Tf) as veces from clientes group by TF")
strSalida = ""
rs1.MoveFirst
ReDim arrRepes(0)
While Not rs1.EOF
If rs1.Fields("veces") > 1 Then
Set rs2 = base.OpenRecordset("select nombreCliente from clientes where Tf='" & rs1.Fields("Tf") & "'")
rs2.MoveFirst
strSalida = "Número de Tf." & rs1.Fields("Tf") & " Duplicado para: "
While Not rs2.EOF

strSalida = strSalida & vbCrLf & rs2.Fields("nombreCliente")
rs2.MoveNext
Wend
strSalida2 = strSalida2 + strSalida & vbCrLf
End If
rs1.MoveNext
Wend
rs2.Close
Set rs2 = Nothing

rs1.Close
Set rs1 = Nothing

base.Close
Set base = Nothing

saca_tel = strSalida2



End Function

Private Sub Comando0_Click()
MsgBox saca_tel
End Sub


SALU2!!!!

alberto
01 de Septiembre del 2003

lo que tienes que hacer es utilizar una consulta SQL en uno de los recordset (no necesitas 2..).
Tal ves esta sintaxis SQL te ayudaria:
Select * from Nombre de tu tabla where Telefono='numeroTel'
Basicamente con esto ya lo podrias hacerlo. Como yo uso el datacontrol lo haria de esta forma:
En el form colocas un txt donde se ingrese el num de tel.

Private Sub CMDVerdatosConTel_Click()
with datDatos
.Recordsource="Select * from NombreTabla
where Telefono=' " & txtNumTel.text & " '"
.refresh 'para refrescar el recordset
'podrias ver el resultado en una grilla
dbgGrilla.Datasource=datDatos
dgbGrilla.refresh
end with
end sub

Espero q te sirva de algo.
salu2

albr

tmp_juan
01 de Septiembre del 2003

Joder para una puta función que me curro para esta piba, y ni siquiera me da las gracias, y eso que funciona de puta madre.
Alberto, tu método requiere la intervención del usuario, el mio te saca una lista de todos los números repetidos en la tabla y sus nombres de un 'viaje'

feliz puente de la Paloma a tod@s, a disfrutarlo!!!