SoloCodigo

hola a todos espero que esten muy bien
bueno les cuento:
   tengo el siguiente problema tengo una base de datos access 97 la cual tiene como 5 tablas es algo bien chico pero super util y resulta que esta tabla se encuentra en un servidor y estoy diseñando una aplicacion que lea esta bases y por ejemplo tengo la tabla maestro la cual funciona con un indice auto numerico y siempre leo el ultimo registro para tomar el valor y sumarle uno para agregar uno nuevo, por ejemplo el ultimo en la tabla es "Folioatencion" y su valor es "2001" si yo quiero agregar uno nuevo le sumo uno osea seria "folioatencion" y su valor es "2002" esto funcionaba super bien pero la ultima ves que descargue la base de datos ya no puedo tomar el ultimo valor del folioatencion el codigo de busqueda es el siguiente

 Private Sub Form_Load()
 Set a = OpenDatabase(App.Path & "\bd1.mdb")
 Set b = a.OpenRecordset("maestro_atenciones")
 If b.RecordCount = 0 Then
     MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
 Else
     b.MoveLast
 End If
 Dim folio As Integer
 folio = Val(b.Fields("folio_atencion"))
 Text1.Text = Val(Text1.Text) + folio
 Text1.Text = Val(Text1.Text) + 1
 end sub

y supuestamente deberia funcionar por favor si alguien me puede ayudar o no entendio lo que trate de explicar que escriba aqui y le constesto please,
muchas gracias a todos por su ayuda adios
 

Hola neorent   ...pienso que antes de preguntar por el recordcount=0 deberias posicionarte en el ultimo registro para que la cuenta sea correcta.. ...
osea..algo asi:


Prueba con eso y me cuantas.. ..suerte..nos vemos..  ..y espero que tengas una Feliz Navidad y un Prospero Año Nuevo..

Hola neorent   ...pienso que antes de preguntar por el recordcount=0 deberias posicionarte en el ultimo registro para que la cuenta sea correcta.. ...
osea..algo asi:

Código: Text

1. Private Sub Form_Load()
2.     Set a = OpenDatabase(App.Path & "\bd1.mdb")
3.     Set b = a.OpenRecordset("maestro_atenciones")
4.     b.MoveLast
5.     If b.RecordCount = 0 Then
6.            MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese"
7.     End If
8.     Dim folio As Integer
9.     folio = Val(b.Fields("folio_atencion"))
10.     Text1.Text = Val(Text1.Text) + folio
11.     Text1.Text = Val(Text1.Text) + 1
12. end sub
13.  

Prueba con eso y me cuantas.. ..suerte..nos vemos..  ..y espero que tengas una Feliz Navidad y un Prospero Año Nuevo..

mira probe lo que me decia pero es algo extraño no se que le ocurre pk hay veces que ejecuto y me muestra la cantidad de registro, y lo que yo necesito es el valor que contenga el ultimo registro pero ejemplo la llave de esta tabla la cual tengo el problema es autonumerica y busco el ultimo registro por ejemplo 2001 y le sumo 1 para que me de un registro nuevo y seria 2002 pero lo que ahora tengo problema es que no puedo rescatar ese ultimo valor no se si me explico osea si la tabla me muestra que el ultimo valor es 2001 y la aplicacion me muestra que ultimo valor es 1998 osea no me esta contando esos 3 registros faltantes no se si me entiendes y el problema ademas es que si yo sigo ingresando en la base de datos esto no aumenta osea si ya he ingresado por eje. 2006 aun sigue mostrando la aplicacion que estoy en 1998 si me pueden ayudar se los agradeceria mucho ya tengo inflamadas mis neuronas jajajajaa bueno cualquier ayudita sirve se los agradesco un saludo a todos que esten muy bien adios

mmmm  

Si el problema puede ser el contador entonces trata con esta rutina:

Esta rutina repara el contador, cambia las variables para que se ajusten a tu programa. Está diseñada para una base de datos con contraseña, retira la contraseña si tú no la usas.

Espero te sirva..