Proba en ponerle el rsAux.MoveFirst antes de DoWhile... SaludosCarlosMag
From: [EMAIL PROTECTED]: [EMAIL PROTECTED]: [vbusers] error en una countDate: Mon, 24 Mar 2008 17:26:41 -0300 Hola estoy modificando un programa viejo... y necesito hacer esta consulta. Dim datos As String SQL1 = "SELECT Micros.Color, Micros.Recorrido, Paradas.NOM_PARADA, Count(chicos.C_CHICO) AS total, chicos.C_MIC_SAL, chicos.C_PAR_SAL, chicos.C_ACTIVO, Paradas.Salida_Llegada, Paradas.HORA " SQL2 = "FROM (Micros INNER JOIN chicos ON Micros.Codigo = chicos.C_MIC_SAL) INNER JOIN Paradas ON (chicos.C_PAR_SAL = Paradas.COD_PARADA) AND (chicos.C_MIC_SAL = Paradas.MICRO) " SQL3 = "GROUP BY Micros.Color, Micros.Recorrido, Paradas.NOM_PARADA, chicos.C_MIC_SAL, chicos.C_PAR_SAL, chicos.C_ACTIVO, Paradas.Salida_Llegada, Paradas.HORA " SQL4 = "HAVING (((chicos.C_ACTIVO) = 'S')) ORDER BY chicos.C_MIC_SAL, chicos.C_PAR_SAL" SQL = SQL1 & SQL2 & SQL3 & SLQ4 Set rsAux = Base.OpenRecordset(SQL, dbOpenForwardOnly) If rsAux.RecordCount > 0 Then Do While rsAux.EOF = False datos = rsAux![micros.Color] & " " & rsAux![micros.recorrido] & " " & rsAux!total List1.AddItem (datos) Loop End If El tema es que entra en loop y se cuelga.... si verifico el recordcount me da 1 si uso en administrador visual de datos o el access para armar la consulta me da lo correcto, pero cuando lo incorporo al programa no. alguna pista? gracias Gabriel _________________________________________________________________ Blog your life in 3D with Windows Live Writer. http://www.windowslive.com/overview.html?ocid=TXT_TAGLM_Wave2_wl_writer_022008
