Hola
Bueno, lo mas sencillo posible: un formulario con un Data1, con su asignacion de la Base de datos y la tabla ...
Un boton (Command1) y al darle clic listo!
Aqui esta el código que va en el botón
Private Sub Command1_Click()
With Data1.Recordset
i = 2
.MoveFirst
Do While Not .EOF
cuenta = 0
For i = 2 To 4
If .Fields(i) <> "" And .Fields(i) <> " " Then
cuenta = cuenta + 1
End If
Next
.Edit
.Fields(1) = cuenta
.Update
.MoveNext
Loop
End With
End Sub
perdon por no identarlo pero no logre saber como se identan varias lineas