Crear bucle para actualizar campo
Espero estén bien, no tengo muchos conocimientos, pero trato de entender el funcionamiento.
Desde ya gracias por su tiempo.
Les comento, tengo una base de datos en Access con una tabla T_Datos y un formulario continuo llamado F_List_Proy con los campos:
C_bienes - C_elementos - C_seguridad - TOTAL
Y un botón llamado sumar, necesito que al hacer clic el bucle recorra todos los registros y que si el total está vacío me sume los los campos:
C_bienes - C_elementos- C_seguridad y coloque el total en el campo total.
El problema es que no me recorre.
Private Sub Sumar_Click()
Dim rs As Recordset
Dim intActualizado As Integer
If Me.Total > 1 Then
Exit Sub
Else
Set rs = CurrentDb.OpenRecordset("T_Datos", dbOpenTable)
Do Until rs.EOF
Me.Total = (Me.C_bienes + Me.C_elementos + Me.c_seguridad)
intActualizado = intActualizado + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me.Requery
MsgBox "Se actualizaron " & intActualizado & " registros", vbInformation, "Cuotas mes"
End If
Exit Sub
1 Respuesta
Lo puede hacer de 2 formas:
1. Sobre la tabla
2. Clonando el formulario
Siguiendo como lo está haciendo revise este fragmento del código
Do Until rs.EOF rs.Edit rs!Total = (Me.C_bienes + Me.C_elementos + Me.c_seguridad) rs.Update intActualizado = intActualizado + 1 rs.MoveNext Loop
Asumo que en la tabla existe el campo Total
