Problema de programación de VB (simplemente no lo publiqué bien, así que lo reescribí)
Sé lo que quieres hacer, pero no entiendo muy bien lo que estás escribiendo, ya sea cambiar por fecha (es decir, comenzando desde 1 el mismo día) o números de serie secuenciales (todos los datos comenzando desde 1). Escribir de esta manera ahorra recursos del sistema. Solo puede devolver un registro y un campo como máximo, pero devolverá todos los registros y todos los campos.
Si desea numerar cada día, se recomienda escribirlo. este formato:
p>Atenuar sOrder como cadena
Atenuar s1 como cadena
Atenuar s2 como cadena
sOrder=Data1.8 )
s2=Format(Now(), "yyyymmdd")
SI s1=s2 entonces 'el mismo día'
sOrder=val(sOrder) 1
Else
sOrder=Format(Now(), "aaaammdd") amp "0001"
Endif