Hola neorent :hola: ...pienso que antes de preguntar por el recordcount=0 deberias posicionarte en el ultimo registro para que la cuenta sea correcta.. :) ...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
osea..algo asi:Código: Text
Private Sub Form_Load() Set a = OpenDatabase(App.Path & "\bd1.mdb") Set b = a.OpenRecordset("maestro_atenciones") b.MoveLast If b.RecordCount = 0 Then MsgBox "No Existen Registros", vbInformation, "Por Favor Ingrese" 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
Prueba con eso y me cuantas.. ;) ..suerte..nos vemos.. :hola: :comp:..y espero que tengas una Feliz Navidad y un Prospero Año Nuevo.. :angel:
Yo tuve problemas con un campo de indice auto numérico, que ya no quiso avanzar el índice, pero fue con DAO, cuando pasé la base de datos de Office 97 (Access Jet 3.5) a Office 2000 (Access Jet 3.6)si es ese el problema pero sabes yo no he migrado la base de datos sigue estando en access 97 asiq eu no entiendo cual podria ser la razon pero se estanco y no quiere avanzar igual pense que podia haberse descargado mal desde el servidor pero no la he descargado como 10 veces y el problema persiste igual me gustaria saber cuales son la referencias necesarias pk quizas puede ser una referencia que este faltando creo no se pk ahora le dio por mandar un error de.
Si este puede ser tu problema, busca en Microsoft o Google lo referente al artículo con el siguiente número: Q202117
---------------------------------------------
(http://www.igmario.com/Blackboard3.jpg)
mmmm :huh:yo tambien estoy asi :huh: si quieres me envias un correo a mi mail y te envio la aplicacion con la base y la analisas y me cuentas que te parece¿?
No coinciden los tipos (Error 13)Por otra parte verifica que tipo de variable es 'b' debe ser Recorset, o algo parecido. No colocas el resto del código.
y cuando depuro me marca esta linea de codigo
Set b = a.OpenRecordset("tabla_tecnicos")