Contar los registros de una tabla

[Juan Fco.]

Quiero contar los registros de una base de datos, pero no me funciona el Do While de este programa:

Dim contador as integer
Contador=0
Do while not eof
Contador=Contador+1
Loop

Se supone que la tabla ya está abierta, pues cuando se ejecuta el programa es en un formulario que ya ha abierto campos de una base de datos.

[GeoAvila]

recordset.recount

esta opcion facilitará tu vida..

nos vemos..

[Juan Fco.]

Ya, pero estoy interesado en la Do While. ¿Por qué no funciona do While en el codigo que he puesto?. Lo que busco es saberla utilizar para un caso mas complejo que tengo.

[xaquin]

simplemente no te funciona porque en ningún momento pasas al siguiente registro necesitarías hacer algo del estilo recordset.movenext dentro del bucle

[Juan Fco.]

Ya pero me da error en el EOF del tipo "El argumento no es opcional". No es problema de que recorra los registros, es que ni entra.

[xaquin]

tienes definido el recordset?Abres el recordset para ejecutar la consulta?Si lo tienes escrito tal y como lo pones ahi es normal que te falle ya que no tienes ninguna consulta ni nigún recordset, creía que estabas poniendo sólo un resumen de tu problema

[Juan Fco.]

La consulta si la tengo. ¿Cómo defino y abro el recordset?

[xaquin]

¿abriste una conexión a la bbdd?

[Juan Fco.]

L abse de datos se supone que está abierta, pues este código lo ejecuta el procedimiento Form_Open de un formulario que abre la base de datos. Te adjunto el código:

Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
Do While Not EOF
N_1 = (E1 + 2 * E2) / 3
NF_1 = N_1 * 0.8 + H1 / T1 + (I1 + G1) / 2 * 0.1

strSQL = "UPDATE ALUMNOS SET ALUMNOS.N1='" & N_1 & "'" & " WHERE ALUMNOS.EXPEDIENTE=" & EXPEDIENTE
CurrentDb.Execute strSQL 'Para que no muestre el numero de cambios
Loop

End Sub

[xaquin]

entonces no es visual basic, sino visual basic for applications y estás trabajando en Access o me equivoco?

[GeoAvila]

Bueno para la proxima definí que lenguaje de programación estas usando para que se nos haga mas facil ayudarte..

nos vemos..

[Juan Fco.]

OK, estoy trabajando en VBA (VB en Access)

[GeoAvila]

creo que esta pregunta ya fue repondida en este post..

http://www.forosdelweb.com/f21/contar-registros-tabla-318635/

nos vemos..

[RootK]

No repetir post porfavor..