funcion dcount

Hola, Pablo:

En el evento "Al abrir" del formulario, aún no están
disponibles los controles del formulario, por lo que no
puedes hacer la asignación que intentas. El problema no
es, evidentemente, del Dcount.

Un evento para hacer lo que deseas puede ser "Al activar
registro", así tu código podría quedar así:

Private Sub Form_Current()
If Me.NewRecord = True Then
If DCount("codigoclientes", "clientes") = 0 Then
Me.codigoclientes = 1
Else
Me.codigoclientes = DMax("codigoclientes"
End If
End If
End Sub

Este evento se ejecuta cada vez que nos posicionamos con
el foco en un registro, preguntamos por la
propiedad "NewRecord" que es verdadera sólo cuando estamos
en un registro "nuevo" que es cuando interesa hallar
el "codigoclientes".

Saludos,
CarCar
MVP-Access

Hola a todos
Aunque la pregunta hace referencia a dcount, me parece

que no tiene mucho

que ver. CarCar acaba de contestarme a la pregunta de

como se sabe el numero

de registros de una tabla. Pues yo tengo el siguiente

codigo en el evento al

abrir del formulario de entrada de clientes:
If DCount("codigoclientes", "clientes") = 0 Then
Me.codigoclientes = Val("00001")
End If
Mi intencion es que si no hay ningun cliente que me

presente el 1, si hay

algun cliente presentaria el dmax +1, pero me quede en el

principio, la

sentencia de asignación de valor al campo codigoclientes,

de tipo entero

largo no funciona, ni con un 1 ni con val("00001"),

alguien puede decirme

que estoy haciendo mal.
Gracias.
Pablo



.