Access - Problemas con DAO

Saludos a todos.
Necesito ayuda para terminar un programa que estoy haciendo.

Tengo una tabla, llamada "Caballetes", con los siguientes campos:
Id, índice autonumérico. Cliente, texto. FechaR, texto. E, texto. Cargas, texto
Indicativo, numérico. Ocupacion, numérico

Desde un formulario, llamado "Genera Archivo", basado en otra tabla diferente a esta,
necesito crear una función que busque un elemento en el campo "Cargas" de la tabla
"Caballetes" con un determinado criterio, filtro = "[Cargas]='" & Carga & "'"
donde Carga es un String. Una vez localizado el elemento, debe cambiar el valor del campo
"Ocupacion" por uno nuevo llamado Ocupa, que es un Integer.
He creado un codigo con recordset que es un desastre y aparece el error 3251,
operacion no válida para este objeto.
Trabajo en Access 2003, esta es la función:

Private Sub AddPiezaCaballete(Carga As String, Indicativo As Integer, Ocupa As Integer)
Dim db As Database
Dim rs As Recordset
Dim filtro As String
filtro = ""
Set db = CurrentDb
Set rs = db.OpenRecordset("Caballetes")
filtro = "[Cargas]='" & Carga & "'"
rs.FindFirst (filtro)
rs!Ocupacion = Ocupa
rs.Update
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub

Ayuda, por favor!!!!, gracias.

Hola!

¿Por qué no te creas una SQL que te filtre antes el dato? Así sólo tendrás que trabajar sobre un solo registro (doy por supuesto que la SQL te va a devolver sólo un registro en función de lo que puedo intuir en tu código).

Prueba este código:


Como argumentos del procedimiento he dejado "Indicativo", pero, por lo que veo, no lo utilizas dentro el procedimiento. En este caso yo lo eliminaría y dejaría el sub sólo con dos argumentos.

Te he añadido un recordcount por si la consulta no devolviera ningún registro. Así evitas que te salte el error de intentar asignar un valor a un elemento que no existe.

A ver si así te funciona.

Un saludo,


http://neckkito.siliconproject.com.ar

Hola

Entra aquí http://sgh.com.mx/blog/y ve el tag "Obtener Sumas y totales en Microsoft Access"

Saludos!

deneg_nhj

Gracias a los dos, he utilizado la solucion que me propone Neckkito y me funciona!!!, gracias.
Leeré con más calma la información que me da deneg, gracias tambien por tu respuesta.
Que diferencia hay entre esta expresion
rs!Ocupacion = Ocupacion
y esta otra
rs.Fields(0).value = Ocupa
son iguales, funcionan en todos los casos??? entendiendo que el campo 0 es Ocupacion.
Y estas:
Set rs = db.OpenRecordset("Select Carga, Indicativo, Ocupacion from Caballetes where Carga='" & Carga & "'")
con esta otra:
miSql="SELECT Caballetes.Ocupacion FROM Caballetes" _
& " WHERE Caballetes.Cargas='" & Carga & "'"
Set rs = db.OpenRecordset(miSql)
Saludos y gracias otra vez.