Access - Consulta y actualización de campos.

   
Vista:

Consulta y actualización de campos.

Publicado por Ricardo (43 intervenciones) el 29/10/2012 17:26:04
Tengo una tabla (CLIENTE) con los siguientes campos:

NOMBRE
DNI
SUELDO
SUBIDA

Cuando quiero actualizar el SUELDO de unas determinadas personas, hago un filtro de formulario y ejecuto el siguiente código cuando pulso un botón:

Dim r As Recordset
Dim sql As String
filtro = Me.Filter
'Consulta con el filtro incluido
sql = "Select CLIENTE.* FROM CLIENTE WHERE " filtro

If (filtro = "") Then
MsgBox ("Filtre los datos, por favor")
Else
Set r = CurrentDb.OpenRecordset(sql)
If r.RecordCount > 0 Then
r.MoveLast
r.MoveFirst
For A = 1 To r.RecordCount
r.Edit
r!SUELDO = r!SUELDO + r!SUBIDA
r.Update
r.MoveNext
Next
End If
End If

Al ejecutar el siguiente código no me actualiza bien cada uno de los SUELDOS de los clientes sino que lo que hace es sumar a cada SUELDO del cliente la suma de la SUBIDA de todos los clientes incluidos en el filtro... Algo estoy haciendo mal... Ayuda.

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Henry

Consulta y actualización de campos.

Publicado por Henry (37 intervenciones) el 30/10/2012 02:12:55
Buenas noches Ricardo
En la variable sql colocas:
sql = "select * FROM CLIENTE WHERE " & filtro

Suerte.......
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar