21/07/2005, 10:46
|
| | | Fecha de Ingreso: julio-2005
Mensajes: 59
Antigüedad: 19 años, 9 meses Puntos: 0 | |
| L abse de datos se supone que está abierta, pues este código lo ejecuta el procedimiento Form_Open de un formulario que abre la base de datos. Te adjunto el código:
Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
Do While Not EOF
N_1 = (E1 + 2 * E2) / 3
NF_1 = N_1 * 0.8 + H1 / T1 + (I1 + G1) / 2 * 0.1
strSQL = "UPDATE ALUMNOS SET ALUMNOS.N1='" & N_1 & "'" & " WHERE ALUMNOS.EXPEDIENTE=" & EXPEDIENTE
CurrentDb.Execute strSQL 'Para que no muestre el numero de cambios
Loop
End Sub |